请问一下我的哪里错了?
我是刚开始学VB的,这段代码我不知道错在哪里了?我编写的却没有反应,按哪一个键都没有反应!!!!
Private Sub Cmd1_Click()
Label1.BorderStyle = 1
'为Label1添加边框
End Sub
Private Sub Cmd2_Click()
Label1.Font = "隶书"
'设置标签中文字的字体为隶书
Label1.FontSize = 15
'设置标签中文字的字体为15号字
Label1.FontBold = True
'设置标签中文字的字体为粗体
EndSub
Private Sub Cmd3_Click()
Label1.Visible = False
'将标签设置为隐藏
End Sub
Private Sub Cmd4_Click()
Label1.Alignment = 2
'设置标签中文字的对齐方式为居中形式
End Sub
Private Sub Cmd5_Click()
Label1.BorderStyle = 0
'将Label1边框取消
Label1.Visible = True
'将标签恢复显示
Label1.Font = "宋体"
'设置标签中文字的字体大小为12号字
Label1.FontBold = True
'设置标签中文字的字体为常规
Label1.Alignment = 0
'设置标签中文字的对齐方式为左对齐形式
End Sub
QQ截图未命名.jpg
(20 KB)