VB Lable标签显示列表框内容

发布网友

我来回答

1个回答

热心网友

If KeyAscii = 13 Then
lable1.FontSize = Combo2.Text
End If
是错的 标签的名字拼错啦 是 label1 而不是 lable1
意思是当 键盘敲击 回车( ascii 码是 13 ) 的时候 更改字体,这是在你手动输入的时候回车生效设置
你的主要问题我没弄明白 你的代码应该可以改变字体和大小啦
如果你需要LABEL1 显示字体的名称和 字号的数值 你可以
Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next i
For i = 6 To 40 Step 2
Combo2.AddItem i
Next i
End Sub
Private Sub Combo2_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label1.FontSize = Combo2.Text
Label1.Caption = " 字体:" & Label1.FontName & " 大小:" & Label1.FontSize

End If
End Sub
Private Sub Combo1_Click()
Label1.FontName = Combo1.Text
Label1.Caption = " 字体:" & Label1.FontName & " 大小:" & Label1.FontSize

End Sub

Private Sub Combo2_Click()
Label1.FontSize = Combo2.Text
Label1.Caption = " 字体:" & Label1.FontName & " 大小:" & Label1.FontSize

End Sub

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com