VB中制作小程序中，怎么改变在表面字体的颜色和大小

颜色对话框

Private Sub Color_Click()

CommonDialog1ShowColor

Text1ForeColor = CommonDialog1Color

End Sub

字体对话框

Private Sub Font_Click()

CommonDialog1Flags = 1

CommonDialog1FontName = Text1FontName

CommonDialog1ShowFont

Text1FontName = CommonDialog1FontName

Text1FontSize = CommonDialog1FontSize

Text1FontBold = CommonDialog1FontBold

Text1FontItalic = CommonDialog1FontItalic

End Sub

form1上放置Command1,Timer1,Picture1(装入一个)

Dim MoveStep As Integer

Private Sub Command1_Click()

Timer1Enabled = False

End Sub

Private Sub Form_Load()

MoveStep = 100

End Sub

Private Sub Timer1_Timer()

If Picture1Left + Picture1Width + 30 > Form1Width Then

MoveStep = -100

End If

If Picture1Left < 0 Then

MoveStep = 100

End If

Picture1Left = Picture1Left + MoveStep

End Sub

按功能键盘上的F5 运行就可以！ 如果有错误，VB会出现新窗口，用汉字写出如何错误。在新窗口内点击调试，在代码窗口中出错的代码为**背景。 最后保存程序，单击“文件”菜单——选择“保存工程”。需要保存两个窗体，首先是frm的应用程序窗体，然后是vbp的工程文件。

以上就是关于VB中制作小程序中，怎么改变在表面字体的颜色和大小全部的内容，包括:VB中制作小程序中，怎么改变在表面字体的颜色和大小、怎样用 VB 制作个简单的小程序、vb6.0 制作一个简单小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！