《VB》作业：请各位做一下

一、程序设计题程序要求如下：1、程序运行后，窗体初始化时，在左边列表框1(名称为List1)中列出当前屏幕对象（Screen）的所有字体，screen对象的fonts属性（fonts属性是一个数组）能够得到屏幕使用的所有字体，FontCount属性能够得到字体的数量，利用一个循环，将Screen对象的每个Fonts(i)添加到列表框1中； 2、窗体初始化时，在右边的列表框2(名称为List2)中列出8、10、12、14……72的数字，表示字号。 3、当用户在列表框1中单击选中某种字体名时，或在列表框2中单击选中某一字号时，使窗体下半部的标签框（名称为Label1）中文字设置为相应字体与字号，实现字体字号预览。

解决方案 »

  1.   

    大学作业？很简单啊Private Sub Command1_Click()
    Dim i%
    For i = 0 To Screen.FontCount - 1
    List1.AddItem Screen.Fonts(i)
    Next
    End SubPrivate Sub Form_Load()
    Dim i%
    For i = 8 To 72 Step 2
    List2.AddItem CStr(i)
    Next
    List2.ListIndex = 0
    End SubPrivate Sub List1_Click()
    Label1.FontName = List1.Text
    Label1.FontSize = List2.Text
    End SubPrivate Sub List2_Click()
    If List1.ListCount > 0 Then List1_Click
    End Sub