22 lines
818 B
VB.net
22 lines
818 B
VB.net
|
Public Class UCreatelabel
|
|||
|
|
|
|||
|
|
Public txtcolor As Color =Color.Black
|
|||
|
|
Public txt As String
|
|||
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click, Button14.Click, Button13.Click, Button12.Click, Button11.Click, Button10.Click, Button1.Click
|
|||
|
|
Dim brn As Button =sender
|
|||
|
|
txtcolor=brn.BackColor
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
|
|||
|
|
|
|||
|
|
If String.IsNullOrEmpty (TextBox1.Text) Then
|
|||
|
|
MsgBox ("标签不可为空")
|
|||
|
|
return
|
|||
|
|
End If
|
|||
|
|
txt= TextBox1.Text
|
|||
|
|
|
|||
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|