VB单选钮和复选框列表框组合框多窗体和菜单课件.ppt

《VB单选钮和复选框列表框组合框多窗体和菜单课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB基本知识学习内容单选钮与复选框列表框与组合框单选按钮与复选框单选按钮（OptionButton）相关属性常用事件：Click用户单击单选钮时，它会自动改变状态。属性说明valueTrue为选中；False为不被选中。Caption文本标题,设置单选钮的文本注释内容单选按钮与复选框复选框（CheckBox）相关属性属性说明value0—未选中，1—已选中，2—变灰暗Caption文本标题,设置复选框的文本注释内容练习制作以下界面单选按钮与复选框使用范例-控件属性说明控件类型说明Label控件Caption:示范文字B

2、orderstyle:1名称：label1Frame控件名称：frame1Caption:字体名称：frame2Caption:字型名称：frame3Caption:字号单选按钮与复选框使用范例-控件属性说明控件类型说明OptionButton名称：option1Caption:宋体名称：option2Caption:隶书名称：option3Caption:16名称：option4Caption:24CheckBox名称：check1Caption:斜体名称：check2Caption:粗体frame1frame2fr

3、ame3Option1，Option3的value设置为true单选按钮与复选框功能1：运行程序时设置label文字类型为宋体，16号字Form_load事件在哪个事件加入代码？动态修改label的文字属性Fontname:设置字体Fontbold:true：粗体false正常FontItalic:true：斜体false正常Fontsize:设置字号单选按钮与复选框功能1：运行程序时设置label文字类型为宋体，16号字PrivateSubForm_Load()Label1.FontName="宋体"Label1.F

4、ontSize=16EndSub单选按钮与复选框功能2：实现框架frame1中字体设置功能。PrivateSubOption1_Click()Label1.FontName=Option1.CaptionEndSubPrivateSubOption2_Click()Label1.FontName=Option2.CaptionEndSub单选按钮与复选框功能3：实现框架frame3中字体大小设置功能。PrivateSubOption3_Click()Label1.FontSize=Option3.CaptionEndS

5、ubPrivateSubOption4_Click()Label1.FontSize=Option4.CaptionEndSub单选按钮与复选框功能4：实现框架frame2中字型设置功能。PrivateSubCheck1_Click()IfCheck1.Value=1ThenLabel1.FontItalic=TrueIfCheck1.Value=0ThenLabel1.FontItalic=FalseEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenLabel1.Fo

6、ntBold=TrueIfCheck2.Value=0ThenLabel1.FontBold=FalseEndSub列表框与组合框列表框（ListBox）控件将一系列的选项组合成一个列表，用户可以选择其中的一个或几个选项列表框有两种风格：标准和复选列表框Style=0标准Style=1复选列表框列表框与组合框列表框（ListBox）添加新项目列表框与组合框列表框（ListBox）主要属性：List、ListCount和ListIndex属性List：字符型数组，存放列表框的项目数据，下标是从0开始的。例：List(0)

7、表示第一项（Listindex=0)的内容ListIndex：为整型值，选中的项目的序号，没有项目选中时为-1。ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。列表框与组合框列表框（ListBox）List、ListCount和ListIndex属性列表框与组合框列表框（ListBox）PrivateSubForm_Load()DimiAsIntegerLabel1.Caption=""List1.ListIndex=2Fori=0ToList1.ListCount-1Label1

8、.Caption=Label1.Caption+List1.List(i)NextEndSublist1.selected(2)=true列表框与组合框列表框（ListBox）主要属性：text属性：用于存放被选中列表项的文本内容。PrivateSubCommand1_Click()Label1.Caption=List1.Tex