
Private Sub Check1_Click()
If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False
End Sub
Private Sub Command1_Click()text1.text="你好,欢迎使用本软件!"
End Sub
Private Sub Command2_Click()
text1.text=""
end sub
这个是最简单的方法 文本弯链矿 的属性名称自动默认为 text1也就是说 你以后需要在语句里面变动 调用 或者 命令他隐闹隐 让他作什么动作 这个text1 就是他的名字 可以更改 的
因为欢迎词是string型的 也就是说除了数字 以外所有的这些都要写个""
然后 按钮2按下的时候 text1的text (text是他的一个属性,需要更改时写一个名称然后.然后属性或者动作)text1的text为灶厅”“空的 什么都没有
这个方法是偷懒的 但是很简单易懂
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)