【简答题】
Private Sub HScroll1_Change()
' Text1.FontSize = ?
If List1.Text <> "" Then
' Text1.FontName = ?
Else
MsgBox "请选择字体", , ""
End If
End Sub
参考答案
Private Sub HScroll1_Change()
Text1.FontSize = HScroll1.Value
If List1.Text <> "" Then
Text1.FontName = List1.Text
Else
MsgBox "请选择字体", , ""
End If
End Sub