面向对象程序设计复习第一二章.docx

VB功能特点 1、提供了面向对象的可视化编程工具 2、事件驱动的编程机制 3、界面友好、交互式开发（可视化的界面、强大的出错提示功能、交互开发） 4、完善的联机帮助功能（MSDN帮助：帮助内容\索引\搜索、对象浏览器帮助：视图对象浏览器） 集成开发环境 属性窗口、代码窗口、工程资源管理器、窗口布局窗口 对象和类 控件对象属性访问和更改 访问方法 属性窗口查看；代码访问：对象名称.属性 更改方法 属性窗口更改 代码更改：对象名称.属性=属性值 控件的事件和方法 基本属性、事件和方法 案例1 Private Sub Form_Load() Label1.Alignment = 2 Label1.BorderStyle = 1 Label1.Appearance = 1 Label1.BackColor = RGB(192, 192, 0) Label1.ForeColor = RGB(0, 192, 0) Label1.Caption = 我是标签，我现在漂亮吗？ Label1.FontName = 楷体_GB2312 Label1.FontSize = 16 Label1.FontBold = True End Sub 让窗体、控件不响应事件 Enabled=true 或 False 让控件自动调整大小以适应文本、图形 AutoSize 属性：标签、图片等控件是否根据文本或图片调整其大小。 值：逻辑 鼠标单双击事件 Click() DblClick() 焦点事件 GotFocus()、LostFocus() 在窗体中添加两个文本框，已知文本框Text属性代表文本框的文本。实现当用户在Text1输入文本，然后单击Text2，Text2中的文本即刻与Text1中的文本一致 Private Sub Text2_GotFocus() Text2.Text = Text1.Text End Sub 鼠标事件 MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 其中：Button值对应二进制数代表的意义（1表示按下，0表示未按下）；Shift值对应二进制数代表的意义（1表示按下，0表示未按下）；X、Y表示鼠标在控件上的坐标。 应用案例：在文本框提示Button和Shift Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Text1.Text = CStr(Button) Text2 .Text= CStr(Shift) End Sub 提示：CStr函数用于将非字符型数据转换为字符。 移动控件和窗体 Move Left, [Top], [Width], [Height] Private Sub Text1_Click() Text1.Move 0, 0 End Sub 得到焦点 SetFocus Private Sub Text1_Click() Text2.SetFocus End Sub Private Sub Text2_GotFocus() Form1.Print 我Text2已经得到焦点了,现在你可以编辑我了! End Sub 窗体的属性、事件和方法 引用窗体的多种方法 窗体名称、Me关键字、省略 Form1.Top=0 Me.Top=0 Form1.Left=0 Left=0 Form1.Print “我是窗体” Print “我是窗体” 让窗体变漂亮 Form1.Picture=LoadPicture(“E:\PIC.jpg”) 控件会“飞出”窗体吗 窗体中的控件位置依据窗体的坐标系统。 窗体坐标的定义： ScaleLeft ScaleTop ScaleWidth ScaleHeight 案例：单击按钮使其覆盖整个窗体 Private Sub Command1_Click() Command1.Move Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight End Sub 设置窗体的风格 在窗口中设置一个