发布网友
共1个回答
热心网友
Private Sub Form_Load()
Label1.BorderStyle = 1
Label1.Caption = "XX号,XXX": Me.BackColor = vbYellow
End Sub
Private Sub Label1_Click() '单击
Label1.Alignment = 2
End Sub
Private Sub Label1_DblClick() '双击
Label1.BackStyle = 0
End Sub
'按F5