VB语言第二章教案[上3].ppt

;;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的时间该做什么。 ;例：编写一个简单的时钟;程序代码;;;;例：图片框和图像框的使用和区别;代码：;; 设计一个用于输入职工信息的应用程序，如图所示:; 设计一个趣味文本，如图所示:;