vb中将label内变为红色的文字还原
2个回答
展开全部
Private Sub Command1_Click()
Label1.ForeColor = vbRed '把label1设为红色
End Sub
Private Sub Command2_Click()
Label1.ForeColor = Val(Label1.Tag) '还原label1的颜色
End Sub
Private Sub Form_Load()
Label1.Tag = Label1.ForeColor '保存label1的原始色
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询