学习VB循环语句之我见.docVIP

学习VB循环语句之我见VB 的循环语句有 4 大类，共 8 个小类，要全部掌握这些语句，可不是简单的事。实际上，只需要掌握其中两个小类，就足够对付任何循环的情况了。下面用计算 1+2+3+.+100 来看看这 8 个循环小类的特点：Private Sub Command1_Click() Dim I As Long, S As Long 一、例子 ：For.Next 循环 For I = 1 To 100 S = S + I Next MsgBox For.Next：1+2+3+.+100 = & S二、 Do.Loop 循环例子： 在 Do 和 Loop 后面不使用任何关键字，在循环体内加入判断语句退出循环 I = 0: S = 0 Do I = I + 1 If I 100 Then Exit Do S = S + I Loop MsgBox Do.Loop：1+2+3+.+100 = & S例子：在 Do 后面使用 While 关键字I 小于 100 就进入循环 I = 0: S = 0 Do While I 100 I = I + 1 S = S + I Loop MsgBox Do While：1+2+3+.+100 = & S例子：在 Loop 后面使用 While 关键字I 不是小于 100 就退出循环（不论 I 的值是多少，循环体至少会执行一次） I = 0: S = 0 Do I = I + 1 S = S + I Loop While I 100 S = S + I I = I + 1 Loop MsgBox Do Until：1+2+3+.+100 = & S例子：在 Loop 后面使用 Until 关键字I 大于 100 就退出循环（不论 I 的值是多少，循环体至少会执行一次） I = 0: S = 0 Do S = S + I I = I + 1 Loop Until I 100 MsgBox Loop Until：1+2+3+.+100 = & S三、While.Wend 循环例子：I 小于 100 就执行循环，与例子 Do While I 100 完全相同 I = 0: S = 0 While I 100 I = I + 1 S = S + I Wend MsgBox While.Wend：1+2+3+.+100 = & S四、例子：Goto 语句 I = 0: S = 0Mark1: I = I + 1 S = S + I If I = B + 0.5 Then B = B + 1 Text2.Text = BEnd Sub2. VB如何在自己的程序中弹出新网页用 WebBrowser 做的浏览器，当使用右键菜单“在新窗口中打开”，或单击网页链接弹出新网页时，不是弹出自己程序的浏览器窗口，而是一个新的IE窗口。如何在自己的程序中弹出新网页，下面的方法能解决这个问题。在菜单“工程部件”中勾选： Microsoft Internet Controls，然后在控件工具栏中找到控件 WebBrowser（图标像一个地球），在窗体放一个控件：WebBrowser1，将下面代码复制到 Form1 中。方法1：Private WithEvents V1 As WebBrowser_V1Private Sub Form_Load() Set V1 = WebBrowser1.Object WebBrowser1.Navigate End SubPrivate Sub V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean) 注意：WebBrowser1_NewWindow2 过程中不能放任何代码，否则不会触发此事件 Dim NewWin As New Form1 注意浏览器主窗口名称，我用的是默认名称：Form1 Processed = True 阻止弹出 IE NewWin.Show NewWin.WebBrowser1.Navigate URL 在自己的程序中的新窗口显示弹出网页End Sub方法2：Private Sub Form_Load() WebBrowser1.Navigate End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Dim NewWin As New Form1 Cancel = True 表示取消弹出新窗口 DSet ppDisp = NewWin.WebBrowser1.Object NewWin.ShowEnd Sub方法 2 的缺点是：当单击右键菜单“打开”，希望在本窗口打开网页时，仍然会弹出新窗口3. 清除列表框的重复数据首先，在属性窗口设置 List1 的 Sorted 属性为 True，即 List1 是自动排序的。 Private Sub Command1_Click() Dim nStr As String nStr = List1.List(List1.ListCount - 1) For I = List1.ListCount - 2 To 0 Step -1 If List1.List(I) = nStr Then List1.RemoveItem I Else nStr = List1.List(I) End If NextEnd SubForm 窗体对象、Forms() 集合 Forms 集合在所有装载的窗体之间迭代 Forms(index) index 所在处是一个整数，变化范围从 0 到 Forms.Count - 1。 =form的属性= ActiveControl 活动控件（只读） 无论窗体是否是活动的 ？如果在窗体上的所有控件都是不可见的或不可使用的，那么将产生一个运行时错误。 Appearance 绘图风格（只读） 0 平面， 1（缺省值） 3D AutoRedraw 自动重绘tf - BackColor 背景颜色 当BackStyle 属性的设置值为 0（透明）时有效 ForeColor 前景颜色 BorderStyle 边框样式，对 Form 对象和 Textbox 控件在运行时是只读的。 vbBSNone 无（没有边框或与边框相关的元素）。 vbFixedSingle 固定单边框。可以包含控制菜单框，标题栏 ，最大化按钮，和最小化按钮。 ？只有使用最大化和最小化按钮才能改变大小。 vbSizable 可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。（缺省） vbFixedDouble 固定。可以包含控制菜单框和标题栏，不能包含最大化和最小化按钮，不能改变尺寸 vbFixedToolWindow 固定。显示关闭按钮并用缩小的字体显示标题栏。任务条中不显示。 vbSizableToolWindow 可变大小。显示关闭按钮并用缩小的字体显示标题栏。任务条中不显示。 ？将 BorderStyle 设置为0就会删除边框。如果希望窗体有边框而没有标题栏、控制菜单框、最大 化按钮和最小化按钮，则应从窗体 Caption 属性中删除任何文本，同时将窗体的 ControlBox、 MaxButton 和 MinButton 属性设置为 False。 MaxButton 是否有最大化按钮 （BorderStyle 属性非值有效） MinButton 是否有最小化按钮。（BorderStyle 属性非值有效） ControlBox 控制菜单框是（T缺省值）否在窗体中显示。在运行时为只读。 ShowInTaskbar 决定一个 Form 对象是否出现在 Windows 95 任务栏中。运行时为只读状态。 WindowState 运行时窗体窗口的可视状态 0（缺省值）正常。 1最小化。 2最大化 - FillColor 填充颜色 当 FillStyle 设置为 1（透明）时有效，但是 Form 对象除外。 FillStyle 填充模式 实线。 （缺省值）透明。 水平直线。 垂直直线。 上斜对角线。 下斜对角线。 十字线。 交叉对角线 DrawWidth 画线宽度 从 1 到 32,767。该值以像素为单位 DrawStyle 画线样式 0（缺省）实线， 1虚线， 2点线， 3点划线， 4双点划线， 5无线， 6内收实线 DrawMode 绘图方式 黑色。非或笔（与15相反）。 与非笔。非复制笔（与13相反）。与笔非。 反转 异或笔 。非与笔（与9相反）。 与笔。非异或笔（与7相反）。 无操作(关闭画图) 或非笔。 复制笔（缺省值 , 由 ForeColor 属性指定的颜色）。 或笔非 。或笔。白色。 - 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对象除具有以下个类似属性外，还具有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的方法= CircleStep (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事件发生在： 用鼠标的左键或右键单击一个控件。对 CheckBox, CommandButton, Listbox 或 OptionButton 控件来说，Click 事件仅当单击鼠标左键时发生。 通过按下箭头键或者单击鼠标按钮，对 ComboBox 或 ListBox 控件中的项目进行选择。 当 CommandButton,OptionButton 或 CheckBox 控件具有焦点时，按下 SPACEBAR 键。 当窗体带有其 Default 属性设置为 True 的 CommandButton 控件时，按下 ENTER 键。 当窗体带有一个 Cancel 按钮 - 其 Cancel 属性设置为 True 的 CommandButton 控件时， 按下 ESC 键。 对控件按下一个访问键。例如，如果一个 CommandButton 控件的标题是 &Go，则按下 ALT+G 键可触发该事件。 DblClick 事件在以下情形下发生： 用鼠标左键双击控件。 双击 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 键代码，包含键盘上除以下三种情况外的所有键 Tab键。 当CommandButton 控件的 Default 属性设置为 True 时的 ENTER 。 当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 事件的原因。见下： vbFormControlMenu 用户从窗体上的控件菜单中选择关闭指令。 vbFormCode Unload 语句被代码调用。 vbAppWindows 当前 Microsoft Windows 操作环境会话结束。 vbAppTaskManager Microsoft Windows 任务管理器正在关闭应用程序。 vbFormMDIForm MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。 Load （事件）装载窗体 Unload(cancel As Integer)（事件）卸载窗体 cancel设置 0： 窗体被删除。其他：不被删除。 T