vb语言第2章节节教案[上3].pptVIP

Visual Basic各内部控件的简介表 例：控件的拖动 Private Sub CmdDrog_Click() CmdMove.DragMode = 1 设置拖动模式为自动 CmdMove.MousePointer = 15 设置鼠标指针为移动指针样式 CmdMove.Caption = 说走就走! End Sub Private Sub CmdStop_Click() CmdMove.DragMode = 0 设置拖动模式为手动 CmdMove.Caption = 歇会儿,说什么也不走了! CmdMove.MousePointer = 12 设置鼠标指针为禁用指针样式 End Sub Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Source.Top = Y 设置按钮对象的顶端位置 Source.Left = X 设置按钮对象的左端位置 End Sub Private Sub Form_Load() CmdStop_Click 调用CmdStop_Click()过程,设置CmdMove按钮的初始属性 End Sub 例 在三个文本框中显示不同的文字效果 在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击“清除”按钮时则清除三个文本框中的内容 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 Private Sub Form_Load() Text2.FontName = 隶书 Text2.FontSize = 16 Text3.FontName = 楷体_GB2312 Text3.FontSize = 20 End Sub Private Sub Text1_Change() Text2.Text = Text1.Text Text3.Text = Text1.Text End Sub Private Sub Command1_Click() “清除”按钮 Text1.Text = 清除文本框Text1的内容 Text2.Text = 清除文本框Text2的内容 Text3.Text = 清除文本框Text3的内容 Text1.SetFocus 设置焦点 End Sub Enabled属性： 决定计时器控件是否对时间的推移做响应。取值为False，禁用Timer控件；为True，Timer控件有效； Timer事件： 当达到定时器控件的Interval属性规定的时间间隔时触发 该事件具有周期性，通过创建Timer事件程序用以告诉VB在每隔Interval的时间该做什么。 例：编写一个简单的时钟 程序代码 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Text1.Text = Now() End Sub 例：图片框和图像框的使用和区别 代码： Private Sub Command1_Click() Picture1.AutoSize = True Image1.Stretch = True End Sub Private Sub Command2_Click() Picture1.AutoSize = False Image1.Stretch = False End Sub Private Sub Command3_Click() Image1.Width = Image1.Width * 2 Picture1.Width = Picture1.Width *