==================form的属性================= ▲ActiveControl 活动控件(只读) 无论窗体是否是活动的 ?如果在窗体上的所有控件都是不可见的或不可使用的,那么将产生一个运行时错误。 ▲Appearance 绘图风格(只读) 0 平面, 1(缺省值) 3D ▲AutoRedraw 自动重绘tf ------------------------------------------------- ▲BackColor 背景颜色 当BackStyle 属性的设置值为 0(透明)时有效 ▲ForeColor 前景颜色 ▲BorderStyle 边框样式,对 Form 对象和 Textbox 控件在运行时是只读的。 0vbBSNone 无(没有边框或与边框相关的元素)。 1vbFixedSingle 固定单边框。可以包含控制菜单框,标题栏 ,"最大化"按钮,和"最小化"按钮。 ?只有使用最大化和最小化按钮才能改变大小。 2vbSizable 可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。(缺省) 3vbFixedDouble 固定。可以包含控制菜单框和标题栏,不能包含最大化和最小化按钮,不能改变尺寸 4vbFixedToolWindow 固定。显示关闭按钮并用缩小的字体显示标题栏。任务条中不显示。 5vbSizableToolWindow 可变大小。显示关闭按钮并用缩小的字体显示标题栏。任务条中不显示。 ?将 BorderStyle 设置为0就会删除边框。如果希望窗体有边框而没有标题栏、控制菜单框、最大 化按钮和最小化按钮,则应从窗体 Caption 属性中删除任何文本,同时将窗体的 ControlBox、 MaxButton 和 MinButton 属性设置为 False。 ▲MaxButton 是否有"最大化"按钮 (BorderStyle 属性非0值有效) ▲MinButton 是否有"最小化"按钮。(BorderStyle 属性非0值有效) ▲ControlBox 控制菜单框是(T缺省值)否在窗体中显示。在运行时为只读。 ▲ShowInTaskbar 决定一个 Form 对象是否出现在 Windows 95 任务栏中。运行时为只读状态。 ▲WindowState 运行时窗体窗口的可视状态 0(缺省值)正常。 1最小化。 2最大化 ------------------------------------------------- ▲FillColor 填充颜色 当 FillStyle 设置为 1(透明)时有效,但是 Form 对象除外。 ▲FillStyle 填充模式 0实线。 1(缺省值)透明。 2水平直线。 3垂直直线。 4上斜对角线。 5下斜对角线。 6十字线。 7交叉对角线 ▲DrawWidth 画线宽度 从 1 到 32,767。该值以像素为单位 ▲DrawStyle 画线样式 0(缺省)实线, 1虚线, 2点线, 3点划线, 4双点划线, 5无线, 6内收实线 ▲DrawMode 绘图方式 1黑色。2非或笔(与15相反)。 3与非笔。4非复制笔(与13相反)。5与笔非。 6反转 7异或笔 。8非与笔(与9相反)。 9与笔。10非异或笔(与7相反)。 11无操作(关闭画图) 12或非笔。 13复制笔(缺省值 , 由 ForeColor 属性指定的颜色)。 14或笔非 。15或笔。16白色。 ------------------------------------------------- ▲Caption ▲ClipControls 是重绘整个对象T(缺省值),还是只绘刚刚露出的区域F。 ------------------------------------------------- ▲Count 返回集合中对象的数目。 ▲Control 对象 所有内部控件的类名 Dim C as Control Set C = Command1 ▲Controls(index) 集合 窗体上的每一个控件的集合,其中包括控件数组中的元素 ?具有两种表示法:MyForm.Controls(6).Top 与 MyForm(6).Top相同 ▲Item(index) 方法 位置或键返回集合中的一个成员 ------------------------------------------------- ▲CurrentX [= x ] ▲CurrentY [= y ] ▲Enabled 是否能够对用户产生的事件作出反应。 ▲FontTransparent[= boolean] 背景文本和图形是否显示在字符周围的空区。 ------------------------------------------------- ▲Font 返回一个 Font 对象。 ?Font对象除具有以下6个类似属性外,还具有Weight属性 Weight属性 字符的权重,正常和斜体设置值的 Weight 值是 400(缺省值), 粗体和斜粗体设置值的 Weight 值是 700 Dim X As New StdFont X.Bold = True X.Name = "Arial" Set Text1.Font = X ▲FontName 字体名 ▲FontSize 字体大小 1-2048 ▲FontBold 粗体否 ▲FontItalic 斜体否 ▲FontStrikethru 删除线否 ▲FontUnderline 下划线否 ?在设置大小和样式属性前,要先改变 FontName 属性。在设置的 TrueType 字体小于 8 磅时, 要用 FontSize 属性设置字体大小,再设置 FontName 属性, 然后用 FontSize 属性再一次设置字体大小。 ------------------------------------------------- ▲Icon 窗体处于最小化时显示的图标。 ▲hWnd 返回窗体或控件的句柄。 ▲hDC 返回一个句柄 ,该句柄是由 Windows 运行环境提供给一个对象的设备描述体 。 ?AutoRedraw 属性能引起 hDC 属性改变。如果窗体或 窗体 PictureBox 容器的 AutoRedraw 属性设置为 True,hDC 将作为持久图形 的设备关联句柄(等价于 Image 属性)。当 AutoRedraw 属性为 False 时,hDC 属性是窗体窗口或 PictureBox 容器的真正的 hDC 值。 程序运行中, 不论 AutoRedraw 设置为何值,hDC 属性都可以改变。 ▲Image 返回持久图形的句柄,该句柄由 Windows 运行环境提供。不受 AutoRedraw 属性设置值的影响 Picture2.Picture = Picture1.Image '拷贝显示在Picture2中的所有图像到 Picture2 Picture2.Picture = Picture1.Picture '拷贝Picture2的Picture 属性到 Picture2 ------------------------------------------------- ▲Height、Width 外部高度和宽度,包括边框和标题栏。 ▲Left、 Top 左上角坐标 ▲HelpContextID 返回或设置一个相关联上下文的编号 ▲KeyPreview 是否在控件的键盘事件之前激活窗体的键盘事件KeyDown、KeyUp 和 KeyPress ▲MDIChild 是否是 MDI 子窗体(可在另一个 MDI 窗体内部显示) ?所有 MDI 子窗体都有可调整大小的边框,控制菜单框,以及最小化和最大化按钮,而不管 BorderStyle、ControlBox、MinButton 和 MaxButton 属性的设置值如何。 ------------------------------------------------- ▲MouseIcon 自定义的鼠标图标。(MousePointer 属性设为 99 时使用) ▲MousePointer 鼠标指针 ▲Moveable 是否可移动。 ▲NegotiateMenus 窗体是否把其上对象的菜单合并到窗体菜单栏上。运行时无效。 ------------------------------------------------- ▲Palette = path 返回或设置一幅图象,该图象包含了用于控件的调色板。 ▲PaletteMode 回或设置一个值,该值决定了哪个调色板将用于对象上的控件。 0 (缺省的)使用 Halftone 调色板。 1 使用来自于含有调色板的最高层控件的调色板。 2 使用 Palette 属性中指定的调色板。 3 对于支持环境 Palette 属性的容器使用容器调色板。只适用于 UserControls。 4 不使用任何调色板。只适用于 UserControls。 5 使用 ActiveX 设计器的调色板。(只适用于包含调色板的 ActiveX 设计器。)
▲ScaleMode 坐标的度量单位类型 vbUser 0 指出 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性中的 一个或多个被设置为自定义的值。 VbTwips 1 缇(1英寸= 1440 缇;1厘米= 567 缇) (缺省值) VbPoints 2 磅(1英寸= 72 磅)。 VbPixels 3 像素(监视器或打印机分辨率的最小单位)。 vbCharacters 4 字符(水平每个单位=120 缇;垂直每个单位=240 缇) VbInches 5 英寸。 VbMillimeters 6 毫米。 VbCentimeters 7 厘米。 ▲ScaleWidth 、ScaleHeight 水平 或垂直 度量单位(将对象平分为n个自定义单位) ▲ScaleLeft 、 ScaleTop 水平 或垂直 坐标 ------------------------------------------------- ▲StartUpObject 返回或设置工程的启动部件。 0 启动对象是 Sub Main。 1没有启动对象。 ▲StartUpPosition 对象首次出现时的位置 0没有指定初始设置值。 1 Form中央。 2 屏幕中央。 3 屏幕的左上角。 ▲Tag ▲WhatsThisButton 是否出现"这是什么"按钮 ▲WhatsThisHelp 是否使用由 Windows 95 Help 提供的"这是什么"弹出式窗口或主 Help 窗口 ▲Visible 返回或设置一指示对象为可见或隐藏的值
==================form的方法================= ▲Circle[Step] (x, y),radius,[color, start, end, aspect ] 圆心坐标,半径, 轮廓颜色,起点, 终点,纵横比 ?此方法在对象上(逆时针方向)画圆、椭圆或弧 color 省略则使用 ForeColor 属性值 start 为负,画一半径到 start,并将角度处理为正的; end 为负,画一半径到 end, 并将角度处理为正的。 aspect缺省值为 1.0,它在如何屏幕上都产生一个标准圆 ? 线段的粗细取决于 DrawWidth 属性值 可以省略某个参数,但不能省略分隔参数的逗号 Circle 执行时,CurrentX 和 CurrentY 属性被参数设置为中心点。 这个方法不能用在 With 语句块中。 ------------------------------------------------- ▲Cls 清除运行时 Form 或 PictureBox 所生成的图形和文本 调用 Cls 之后,object 的 CurrentX 和 CurrentY 属性复位为 0。 ------------------------------------------------- ▲Hide 用以隐藏 MDIForm 或 Form 对象,但不能使其卸载。 ▲Show [style][,ownerform] 用以显示 MDIForm 或 Form 对象,不支持命名参数。 style的设置: 0 无模式窗体 随后遇到的代码则要执行 1 模式窗体 其后的代码直到该窗体被隐藏或卸载时才能执行(暂停其他窗体的代码) ? 调用Hide和Show方法时如果指定的窗体没有装载, 将自动装载该窗体。 ▲Load object 把窗体或控件加载到内存中 ▲Unload object 从内存中卸载窗体或控件 ?只有在运行时添加到窗体上的控件数组元素才能用 Unload 语句卸载 在卸载窗体前,会发生 Query_Unload 事件过程,然后是 Form_Unload 事件过程。 在其中任一过程中设置 cancel 参数为 True 可防止窗体被卸载。 ------------------------------------------------- ▲Line [Step] (x1, y1) [Step] (x2, y2), [color], [B] [F] 在对象上画直线和矩形 起点坐标 终点坐标 颜色 矩形 实心 ?F省略时,则矩形用当前的 FillColor 和 FillStyle 填充 线的宽度取决于 DrawWidth 属性值。执行 Line 方法时, CurrentX 和 CurrentY 属性被参数设置为终点。这个方法不能用于With 语句块。 ------------------------------------------------- ▲Move left[,top,width,height] ▲OLEDrag 引起部件初始化 OLE 拖放操作 ?当调用 OLEDrag 方法时,部件的 OLEStartDrag 事件发生,允许向目标部件提供数据。 ------------------------------------------------- ▲PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode 图形源, 放置坐标, 放置大小, 裁剪坐标, 裁 剪 大 小, 位操作 ?此方法绘制图形文件的部分内容,图形文件指.bmp, .wmf, .emf, .ico或 .dib, 通过使用负的目标 height1 或 width1, 可以水平或垂直翻转位图。 位操作符常数的完整列表,请参阅 VB Help 文件中的 RasterOp Constants 主题。 ------------------------------------------------- ▲Point(x, y) 返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色 ------------------------------------------------- ▲PopupMenu menuname, flags, x, y, boldcommand 显示弹出式菜单 菜单名, 位置和行为,坐标, 黑体菜单项 x,y 如果该参数省略,则使用鼠标的坐标。 调用 PopupMenu 方法后面的代码直到用户取消该菜单,或者从菜单中选择了命令 (这时,该命令的 Click 事件的代码比 PopupMenu 语句后面的代码先执行)后才执行
flag 的位置设置 | flag 的行为设置 0(缺省值)弹出式菜单的左边定位于 x | 0(缺省值) 仅响应鼠标 左击 4 弹出式菜单的于 x 居中位 | 2 左击、右击均响应 8 弹出式菜单的右边定位于 x | ------------------------------------------------- ▲PrintForm 将 Form 对象的图象逐位发送给打印机。 ?如果 AutoRedraw 属性为 True ,则在运行时PrintForm 将打印 Form 对象或 PictureBox 控件上的图形。 ▲PSet [Step] (x, y), [color] 将对象上的点设置为指定颜色。 所画点的尺寸取决于 DrawWidth 属性值,不能用在 With 语句块中 ------------------------------------------------- ▲Refresh 强制全部重绘一个窗体或控件 ?在下列情况下使用 Refresh 方法: 1 在另一个窗体被加载时显示一个窗体的全部。 2 更新诸如 FileListBox 控件之类的文件系统列表框的内容。 3 更新 Data 控件的数据结构。 ?不能用于 MDI 窗体,但能用于 MDI 子窗体。不能在 Menu 或 Timer 控件上使用 Refresh 方法。 ------------------------------------------------- ▲Scale (x1, y1) - (x2, y2) 用以定义 Form,PictureBox 或 Printer 的坐标系统。 左上角坐标 - 右下角坐标 ? 如果使用不带参数的 Scale(两组坐标都省略),坐标系统将重置为缇 。 ▲ScaleX (width, fromscale, toscale) ScaleY (height,fromscale, toscale) 从系统 到系统 ?将宽度或高度值从一种 ScaleMode 属性的度量单位转换到另一种。 用于 fromscale 和 toscale 设置有: vbUser 0 用户定义 vbTwips 1 缇(每逻辑英寸 1440 缇;每逻辑厘米 567 缇)。 vbPoints 2 磅(每逻辑英寸 72 点)。 vbPixels 3 像素 (显示器或打印机分辨率的最小单位)。 vbCharacters 4 字符(水平 = 每单位 120 缇,垂直 = 每单位 240 缇) vbInches 5 英寸 vbMillimeters 6 毫米 vbCentimeters 7 厘米 vbHimetric 8 HiMetric。如果省略 fromscale,则 HiMetric 为缺省值 vbContainerPosition 9 决定控件位置。 vbContainerSize 10 决定控件大小。 ------------------------------------------------- ▲SetFocus 将焦点移至指定的控件或窗体。 ?所以如果不是在 Load 事件过程完成之前首先使用 Show 方法显示窗体的话,是不能使用 SetFocus 方法将焦点移至正在自己的 Load 事件中加载的窗体的。 也 不能把焦点移到 Enabled 属性被设置为 False 的窗体或控件。 ------------------------------------------------- ▲TextHeight(string) 返回 Form,PictureBox 或 Printer 的当前字体的文本字符串的高度。 ? 返回值包括文本上下的正常前导空间,如果 string 含有 嵌入的回车返回符,将返回各行的累加高度 ▲TextWidth(string) 文本字符串的宽度 如果 string 含有嵌入的回车返回符,将返回最长行的宽度。 ------------------------------------------------- ▲WhatsThisMode 使鼠标指针改变为"这是什么"指针 ?把应用程序放置在如同在标题栏中单击"这是什么"按钮时所得的相同状态。 鼠标指针要改变为"这是什么"指针。当用户单击一个对象时,被击中的对象的 WhatsThisHelpID 属性用以调用上下文敏感的 Help。 ------------------------------------------------- ▲ZOrder position 将指定的 MDIForm,Form 或控件放置在其图层的z-顺序的前端或后端 如果 position 为 0 或被省略,则 object 定位在Z-顺序 前面。 如果 position 为 1, 则 object 定位在Z-顺序 后面。
==================form的事件================= ▲Activate( ) 事件 活动窗口 ▲Deactivate( ) 事件 不再是活动窗口时 ?仅当焦点在一个应用程序内移动时才发生。一个对象可以通过诸如单击它,或使用代码中的 Show 或 SetFocus ,或将窗体的 Visible 属性设置为 True方法之类的用户操作而变成活动的。 Activate 事件在 GotFocus 事件之前发生,LostFocus 事件在 Deactivate 事件之前发生。 ------------------------------------------------- ▲Click( ) 单击事件 ▲DblClick ( ) 双击事件 ▲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) ▲MouseMove(button As Integer, shift As Integer, x As Single, y As Single) button 值:左按钮(1 vbLeftButton),右按钮(2 vbRightButton),中间(4 vbMiddleButton) shift 值:SHIFT (1 vbShiftMask ),CTRL键(2 vbCtrlMask ),ALT (4 vbCtrlMask) ?位屏蔽的用法: a = (Button And vbLeftButton) > 0 b = (Shift And vbCtrlMask) > 0 If a And b Then ?接收 Mouse 事件的对象,事件按这样的次序发生MouseDown, MouseUp, Click, DblClick 和 MouseUp。如果在 Click 事件中有代码,则 DlbClick 事件将永远不会被触发 △ Click事件发生在: 1用鼠标的左键或右键单击一个控件。对 CheckBox, CommandButton, Listbox 或 OptionButton 控件来说,Click 事件仅当单击鼠标左键时发生。 2通过按下箭头键或者单击鼠标按钮,对 ComboBox 或 ListBox 控件中的项目进行选择。 3当 CommandButton,OptionButton 或 CheckBox 控件具有焦点时,按下 SPACEBAR 键。 4当窗体带有其 Default 属性设置为 True 的 CommandButton 控件时,按下 ENTER 键。 5当窗体带有一个 Cancel 按钮 - 其 Cancel 属性设置为 True 的 CommandButton 控件时, 按下 ESC 键。 6对控件按下一个访问键。例如,如果一个 CommandButton 控件的标题是 "&Go",则按下 ALT+G 键可触发该事件。 △ DblClick 事件在以下情形下发生: 1用鼠标左键双击控件。 2双击 Style 属性设置为 1(Simple) 的 ComboBox 控件中的项目,或者在 FileListBox , ListBox , DBCombo 或 DBList 控件中的项目。 ------------------------------------------------- ▲DragDrop(source As Control, x As Single, y As Single) 拖放事件 ▲DragOver(source As Control, x As Single, y As Single, state As Integer) 拖移事件 ------------------------------------------------- ▲GotFocus 获得焦点事件 触发条件:1 TAB 切换, 2 单击对象, 3 代码中用 SetFocus 方法 ▲LostFocus 失去焦点事件 ▲Initialize 创建类事件 在 Load 事件之前发生。 触发条件:1 用 CreateObject 函数创建类的一个实例,如: Set X = CreateObject("Project1.MyClass") 2 引用窗体或类实例的属性或事件,该属性或事件由用户代码自动创建。如: MyForm.Caption = "Example" ------------------------------------------------- ▲KeyDown (keycode As Integer, shift As Integer) 按键 事件 ▲KeyUp (keycode As Integer, shift As Integer) 放键 事件 ▲KeyPress (keyascii As Integer) 击ANSI键 事件 触发条件: 当一个对象具有焦点时按下或松开一个键时发生 如果 KeyPreview 属性被设置为 True,则一个窗体先于该窗体上的控件接收到此事件。 可用 KeyPreview 属性来创建全局键盘处理例程。
keycode 键代码,包含键盘上除以下三种情况外的所有键 1 Tab键。 2 当CommandButton 控件的 Default 属性设置为 True 时的 ENTER 。 3 当CommandButton 控件的 Cancel 属性设置为 True 时的 ESC 。 keyascii 标准数字 ANSI 键代码。将 keyascii 改变为 0 时可取消击键,对象便接收不到字符。 ------------------------------------------------- ▲Unload object (语句)卸载 Form 对象或控件数组元素 如果object为窗体,会发生 QueryUnload 事件,然后是 Unload 事件 ▲QueryUnload(cancel As Integer, unloadmode As Integer)(事件)卸载 ?该事件发生在Unload之前 cancel设置 0: 窗体和应用程序关闭。其他:不关闭。 unloadmode 返回触发 QueryUnload 事件的原因。见下: 0vbFormControlMenu 用户从窗体上的"控件"菜单中选择"关闭"指令。 1vbFormCode Unload 语句被代码调用。 2vbAppWindows 当前 Microsoft Windows 操作环境会话结束。 3vbAppTaskManager Microsoft Windows 任务管理器正在关闭应用程序。 4vbFormMDIForm MDI 子窗体正在关闭,因为 MDI 窗体正在关闭。 ▲Load (事件)装载窗体 ▲Unload(cancel As Integer)(事件)卸载窗体 cancel设置 0: 窗体被删除。其他:不被删除。 ▲Terminate (事件)所有引用都被从内存删除 ? 除类之外所有的对象,在 Unload 事件之后发生。 调用 End 语句,Terminate 事件不会触发。 ------------------------------------------------- ▲Paint 重绘对象时 触发条件:1对象大小、颜色改变,2覆盖该对象的窗体被移开之后,3使用 Refresh 方法时 如果 AutoRedraw 属性被设置为 True,重新绘图会自动进行,于是就不需要 Paint 事件。 ▲ Form_Resize 调整大小事件 ▲object_Resize(height As Single, width As Single) Resize的触发条件:当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生 ?AutoRedraw 属性被设置为 False 而且窗体被调整大小, 会按 Resize 和 Paint 的顺序调用相关的事件
|