- 0
- 0
- 约1.98万字
- 约 22页
- 2023-10-23 发布于上海
- 举报
新建工程,界面如下图,将窗体名称改为 f1,标题属性为“我的第一个工程”, Text2 允许多行,三个命令按钮名称分别为 C1、C2、C3,单击 C1 按钮将 Text1 的字体改为黑体,Text2 的字体改为隶书。 单击 C2 按钮将 Text1 的文字颜色改为红色,Text2 的背景颜色改为蓝色。单击 C3 按钮结束程序运行。
Text1
Text2
Private Sub Command1_Click() Text1.Font = 黑体
End Sub
Private Sub Command2_Click() Text1.ForeColor = vbRed
Text2.ForeColor = vbBlue End Sub
Private Sub Command3_Click() End
End Sub
新建工程,界面如上图,运行时,鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色, 鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1 的内容为“在窗体上按下了鼠标”,鼠标抬起时使 Text1 的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.BackColor = vbR
原创力文档

文档评论(0)