vb知识总结.docx
《vb知识总结.docx》由会员分享,可在线阅读,更多相关《vb知识总结.docx(21页珍藏版)》请在冰点文库上搜索。
vb知识总结
9.VB常数词汇表
VB常数很多,许多控件都定义有常数,下面列出常用的常数表'■VB:
字符串常数
vbBack Backpace字符常数 等效于Chr$(8)
vbCr 回车符常数(无换行符) 等效于Chr$(13)
vbLf 换行符常数(无回车) 等效于Chr$(10)
vbCrLf 回车/换行符组合常数 等效于Chr$(13)+Chr$(10)
vbFormFeed formfeed的常数 等效于Chr$(12)
vbNewLine NewLine常数;特定平台
vbNullChar Null字符的Basic常数 等效于Chr$(0)
vbNullString 空字符串 等效于""
vbTab Tab符常数(ASCII9) 等效于Chr$(9)
vbVerticalTab 垂直Tab符常数 等效于Chr$(11)
vbObjectError 指示一个VisualBasic对象返回的错误的常数
'──────────────────────
'■MsgBox:
系统对话框函数常数
vbOKOnly 0 只显示OK按钮。
VbOKCancel 1 显示OK及Cancel按钮。
VbAbortRetryIgnore 2 显示Abort、Retry及Ignore按钮。
VbYesNoCancel 3 显示Yes、No及Cancel按钮。
VbYesNo 4 显示Yes及No按钮。
VbRetryCancel 5 显示Retry及Cancel按钮。
VbCritical 16 显示CriticalMessage图标。
VbQuestion 32 显示WarningQuery图标。
VbExclamation 48 显示WarningMessage图标。
VbInformation 64 显示InformationMessage图标。
VbDefaultButton1 0 第一个按钮是缺省值。
VbDefaultButton2 256 第二个按钮是缺省值。
VbDefaultButton3 512 第三个按钮是缺省值。
VbDefaultButton4 768 第四个按钮是缺省值。
VbApplicationModal 0 应用程序强制返回;应用程序一直被挂起,直到用户对消息框作出响应才继续工作。
VbSystemModal 4096系统强制返回;全部应用程序都被挂起,直到用户对消息框作出响应才继续工作。
'──────────────────────
'■PopupMenu:
弹出菜单对齐常数
vbPopupMenuLeftAlign0弹出菜单左对齐
vbPopupMenuCenterAlign4弹出菜单居中
vbPopupMenuRightAlign8弹出菜单右对齐
'──────────────────────
'■PopupMenu:
弹出菜单鼠标按键的识别
vbPopupMenuLeftButton0弹出菜单仅识别鼠标左键
vbPopupMenuRightButton2弹出菜单识别鼠标左键和右键
'──────────────────────
'■BorderStyle:
窗体边框
vbBSNone 0无边框
vbFixedSingle 1固定单线框
vbSizable 2可变尺寸框(仅对窗体)
vbFixedDoubleialog 3固定双线框(仅对窗体)
vbFixedToolWindow 4固定工具窗口
vbSizableToolWindow 5可变工具窗口
'──────────────────────
'■BorderStyle:
形状和直线类型
vbTransparent 0透明
vbBSSolid 1实线
vbBSDash 2虚线
vbBSDot 3点线
vbBSDashDot 4点划线
vbBSDashDotDot 5双点划线
vbBSInsideSolid 6内收实线
'──────────────────────
'■Clipboard:
剪贴板数据格式
vbCFRTF -16639 RichText格式(rtf文件)
vbCFLink -16640 DDE对话信息
vbCFText 1 文本(.txt文件)
vbCFBitmap 2 位图(.bmp文件)
vbCFMetafile 3 元文件(.wmf文件)
vbCFDIB 8 与设备无关的位图
vbCFPalette 9 调色板
vbCFEMetaFile 14 增强型图元文件(.emf文件)
vbCFFiles 15 来自Windows资源管理器的文件列表
'──────────────────────
'■CommonDialog:
对话框-文件打开/保存
cdlOFNAllowMultiselect &H200 指定文件名列表框允许多种选择。
用户在运行时可按下SHIFT键选择多个文件并用UPARROW与DOWNARROW键选择所要。
然后,FileName属性包含所有选定文件的字符串。
用空格来为字符串中的名字分界。
cdlOFNCreatePrompt &H2000 指定对话框提示用户创建当前不存在的文件。
该标记自动设置cdlOFNPathMustExist与cdlOFNFileMustExist标记。
cdlOFNExplorer &H80000 使用“Explorer-likeOpenAFile”对话框模板。
在Windows下使用Windows95外壳时,使用该标记的公共对话框不工作。
cdlOFNExtensionDifferent&H400 指出被返回的文件名的扩展名不同于DefaultExt属性指定的扩展名。
如果DefaultExt属性是Null,如果扩展名匹配,或者如果文件无扩展名,则都不设置该标记。
关闭了对话框后就可检查该标记值。
cdlOFNFileMustExist &H1000 指定用户可只在文件名文本框中输入现有文件名。
如果设置了该标记,而且用户输入一个无效文件名,则将出现一个警告。
该标记自动设置cdlOFNPathMustExist标记。
cdlOFNHelpButton &H10 使对话框显示帮助按钮。
cdlOFNHideReadOnly &H4 隐藏只读复选框。
cdlOFNLongNames &H200000使用长文件名。
cdlOFNNoChangeDir &H8 强制对话框将当前目录设置成在打开对话框时的目录。
cdlOFNNoDereferenceLinks&H100000不间接引用外壳链接(所谓快捷方式)。
根据缺省,选择外壳链接回使外壳间接引用它。
cdlOFNNoLongNames &H40000 不使用长文件名。
cdlOFNNoReadOnlyReturn &H8000 指定被返回的文件将不会有只读属性设置,也不会在写保护目录中。
cdlOFNNoValidate &H100 指定公共对话框在被返回的文件名中允许无效字符。
cdlOFNOverwritePrompt &H2 如果被选择的文件已经存在,则使“另存为”对话框生成消息框。
用户必须确认是否覆盖文件。
cdlOFNPathMustExist &H800 指定用户可只输入有效的路径。
如果设置该标记且用户输入无效路径,则出现一个警告消息。
cdlOFNReadOnly &H1 使在创建对话框时,开始检查只读复选框。
在关闭对话框时,该标记也指出只读复选框的状态。
cdlOFNShareAware &H4000 指定将忽略共享冲突错误。
'──────────────────────
'■CommonDialog:
对话框-颜色
cdCClFullOpen &H2 显示整个对话框,包括定义自定义颜色区
cdlCCShowHelp &H8 使对话框显示帮助按钮
cdlCCPreventFullOpen &H4 使定义自定义颜色按钮无效,并防止用户定义自定义颜色
cdlCCRGBInit &H1 设置对话框的初始颜色值
'──────────────────────
'■CommonDialog:
对话框-字体
cdlCFANSIOnly &H400 指定对话框只允许选择使用Windows字符设置的字体。
如果设置该标记,则用户将不能选择只包含符号的字体。
cdlCFApply &H200 启动对话框上的应用按钮。
cdlCFBoth &H3 使对话框列举可用的打印机与屏幕字体。
hDC属性识别与打印机相关联的设备描述体。
cdlCFEffects &H100 指定对话框使划线、下划线与颜色生效。
cdlCFFixedPitchOnly &H4000 指定对话框只选择固定间距的字体。
cdlCFForceFontExist &H10000 指定如果用户要选择不存在的字体或式样,则显示错误消息框。
cdlCFHelpButton &H4 使对话框显示帮助按钮。
cdlCFLimitSize &H2000 指定对话框只在Min与Max属性指定的范围内选择字体大小。
cdlCFNoFaceSel &H80000 未选择字体名称。
cdlCFNoSimulations &H1000 指定对话框不允许图形设备接口(GDI)字体模拟。
cdlCFNoSizeSel &H200000 未选择字体大小。
cdlCFNoStyleSel &H100000
cdlCFNoVectorFonts &H800 指定对话框不允许选择矢量字体。
cdlCFPrinterFonts &H2 使对话框只列举hDC属性指定的打印机所支持的字体。
cdlCFScalableOnly &H20000 指定对话框只允许选择可缩放的字体。
cdlCFScreenFonts &H1 使对话框只列举系统支持的屏幕字体。
cdlCFTTOnly &H40000 指定对话框只允许选择TrueType字体。
cdlCFWYSIWYG &H8000 指定对话框只允许选择既可在打印机上又可在屏幕上使用的字体。
如果设置该标记设置,则也应设置cdlCFBoth与cdlCFScalableOnly标记。
'──────────────────────
'■CommonDialog:
对话框-打印
cdlPDAllPages &H0 返回或设置所有页选项按钮的状态。
cdlPDCollate &H10 返回或设置分页复选框的状态。
cdlPDDisablePrintToFile&H80000 使打印到复选框无效。
cdlPDHelpButton &H800 使对话框显示帮助按钮。
cdlPDHidePrintToFile &H100000隐藏打印到文件复选框。
cdlPDNoPageNums &H8 使页选项按钮与相关联的编辑控件无效。
cdlPDNoSelection &H4 使选择选项按钮无效。
cdlPDNoWarning &H80 防止在没有缺省打印机时显示警告消息。
cdlPDPageNums &H2 返回或设置页选项按钮的状态。
cdlPDPrintSetup &H40 使系统显示“打印设置”对话框而不是“打印”对话框。
cdlPDPrintToFile &H20 返回或设置打印到文件复选框的状态。
cdlPDReturnDC &H100 返回设备描述体以在对话框中选择打印机。
在对话框的hDC属性中返回设备描述体。
cdlPDReturnDefault &H400 返回缺省打印机名称。
cdlPDReturnIC &H200 返回信息上下文以在对话框中选择打印机。
信息上下文提供快速方法获得有关设备的信息,而不必创建设备描述体。
在对话框hDC属性中返回信息上下文。
cdlPDSelection &H1 返回或设置选择选项按钮的状态。
如果既没有指定cdlPDPageNums也没有指定cdlPDSelection,则所有选项按钮处在选择状态中。
cdlPDUseDevModeCopies &H40000 如果打印机驱动程序不支持多个复本,则设置该标记使复本编辑控件无效。
如果驱动程序支持多个复本,则设置该标记指出对话框在复本属性中存储所需数量的复本。
'──────────────────────
'■CommonDialog:
对话框-Help常数
cdlHelpCommandHelp &H102 对具体命令显示帮助
cdlHelpContents &H3 显示当前帮助文件中的内容主题
cdlHelpContext &H1 对具体主题显示帮助
cdlHelpContextPopup &H8 显示上下文号识别的主题
cdlHelpForceFile &H9 创建帮助文件,它只用一种字体显示文本
cdlHelpHelpOnHelp &H4 显示帮助来使用帮助应用程序本身
cdlHelpIndex &H3 显示被指定的帮助文件索引
cdlHelpKey &H101 对具体关键字显示帮助
cdlHelpPartialKey &H105 在Windows帮助中调用搜索引擎
cdlHelpQuit &H2 指出指定帮助文件的帮助应用程序不再被使用
cdlHelpSetContents &H5 指定特定主题作为内容主题
cdlHelpSetIndex &H5 对多索引帮助设置当前索引
'──────────────────────
'■Picture:
图像对象常数
vbPicTypeNone 0Picture对象的图标类型
vbPicTypeBitmap 1Picture对象的位图类型
vbPicTypeMetafile 2Picture对象的元文件类型
vbPicTypeIcon 3Picture对象的图标类型
vbPicTypeEMetaFile 4Picture对象的增强元文件类型
'──────────────────────
'■VarType:
变量类型函数常数
vbEmpty 0未初始化(缺省值)
vbNull 1不含任何有效数据
vbInteger 2Integer
vbLong 3长整数
vbSingle 4单精度浮点数
vbDouble 5双精度浮点数
vbCurrency 6Currency
vbDate 7Date
vbString 8String
vbObject 9对象
vbError 10错误
vbBoolean 11Boolean
vbVariant 12Variant(只用于变体的数组类型)
vbDataObject 13数据访问对象
vbDecimal 14Decimal
vbByte 17Byte
vbArray 8192数组
'──────────────────────
'■变体类型常数
vbVEmpty 0空值(未初始化)
vbVNull 1Null(无有效的数据)
vbVInteger 2整数型数据类型
vbVLong 3长整数型数据类型
vbVSingle 4单精度浮点型数据类型
vbVDouble 5双精度浮点型数据类型
vbVCurrency 6货币型(变比的整数)数据类型
vbVDate 7日期型数据类型
vbVString 8字符串型数据类型
'──────────────────────
'■WindowState:
窗体状态
vbNormal0普通
vbMinimized1最小化的
vbMaximized2最大化的
'──────────────────────
'■Show:
窗体显示参数
vbModal 1有模式窗体
vbModeless 0无模式窗体
'──────────────────────
'■MDI窗体的Arrange方法
vbCascade 0层叠所有非最小化的MDI子窗体
vbTileHorizontal 1水平平铺所有非最小化的MDI子窗体
vbTileVertical 2垂直平铺所有非最小化的MDI子窗体
vbArrangeIcons 3重排所有最小化的MDI子窗体的图标
'──────────────────────
'■ComboBox:
下拉式列表框方式
vbComboDropdown 0 下拉式组合框
vbComboSimple 1 简单组合框
vbComboDropdownList 2 下拉式列表框
'──────────────────────
'■CheckBox:
选择按钮状态
vbUnchecked0未选中
vbChecked1选中
vbGrayed2变灰
'──────────────────────
'■ListBox:
列表框类型
vbListBoxStandard 0 标准的WindowsListBox外观
vbListBoxCheckBox 1 列表框项目包含可选择的CheckBoxes
vbMultiSelectNone 0 无多种选择
vbMultiSelectSimple 1 简单的多种选择
vbMultiSelectExtended 2 扩展的多种选择
'──────────────────────
'■ScrollBar:
滚动条类型
vbSBNone 0 无
vbHorizontal 1 水平
vbVertical 2 垂直
vbBoth 3 水平和垂直
'──────────────────────
'■Shape:
形状类型
vbShapeRectangle 0矩形
vbShapeSquare 1正方形
vbShapeOval 2椭圆形
vbShapeCircle 3圆形
vbShapeRoundedRectangle4圆角矩形
vbShapeRoundedSquare 5圆角正方形
用递归法打印三角形
PrivateSubCommand1_Click()
DimxAsSingle,yAsSingle,aAsSingle
Me.Cls:
Me.AutoRedraw=True
a=Me.ScaleWidth*0.5
x=Me.ScaleWidth*0.5
y=(Me.ScaleHeight-a)*0.5
CallDrawDG(x,y,a,5)'N为5的情况
EndSub
PrivateSubDrawDG(xAsSingle,yAsSingle,aAsSingle,NAsLong,OptionalSAsLong)
Dimx1AsSingle,y1AsSingle,bAsSingle,S1AsLong
Me.Line(x,y)-Step(a*0.5,a)
IfS=0ThenMe.Line-Step(-a,0)ElseLine-Step(a*0.5,-a)
Me.Line-(x,y)
IfS>N-2ThenExitSub
CallDrawDG(x-a*0.25,y+a*0.5,a*0.5,N,S+1)
IfS=0ThenExitSub
CallDrawDG(x+a*0.25,y-a*0.5,a*0.5,N,S+1)
CallDr