在名称为Form1的窗体上，画一个名称为Label1的标签其标题为“计算机等级考试”，字体为宋体，字号为12，且能根据标题，自动调整标签的大小。再画2个名称为cmd1、cmd2的命令按钮，标题分别为“缩小”和“还原”。 编写适当的事件过程，使得每单击一次“缩小按钮”，Label1中所显示的标题内容就自动减小2个字号；单击“还原”按钮，Label1所显示的标题内容大小自动恢复到12号。
急求代码。。。。高手谢谢~
画好控件后，代码如下：
Private Sub cmd1_Click()
if label1.fontsize>2 then ' 防止字体缩小至为字号 0 , 否则自动还原为 字号12
Label1.FontSize = Label1.FontSize - 2
else
Label1.FontSize = 12
end if
End Sub
Private Sub cmd2_Click()
Label1.FontSize = 12
End Sub
Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "计算机等级考试"
Label1.Font = ""
Label1.FontSize = 12
End Sub
祝你好运!!!
Private Sub cmd1_Click()
if label1.fontsize>2 then ' 防止字体缩小至为字号 0 , 否则自动还原为 字号12
Label1.FontSize = Label1.FontSize - 2
else
Label1.FontSize = 12
end if
End Sub
Private Sub cmd2_Click()
Label1.FontSize = 12
End Sub
Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "计算机等级考试"
Label1.Font = ""
Label1.FontSize = 12
End Sub
祝你好运!!!
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-06-22
Private Sub cmd1_Click()
On Error Resume Next '这句是必须的 不然点到第六次会产生错误
也可以用if label1.fontsize>2 then 来代替
Label1.FontSize = Label1.FontSize - 2
End Sub
Private Sub cmd2_Click()
Label1.FontSize = 12
End Sub
Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "计算机等级考试"
Label1.FontSize = 12
Cmd1.Caption="缩小"
Cmd2.Caption="还原"
End Sub
On Error Resume Next '这句是必须的 不然点到第六次会产生错误
也可以用if label1.fontsize>2 then 来代替
Label1.FontSize = Label1.FontSize - 2
End Sub
Private Sub cmd2_Click()
Label1.FontSize = 12
End Sub
Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "计算机等级考试"
Label1.FontSize = 12
Cmd1.Caption="缩小"
Cmd2.Caption="还原"
End Sub
第2个回答 2011-06-22
画好控件后，代码如下：
Private Sub cmd1_Click()
Label1.FontSize = Label1.FontSize - 2
End Sub
Private Sub cmd2_Click()
Label1.FontSize = 12
End Sub
Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "计算机等级考试"
Label1.Font = ""
Label1.FontSize = 12
End Sub
Private Sub cmd1_Click()
Label1.FontSize = Label1.FontSize - 2
End Sub
Private Sub cmd2_Click()
Label1.FontSize = 12
End Sub
Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "计算机等级考试"
Label1.Font = ""
Label1.FontSize = 12
End Sub
