Option Explicit
Dim I As Integer
Private Sub Form_load()
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
End Sub
Private Sub List1_Click()
I = List1.ListIndex
Label1.Font = List1.List(I)
End Sub
解释一下好吗
參考答案:Option Explicit //验证未定义变量
Dim I As Integer //定义 整行 变量I
Private Sub Form_load() //窗体载入过程
For I = 0 To Screen.FontCount - 1//FOR 循环
List1.AddItem Screen.Fonts(I)//向列表控件添加字体
Next I //循环结束
End Sub //过程结束
Private Sub List1_Click() //列表控件点击事件
I = List1.ListIndex //将列表控件点击的索引付给I
Label1.Font = List1.List(I) //将Label1控件的字体设置为选中的字体
End Sub //事件结束