VB 程序设计07-1.pptVIP

第七章 窗体 学习目标 窗体的常用属性、事件、方法 鼠标事件 窗体的属性 常用属性： Name: 名称，只能在属性窗口设置，称只读属性 Caption: 窗体标题 BackColor、ForeColor : 窗体背景/前景色 Font: 窗体字体（字型、字号） Picture: 窗体背景图片。清除时用Delete在属性窗口删除 Icon: 窗体图标。清除时方法同上。 AutoRedraw: 自动重画 Moveable: 是否可移动，默认为true Left、Top、Height、Width: 窗体位置及大小 StartUpPosition: 窗体位置。0-手动，1-所有者中心， 2-屏幕中心，3- 默认左上角，只读属性 属性 通过代码设置窗体属性： 将图标、背景文件放在当前目录，并改名为1.ico和a.bmp： Private Sub Form_Load() With Form1 .Caption = Hello .Left = 6000 .Top = 7000 .Width = 5000 .Height = 3000 Set .Icon = LoadPicture(App.Path \1.ico) Set .Picture = LoadPicture(App.Path \a.bmp) End With End Sub 属性 BorderStyle属性：边框风格 属性 与窗体标题栏设置的几个属性 窗体的方法 窗体的常用方法 Print：在窗体上打印字符 Circle：画椭圆。Circle (x,y), r1,r2，省略r2时为圆 Line：画直线。Line (x1,y1) - (x2,y2) Cls：清除窗体上的文字或图形，但不指背景图片。 Show：显示窗体 Hide：隐藏窗体 Load：加载窗体 UnLoad：卸载窗体 说明：当前窗体中Form1.cls→简写为Cls 方法 Hide 隐藏窗体，但不从内存中清除。相当于Visible属性取False Show 显示窗体。若窗体事先未装入，则自动装入窗体后再显示。 Load 加载窗体到内存，但不显示。注意使用格式为 Load 窗体名 UnLoad 从内存中卸载窗体。格式： UnLoad 窗体名 窗体的事件 窗体的常用事件 load：窗体加载事件，当窗体加载到内存后触发。 click: 鼠标单击窗体时触发。 dblClick：窗体的双击事件 Initialize：窗体的初始化事件，先于Load事件发生。一般将窗体属性设置初始化代码放于此事件。 activate：当窗体变成活动窗体时触发。 resize：当窗体大小改变或移动时触发。 鼠标事件 鼠标事件： MouseDown MouseUp MouseMove 事件格式：例如 Private Sub Form_Mousedown（Button As Integer,Shift As Intege,x as single, y as single) 说明： 当鼠标指针位于无控件的窗体时，窗体将识别鼠标事件：如Form_MouseDown 当鼠标指针在控件上方时，控件将识别鼠标事件：如Command1_MouseDown 鼠标事件 参数的含义： Button： b0＝1：鼠标左键 b1＝1：按下右键 b2＝1：按下中键 Shift： b0＝1：按Shift b1＝1：按Ctrl b2＝1：按Alt X、Y：鼠标当前坐标 鼠标事件 MouseDown与Click的区别: MouseDown：按下 Click：按下、释放整个过程被视为一个事件 MouseDown：可区分各鼠标和Shift等键 Click：无。不属于鼠标事件 鼠标事件示例 例1：尝试如下代码 Private Sub Form_MouseDown(Button As Integer, Shift As Integer,X as Single,Y As Single) Command1.Move x,y End Sub 效果：按钮跟着鼠标跑 鼠标事件示例 例2：尝试如下代码 Private Sub Form_MouseDown(Button