Private Sub Command1_Click() Text1.FontName = Screen.Fonts(1) Text1.FontSize = 50 End Sub
Private Sub Form_Click () Static I ' 声明变量。 Dim OldFont OldFont = FontName ' 保留原来的字体。 FontName = Screen.Fonts(I) ' 改变到新的字体。 Print Screen.Fonts(I) ' 输出字体的名称。 I = I + 1 ' 计数器增一。 If I = FontCount Then I = 0 ' 重新开始。 FontName = OldFont ' 恢复原来的字体。 End Sub
Text1.FontName = Screen.Fonts(1)
Text1.FontSize = 50
End Sub
Static I ' 声明变量。
Dim OldFont
OldFont = FontName ' 保留原来的字体。
FontName = Screen.Fonts(I) ' 改变到新的字体。
Print Screen.Fonts(I) ' 输出字体的名称。
I = I + 1 ' 计数器增一。
If I = FontCount Then I = 0 ' 重新开始。
FontName = OldFont ' 恢复原来的字体。
End Sub