如何用代码来修改文体框(TextBob)的字体和字号?谢谢!

解决方案 »

  1.   

    Private Sub Command1_Click()
        Text1.FontName = Screen.Fonts(1)
        Text1.FontSize = 50
    End Sub
      

  2.   

    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