UC知道vb程序设计教程课后实验题目，实在解不出了，高手来看看
来源：百度知道 编辑：UC知道 时间：2024/07/03 11:22:34
提供在窗体上显示的汉字开头的字体名称，并显示该名称所对应的字体样式
提示：1.界面设计：窗体有两个label（一个写字体名，一个写字体样式）和两个列表listbox分别用来显示字体名称
list2由几项不同字体的“中国同济大学”组成，水平对应于list1中的字体名称
我的疑问就是
怎么在一个listbox里面改变各项的字体属性？
我随便写了下是
Private Sub Form_Load()
Dim s$
s = "中国同济大学"
For i = 0 To Screen.FontCount - 1
If Asc(Left(Screen.Fonts(i), 1)) < 0 Then
List1.AddItem Screen.Fonts(i)
List2.FontName = Screen.Fonts(i)
List2.AddItem s
End If
Next i
End Sub
可是最终都是以最后一个出现的字体的样式出现的，而且只能显示中国同济大学的前三个字。。。
初学VB，实在不明白，希望高手教一下，20分给您
追加10分！高手来帮忙！
这个是书上例图
提示：1.界面设计：窗体有两个label（一个写字体名，一个写字体样式）和两个列表listbox分别用来显示字体名称
list2由几项不同字体的“中国同济大学”组成，水平对应于list1中的字体名称
我的疑问就是
怎么在一个listbox里面改变各项的字体属性？
我随便写了下是
Private Sub Form_Load()
Dim s$
s = "中国同济大学"
For i = 0 To Screen.FontCount - 1
If Asc(Left(Screen.Fonts(i), 1)) < 0 Then
List1.AddItem Screen.Fonts(i)
List2.FontName = Screen.Fonts(i)
List2.AddItem s
End If
Next i
End Sub
可是最终都是以最后一个出现的字体的样式出现的，而且只能显示中国同济大学的前三个字。。。
初学VB，实在不明白，希望高手教一下，20分给您
追加10分！高手来帮忙！
这个是书上例图
For i = 0 To Screen.FontCount - 1
If Asc(Left(Screen.Fonts(i), 1)) < 0 Then
List1.AddItem Screen.Fonts(i)
Private Sub Form_Load()
Dim s$
兄弟，初学就弄这么复杂的问题啊！
VB里的LISTBOX控件是没这个功能的，如果真的需要，改其他控件吧，比如 msFlexGrid等等试试！
ListBox1.Font = New System.Drawing.Font("MS 明朝", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
老兄，你们好可怜，来，咱帮帮你：
ListBox1.Font = New System.Drawing.Font("MS 明朝", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))