24 lines
744 B
VB.net
24 lines
744 B
VB.net
Public Class frmMsgbox
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.DialogResult = DialogResult.Yes
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Me.DialogResult = DialogResult.No
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
Me.DialogResult = DialogResult.Cancel
|
|
|
|
End Sub
|
|
|
|
Public Sub set_text(msg As String, button1 As String, button2 As String, button3 As String)
|
|
Me.TextBox1.Text = msg
|
|
Me.Button1.Text = button1
|
|
Me.Button2.Text = button2
|
|
Me.Button3.Text = button3
|
|
|
|
End Sub
|
|
End Class |