【VB开源代码栏目提醒】：网学会员VB开源代码为您提供VB编程 常用控件 - 讲义教程参考，解决您在VB编程 常用控件 - 讲义教程学习中工作中的难题，参考学习。

    

VB程序设计——常用控件名名茂院院学学1 选择性控件2 滚动条了解3 时钟控件4 图形控件5 高级控件了解6 综合应用举例了解VB程序设计——常用控件名名茂院院学学1: 窗体窗口2: 标签3: 文本框4: 命令按钮VB程序设计——常用控件名名茂院院学学一: 控件的公共属性Name Caption Enabled VisibleLeft Top Height WidthBackColor ForeColorFontName FontSize FontBold FontItalic FontStrikethru、FontUnderlineFont对象属性: Name Bold Size Bold ItalicUnderline StrikethroughVB程序设计——常用控件名名茂院院学学二: 标签1: 主要功能利用Caption属性来作程序中的提示文字。

    2: 主要属性Caption Autosize Alignment BorderStyle3: 主要事件4: 主要方法VB程序设计——常用控件名名茂院院学学三: 文本框1: 主要功能在表单上输入、输出数据2: 主要属性Text SelTextPasswordChar 默认值为空。

    Locked True:内容可编辑False:内容不能编辑MaxLength 设置文本框中允许输入的最大字符数MultiLine True:文本框中允许输入多行文字3: 主要事件Change KeyPress LostFocus4: 主要方法SetFocusVB程序设计——常用控件名名茂院院学学四: 命令按钮1: 主要作用利用鼠标点击事件编写程序2: 主要属性CaptionDefault 该属性被设置True时若窗体中所有的按钮都不具有焦点则按回车键与单击该命令的按钮作用相同。

    在一个窗体中只允许有一个命令按钮的Default属性设为True Cancel 该属性设为True时按键盘上的Esc键与单击该命令作用相同。

    在一个窗体中只允许有一个按钮的Cancel属性设为True3: 主要事件Click 4: 主要方法SetFocusVB程序设计——常用控件名名茂院院学学1.单选钮OptionButton 2.检查框CheckBox3.列表框ListBox4.组合框ComboBox5.框架FrameVB程序设计——常用控件名名茂院院学学一: 单选钮OptionButton1: 主要功能有“选中”和“不选”两种状态多个单选钮组成一组从这一组中只能选取一个2: 主要属性CaptionValue 逻辑型 True:被选中False:未被选中3: 主要事件Click 4: 主要方法VB程序设计——常用控件名名茂院院学学二: 检查框CheckBox1: 主要功能有“选中”和“不选”两种状态多个检查框组成一组从这一组中可选取多个2: 主要属性CaptionValue 数值型 0 :检查框未被选中1 :检查框被选中2 :检查框被禁止操作显示灰色3: 主要事件Click 4: 主要方法VB程序设计——常用控件名名茂院院学学【例1】用单选钮和检查框设置文本框的字体示例如下图。

    VB程序设计——常用控件名名茂院院学学Private Sub Option1_Click??宋体Text1.FontName 宋体End SubPrivate Sub Option2_Click ??黑体Text1.FontName 黑体End SubPrivate Sub Check1_Click??加粗If Check1.Value 1 ThenText1. FontBold TrueElseText1. FontBold FalseEnd IfEnd SubPrivate Sub Check2_Click ??斜体If Check2.Value 1 ThenText1.FontItalic TrueElseText1.FontItalic FalseEnd IfEnd Sub……VB程序设计——常用控件名名茂院院学学如果本题窗口上还有一Command1按钮要求是先选择字体和文字效果再按按钮确定文本框内容呢Private Sub Command1_Clickif Option1.Value then??宋体Text1.FontName 宋体ElseText1.FontName 黑体EndifIf Check1.Value 1Then ??加粗Text1. FontBold TrueElseText1. FontBold FalseEnd IfIf Check2.Value 1Then ??斜体Text1.FontItalic TrueElseText1.FontItalic FalseEnd If……End SubVB程序设计——常用控件名名茂院院学学三: 框架Frame1: 主要作用①放置一组单选钮②美观创建: 建立框架→画出其它控件2: 主要属性Caption注: 它属于容器类控件所以框架内的所有控件随框架一起移动、显示、消失和屏蔽。

    3: 主要事件4: 主要方法VB程序设计——常用控件名名茂院院学学【例2】框架的应用示例如下图。

    VB程序设计——常用控件名名茂院院学学Private Sub Command1_ClickIf Option1.Value True And Option3.Value True ThenText1.Text 您选择了宋体红色Text1.FontName 宋体Text1.ForeColor vbRedEnd IfIf Option1.Value True And Option4.Value True ThenText1.Text 您选择了宋体绿色Text1.FontName 宋体Text1.ForeColor vbGreenEnd IfIf Option2.Value True And Option3.Value True ThenText1.Text 您选择了黑体红色Text1.FontName 黑体Text1.ForeColor vbRedEnd IfIf Option2.Value True And Option4.Value True ThenText1.Text 您选择了黑体绿色Text1.FontName 黑体Text1.ForeColor vbGreenEnd IfEnd SubVB程序设计——常用控件名名茂院院学学四: 列表框ListBox1: 主要作用显示多个选择项供用户选择。

    特征: 只能从其中选择而不能直接修改其中的内容。

    2: 主要属性Text List ListIndex ListCount SortedSelected: P 逻辑数组Selectedi的值为True表示第i1项被选中。

    MultiSelect0-None: 禁止多项选择。

    1-Simple: 简单多项选择。

    2-Extended: 扩展多项选择。

    3: 主要事件4: 主要方法Additem RemoveItem ClearVB程序设计——常用控件名名茂院院学学P: 可在程序中设置或引用D: 可在设计状态设置。

    List : PD字符型数组存放列表框的项目下标是从0开始。

    ListIndex: P选中的项目的序号没有项目被选定时为-1ListCount: P项目的数量ListCount-1是最后一项的下标。

    Sorted: DTrue: 按字母顺序排列。

    False: 按加入先后顺序排列。

    Text: P列表项与组合框中被选定的内容。

    List1.TextList1.ListList1.ListIndex VB程序设计——常用控件名名茂院院学学List1VB程序设计——常用控件名名茂院院学学列表框的主要方法AddItem方法格式: 列表框名.AddItem 项目字符串位置值该方法是将项目字符串所指定的一个项目插入到由位置值所指定的位置上。

    每插入一项ListCount属性值都会自动加1。

    位置值可以从0到ListCount-1变化。

    若省略位置值则新增项目添加到列表框最后面。

    Clear方法格式: 列表框名.Clear该方法用于清除列表框中的所有项目此时ListCount属性值置0。

    RemoveItem方法格式: 列表框名.RemoveItem 位置值该方法将指定位置上的项目从列表框中删除此时ListCount属性值自动减1。

    VB程序设计——常用控件名名茂院院学学【例3】列表框项目添加和删除示例如下图。

    VB程序设计——常用控件名名茂院院学学五: 组合框ComboBox1: 主要作用拥有文本框和列表框的功能在列表框中列出可供用户选择的选项当用户选定某项后该项内容自动装入文本框中。

    特征: 可以像文本框一样接受用户的输入也能像列表框一样列举多个项目供用户选择。

    2: 主要属性Text List ListIndex ListCount Sorted Style3: 主要事件4: 主要方法Additem RemoveItem ClearVB程序设计——常用控件名名茂院院学学组合框的特有的重要属性:Style类型Style输入下拉式组合框0能简单组合框1能下拉式列表框2不能 下拉式组合框 简单组合框 下拉式列表框 VB程序设计——常用控件名名茂院院学学【例4】组合框示例如下图。

    VB程序设计——常用控件名名茂院院学学主要作用:附在窗体上协助观察数据或确定位置作为数据输入的工具。

    主要属性:Max: 最大值-3276832767Min: 最小值-3276832767SmallChange: 用户单击滚动条两端箭头时 滑块移动的增量值.LargeChange: 用户单击滚动条的空白处滑块移动的增量值。

    Value: 滚动条内滑块所处位置所代表的值。

    主要事件: Scroll: 拖动滑块时触发。

    Change: 滚动条内滑块位置改变时发生。

    VB程序设计——常用控件名名茂院院学学作用: 以一定的时间间隔激发计时器事件而执行相应的程序代码。

    属性: Interval属性单位: ms0.001s0.5秒是500。

    Interval0: 屏蔽计时器。

    范围: 065535ms最大约65s。

    Enabled属性True: 有效计时False: 停止时钟工作事件: TimerVB程序设计——常用控件名名茂院院学学【例6】时钟控件示例。

    Private Sub Command1_ClickTimer1.Enabled True设置时钟可用End SubPrivate Sub Command2_ClickTimer1.Enabled False设置时钟不可用End SubPrivate Sub Timer1_TimerText1.Text Text1.Text 1每隔一秒文本框中的数加1End SubVB程序设计——常用控件名名茂院院学学1.图片框和图像框图片框图片框PictureBox主要用来显示图片图象。

    1在设计阶段装入图片改变属性窗口中的Picture属性2在运行期间装入图片对象名.PictureLoadPicture文件名如: Picture1.PictureLoadPicturec: windowsBubbles.bmp删除图片框的图形也同样使用LoadPicture如: Picture1.Picture LoadPictureVB程序设计——常用控件名名茂院院学学图片框的Autosize属性: 决定控件是否自动适应图片的大小true: 图片框自动调整大小适应图片。

    false: 图片框不能自动调整大小加载的图形保持其原始尺寸。

    图1AutoSize属性为False 图2AutoSize属性为True VB程序设计——常用控件名名茂院院学学图象框图象框Image作用与图片框类似区别在于: 1、图片框可以作为其它控件的容器2、图片框可以通过Print方法显示文本3、图像框比图片框占用内存少显示速度快图像框的Strech属性: 决定图片是否自动适应控件的大小true: 被加载图形自动调整大小适应图象框的大小。

    false: 图象框自动调整大小适应加载的图形。

    图3图像框本来大小图4Stretch属性为False 图5Stretch属性为True VB程序设计——常用控件名名茂院院学学【例7】图片框示例。

    在窗体Form1上画一个图片框高为1900宽为2400。

    请编写适当的事件过程使得在运行时如果单击窗体则装入D盘下的文件名为Pic1.bmp的图片如图6所示如果双击窗体则图片框中的图片消失。

    图6 图片框示例VB程序设计——常用控件名名茂院院学学程序清单如下: PrivateSubForm_ClickP1.PictureLoadPicture〃D: Pic1.bmp〃′ 装入图片EndSubPrivateSubForm_DblClick P1.PictureLoadPicture〃〃′ 清除图片EndSubVB程序设计——常用控件名名茂院院学学【例8】交换图形。

    编写程序交换两个图像框中的图形。

    建立程序界面如图7所示。

    在窗体上建立三个图像框一个命令按钮。

    然后进行属性设置。

    图7 “交换图形”设计界面图8 “交换图形”运行界面VB程序设计——常用控件名名茂院院学学程序清单如下: Private Sub Command1_Click′交换图片Image3.Picture Image1.PictureImage1.Picture Image2.PictureImage2.Picture Image3.PictureImage3.PictureLoadPicture End SubVB程序设计——常用控件名名茂院院学学2. 形状和直线形状形状控件Shape用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。

    通过设置Shape属性可以得到需要的图形。

    Shape属性设置值如下表所示: Shape属性值形状0矩形默认值1正方形2椭圆3圆4圆角矩形5圆角正方形VB程序设计——常用控件名名茂院院学学直线:直线控件Line用来画水平线、垂直线及对角线。

    通过设置该控件的位置、长度、颜色、宽度、线型等属性可以产生不同风格、颜色的直线。

    直线控件的主要属性如下: BorderStyle: 用于设置属性的类型它的属性设置如下表: BorderStyle属性值线型0透明线1实线默认值2虚线当BorderWidth为1时有效3点线当BorderWidth为1时有效4点划线当BorderWidth为1时有效5双点划线当BorderWidth为1时有效6内收实线边框的外边界就是形状的外边缘VB程序设计——常用控件名名茂院院学学BorderWidth: 用于设置线条的宽度即线条粗细。

    BorderColor: 用于设置线条颜色。

    X1、X2、Y1、Y2: 用于设置直线的起点和终点。

    在运行时要移动或调整直线控件大小可以通过改变X1、X2、Y1、Y2属性来进行。

    【例9】形状控件示例。

    【例10】形状控件和直线控件绘制直方图示例。

    VB程序设计——常用控件名名茂院院学学2 图形方法图形控件主要用来显示图形和进行简单的图形绘制如果要实现高级绘图功能则需要采用图形方法。

    画点方法Pset方法用于在指定位置以指定颜色画点。

    格式如下: 对象名.Psetstepxy颜色其中: 对象名: 可以是窗体或图片框的名称缺省为当前窗体名。

    Step: 可选项有该参数时表明所画的点坐标XY是相对坐标相对于当前坐标点由CurrentXCurrentY决定而言没有该参数时点坐标XY是绝对坐标。

    颜色: 点的颜色若省略则采用对象的前景色ForeColor画点。

    颜色为RGB颜色值如: Pset7070RGB2552550 ′设置点为黄色Pset7070BackColor′设置点为背景色VB程序设计——常用控件名名茂院院学学【例11】窗体上随机画带颜色的点示例如下图。

    【例12】用Pset方法绘制曲线示例。

    VB程序设计——常用控件名名茂院院学学画直线、矩形方法Line方法用于画直线和矩形。

    格式如下: 对象名.Linestepx1y1-stepx2y2颜色BF其中: 对象名: 可以是窗体或图片框的名称缺省为当前窗体名。

    Step: 可选项有该参数时表示坐标为相对于当前点的坐标否则为绝对坐标。

    x1y1: 可选项起点坐标。

    如果省略表示起点为CurrentXCurrentY。

    x2y2: 终点或右下角坐标。

    颜色: 直线或矩形的颜色如果省略则使用Forecolor属性指定的颜色。

    B: 可选项如果有B则以x1y1为左上角坐标以x2y2为右下角坐标画矩形。

    F: 可选项只能在选择B参数后才能选择有F表示矩形以矩形边框的颜色填充否则矩形用属性Fillcolor和Fillstyle填充。

    VB程序设计——常用控件名名茂院院学学【例13】用Line方法画三角形和矩形示例如下图画圆方法Circle方法用于画圆、椭圆、圆弧和扇形。

    格式如下: 对象名.circle stepxyradiuscolorstartendaspectVB程序设计——常用控件名名茂院院学学其中: 对象名: 可以是窗体或图片框的名称缺省为当前窗体名。

    Step: 可选项有该参数时表示坐标为相对于当前点的坐标否则为绝对坐标。

    xy: 圆、椭圆、圆弧或扇形的中心坐标。

    Radius: 圆、椭圆、圆弧或扇形的圆半径。

    Color: 可选项圆、椭圆、圆弧或扇形的边框颜色。

    如果省略则使用Forecolor属性指定的颜色。

    Start、End: 可选项指定弧的起始、终止位置以弧度为单位取值范围-2π2πStart缺省值为0水平轴正方向End缺省值为2π从水平轴的正方向逆时针旋转360度若两者为负数则在画弧的同时还要画出圆心到弧的端点的连线。

    Aspect: 可选项表示纵轴和横轴的尺寸比。

    Aspect1表示在x轴方向画椭圆Aspect1表示在y轴方向画椭圆缺省值为1。

    VB程序设计——常用控件名名茂院院学学【例14】用Circle方法画图示例如下图。

    VB程序设计——常用控件名名茂院院学学1 SSTab控件2 ProgressBar控件3 Slider控件4 UpDown控件5 Animation控件VB程序设计——常用控件名名茂院院学学1 . SSTab控件控件存在于Microsoft Tabbed Dialog Control 6.0 部件中属性名属性值说明Style0Win3.1风格活动选项卡的字体为粗体显示1Win95风格每个选项卡的宽度调整到其标题文本的长度TabsInt设定选项卡的总数TabsPerRowInt设定每一行选项卡的数目RowsInt设定选项卡的总行数TabInt设定活动选项卡VB程序设计——常用控件名名茂院院学学2. ProgressBar控件控件存在于Microsoft Windows Common Control 6.0 部件中属性名属性值说明MaxInt指定进度条的进程最大位置的值MinInt指定进度条的进程最小位置的值ValueInt指定进度条的进程当前位置的值VB程序设计——常用控件名名茂院院学学3. Slider控件控件存在于Microsoft Windows Common Control 6.0 部件中4.UpDown控件控件存在于Microsoft Windows Common Control-2 6.0 部件中主要事件: UpClick DownClick5. Animation控件控件存在于Microsoft Windows Common Control-2 6.0 部件中功能: 播放无声的AVI视频文件主要方法: Open Play Stop Close属性名属性值说明TickStyleInt指定控件的显示样式TickFrequencyInt指定控件上刻度的密度TextPositionInt指定鼠标操作时提示信息显示的位置VB程序设计——常用控件名名茂院院学学设计一个“通讯录”程序当用户在下拉列表框中选择某一人名后在“电话号码”文本框中显示出对应的电话号码当用户选择或取消“单位”和“住址”复选框后将打开或关闭“工作单位”或“家庭住址”文本框。

    VB程序设计——常用控件名名茂院院学学本章小结1. 控件的公共属性??Name Caption Enabled Visible ?? Left Top Height Width?? BackColor ForeColor?? FontName FontSize FontBold FontItalic FontStrikethru、FontUnderline?? Font对象属性: Name Bold Size Bold ItalicUnderline Strikethrough 2. 框架Frame : 作为容器3. 图片框PictureBox ?? 作为容器 显示图像?? Picture属性 LoadPicture函数 Cls、Print方法VB程序设计——常用控件名名茂院院学学4. 图像框Image?? 显示图像?? Picture属性 LoadPicture函数 Cls方法5. 选项按钮OptionButton?? Value属性、Click事件6. 复选框CheckBox?? Value属性、Click事件7. 列表框ListBox?? 属性: Style、List、Columns、Text 、ListIndex、ListCount、Sorted、Selected、MultiSelect?? 事件: Click ?? 方法: AddItem、RemoveItem、ClearVB程序设计——常用控件名名茂院院学学8. 组合框ComboBox?? 属性: List、Style、Text、ListIndex、ListCount、Sorted?? 事件: Click、Change、DropDown?? 方法: AddItem、RemoveItem、Clear9. 定时器Timer?? 属性: Enabled、Interval?? 事件: Timer10. 滚动条HScrollBar、VScrollBar?? 属性: LargeChange、SmallChange、Max、Min、Value?? 事件: Change、Scroll