vb笔记第六章.doc

第六章：常用控件设计一个窗体分为三步: 添加控件,设置属性和书写代码设置对象的属性: 对象名.属性名=值调用对象的方法: 对象名.方法名常用的方法有:show,hide,setfocus常用的控件及其属性(1)窗体(Form) caption:标题栏上的文字.(即标题) maxbutton:指定窗口是否有最大化按钮(即最大化按钮是否可用) minbutton:指定窗口是否有最小化按钮(即最小化按钮是否可用) borderstyle:边框的样式.默认的连框是可以调动大小的.如果希望不能改变窗口的大小,则需要将borderstyle改为1或3(即固定对话框) icon:指定窗口的图标,(可以设置为一些扩展名为.ico的图标文件)(2)标签(Label) caption:标签中的显示的文字. font属性:用于设置标签中的字体大小. 在属性框中设置与字体有关的属性,是直接设置font,而在代码中设置属性,则必须设置如下属性: fontsize:字体的大小(如9号) fontname:字体的样式(如隶书) fontbold:字体是否以粗体显示 fontitalic:字体是否是斜体 fontunderline:字体是否有下划线 forecolor:字体的颜色 例:新建一个如图所示的窗口,要求在运行时,单击改变字体,则将你好设置为20号字,粗体,下划线,字的颜色为红色.在改变字体中写代码: Label1.FontSize = 20 Label1.FontBold = True Label1.FontUnderline = True Label1.ForeColor = RGB(255, 0, 0) 也可以将rgb()改写为vbred(3)文本框(Text) text:框中的内容 passwordchar:指定文本框中显示的字符(一般为占位符)通常用于保密设置,习惯上设置为*号例:新建一个如图所示的窗口,要求:当在文本框中输入时,文本框2中自动显示相同的内容,当单击明码时,则显示原样的文字,而单击密码时,则在text2中显示若干个*号,单击清除时,将文本框1的内容清除,同时光标定位在第一个文本框中. Private Sub Command1_Click() 在按钮Command中的Click中写代码.(只需要写中间这句就可以 Text2.PasswordChar = End SubPrivate Sub Command2_Click() Text2.PasswordChar = *End SubPrivate Sub Command3_Click() Text1.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change() Text2.Text = Text1.TextEnd Sub 空两面(4)命令按钮(Command) caption:按钮的文字,即标题 default属性:指定按钮是否可以响应Enter键(回车键),即按下回车键相当于去单击此按钮. cancel:指定按钮是否可以响应Esc键,即按下ESc,等同于单击此按钮.如何为一个按钮设置访问键(即热键)? 在按钮的caption的后面加上&字母,该字母就是热键.例:设计一个如图所示的窗口,要求单击确定时,则将窗口的标题设置为abcd,要求按回车键也可以实现此功能.单击取消时,结束程序.要求按Esc键也可以实现此功能 在确定按钮中书写代码: form1.caption=abcd在取消中写代码: end为了实现按Esc和enter键等同于单击按钮,需要将确定的default属性设置为true,取消的cancel属性设置为true(5)复选框(checkbox)-方框打勾 caption:复选框旁边的文字. value:复选框是否被选中(即打上勾),0-未选中,1-选中,2-不确定. 例:新建一个如图所示的窗口,要求武汉大学会随着相应的选择而改变.(即当选择粗体时,武汉大学会加粗) 在粗体复选框(即check1中写代码)If Check1.Value = 1 Then Label1.FontBold = TrueElse Label1.FontBold = FalseEnd If斜体(check2)和下划线(CHeck3)中代码和粗体相似,只需要将check1改为check2和check3,fontbold改为fontitalic(斜体)和fontunderline(下划线)(6)单选按钮(Option)-圆圈打点 caption:按钮旁边的文字. value:单选按钮是否被选中。true表示选中，false表示未选中. 例：新建一个如图所示的窗口sjt3.frm,要求当选择小学生时,文本框中显示我是小学生,当选择中学生时,文本框中显示我是中学生,依次类推. 在option1_click(option1中写代码) text1.text=我是小学生或 text1.text=我是 option1.caption在option2_click中书写:Text1.Text = 我是中学生或Text1.Text = 我是 & Option2.Captionoption3_click略.(6)框架(frame)-用于放置其它控件 caption:标题 如何将控件放在框架中? (1)在框架中画控件 (2)将控件剪切再粘贴到框架中.例:新建一个如图所示的窗体sjt4.frm,要求如下:文本框中的字体随着相应的选择而改变Private Sub Option1_Click() Text1.FontName = 宋体End SubPrivate Sub Option2_Click() Text1.FontName = 黑体End SubPrivate Sub Option3_Click() Text1.FontSize = 8End SubPrivate Sub Option4_Click() Text1.FontSize = 12End Sub(7)时钟(timer)-也叫计时器,如果窗口上有自动(变动)的效果,表示窗口上有时钟. 常用的属性: 1)interval:表示时钟间隔多久发生一次timer事件(计时),单击为毫秒.如设置为1000,表示一秒. 2)enabled:表示时钟是否可用.当enabled为false,表示时间停止.常用的事件: timer事件(计时事件):表示间隔interval属性所指定的时间自动引发一次.例:新建一个如图所示的窗口lx1.frm,运行时,”欢迎进行本系统”从窗口的右侧缓缓向左移动,当移到最左边时,则从窗口最右边继续开始.工程文件名为lx1.vbp方法:添加一个标签和时钟(timer),设置时钟的interval属性为100,然后在timer事件中写代码:Private Sub Timer1_Timer() If Label1.Left 其中用于显示图片 picture:图像框中显示的图片. 在属性窗口中设置picture属性直接设置,当要删除picture属性中的图片时,按delete键.而在代码中设置图片必须要写成: image1.picture=loadpicture(“图片位置和名称”) stretch:图像框的大小是否随着图片的大小而改变.当值为false时,表示图像框自动随着图片的大小而改变. 为true时,表示自动缩放图片以适应图像框的大小. 例:在名称为Form1的窗体上画一个名称为Image1的图象框，利用属性窗口装入考生目录下的图象文件 pic1.bmp，并设置适当属性使其中的图象可以适应图象框大小；再画两个命令按钮，名称分别为Command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图象框向右移动100；每单 击“向下移动”按钮一次，图象框向下移动100。运行时的窗体如图所示。 要求程序中不得使用变量，事件过程中只能写一条语句。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 注意:首先将image1的stretch设置为true,然后才能设置picture属性.代码如下;Private Sub Command1_Click() 向右移动 Image1.Left = Image1.Left + 100End SubPrivate Sub Command2_Click() 向下移动 Image1.Top = Image1.Top + 100End Sub 例: 在名称为Form1的窗体上画一个名称为image1的图像框， 其宽和高分别为1700、1900。请编写适当事件过程，使得在运行时，单击图像框，则装入考生目录下的图形文件pic1.bmp，如图所示。单击窗体则图像框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名 为sjt2.frm。Private Sub Form_Click() Picture1.Picture = LoadPicture()End SubPrivate Sub Picture1_Click() Picture1.Picture = LoadPicture(6.jpg)End Sub例：编一屏幕保护程序，运行时不断显示不同的图片，单击鼠标，退出程序。前提：在D盘中存放了10幅图片，文件名分别为0.jpg,1.jpg.9.jpg。主要控件有：form1,image1(也可用picture1),timer1各主要属性设置如下：窗体form1：borderstyle设置为0，无标题栏。windowstate设置为2，即运行后最大化。计时器timer1: interval属性设为2000（可根据需要调整）图像框控件：image1:picture属性设为0.jpg，并将图像框拖至最左上端（与窗体form1左上端对齐）。stretch为false，即改变图像框大小自动适应图片大小。（若是图片控件picture1：picture属性设为0.jpg。autosize设为true。）主要代码如下：在通用的声明中书写代码:dim i as integerPrivate Sub image1_Click() 若是图片控件，则为picture1_click EndEnd SubPrivate Sub Timer1_Timer() Picture1.Picture = LoadPicture(d: & i & .jpg) i=i+1if i=10 then i=0 End Sub(9)图片框(picturebox)-可以用于显示图片,还可以显示文字,还可以放置图形. 设置对象(控件)的属性: 对象名.属性名=值 调用对象的方法: 对象名.方法名当省略对象名时,默认为窗口. 如caption=”大家好” 就是将窗口的标题设置为大家好cls-表示清屏(清除窗口上显示的内容)picture1.cls(清除图片框中的内容)print 3picture1.print 3一.常用属性:picture属性:指定图片框中显示的图片autosize:自动大小. 当autosize为true时,表示图片框的大小随着图片的大小而改变.align:图片框的位置. 1-位于窗口的最上面,和窗口同宽 2-位于窗口的最下面,和窗口同宽 3-位于窗口的最左边,和窗口同高 4-位于窗口的最右边,和窗口同高例：设计一个如图所示的窗口，要求:当单击B时，则将文本框中的文字加粗.并且B按钮陷下去,状态栏上提示”已加粗!”,将再次单击时,则B按钮弹出,则时,文本框中的文字取消粗体显示.并且状态栏上提示:”未加粗” 依次类推Private Sub Image1_Click() If Image1.BorderStyle = 0 Then Image1.BorderStyle = 1 Text1.FontBold = True Picture1.Cls Picture1.Print 已加粗！ Else Image1.BorderStyle = 0 Text1.FontBold = False Picture1.Cls Picture1.Print 已取消加粗！ End If End Sub (10)线条(line)-用于美观bordercolor:线条的颜色.bordstyle:线条的样式.实线,点线或虚线等等.bordwidth:线的粗细.x1,y1和x2,y2表示线条两个端点的坐标.(12)形状(shape)-通常和线条一样,用于美观shape:表示图形的形状. 0-代表矩形,1-代表正方形,2-代表椭圆,3-圆形,4-代表圆角矩形,5-圆角正方形bordercolor:图形边框线条的颜色.bordstyle:图形边框线条的样式.实线,点线或虚线等等.bordwidth:图形边框线的粗细.Left、Top、Height、Width和线段控件不同，形状控件使用 Left、Top、Height、Width 这四个属性来设置图形相对窗体或其他容器控件的位置。FillStyle和 FillColor 属性用 FillStyle属性设置填充图形时的方式，有种方式可供选择，如下表所示： 实线 透明（缺省值） 水平直线 垂直直线 上斜对角线 下斜对角线 十字线 交叉对角线使用 FillColor 属性来设置填充闭合图形时使用的颜色。(13)滚动条滚动条用于表示连续变化的数量、音量、速度、时间、进度等信息。滚动条有一个最大值和最小值，用户移动滑块可以在最大值和最小值之间指定一个数值，Visual Basic为用户提供了水平滚动条控件（HScrollBar）和垂直滚动条控件（VScrollBar）。 一、常用属性、Name属性(名称)、上界属性（Max）和下界属性（Min）Max属性用于返回或设置当滚动框处于底部或最右位置时，一个滚动条的最大设置值；Min属性用来返回或设置当滚动框处于顶部或最左位置时，一个滚动条的最小设置值。、数值属性（Value）Value属性用来返回或设置滚动块当前位置的数值。、大改变属性（LargeChange）和小改变属性（SmallChange）LargeChange属性用来设置用户单击滚动块和滚动箭头之间的区域时，滚动条控件的 Value 属性值的改变量。SmallChange属性用来设置用户单击滚动箭头时，滚动条控件的 Value 属性值的改变量。 二、常用事件Change事件在使用鼠标单击滚动条两头的滚动箭头时或拖动滑块后松开鼠标时发生的，还可以在程序中通过代码改变 Value 属性的设置时激活此事件。 例:用滚动条改变颜色属性值。程序的运行时，移动红色、绿色、蓝色水平滚动条可以改变窗口上部图片框的颜色。所有的颜色都是由三种基本颜色（三原色）：红色、绿色和蓝色按一定的比例合成的，WINDOWS中生成就利用这个特点生成各种颜色的，共有三种方法：、语法：QBColor(color)QBColor函数返回一个颜色码。color参数是一个界于0到15的整型。 color参数常用值对应如下：值 颜色 值 颜色 0 黑色 8 灰色 1 兰色 9 亮兰色 2 绿色 10 亮绿色 3 青色 11 亮青色 4 红色 12 亮红色 5 洋红色 13 亮洋红色 6 黄色 14 亮黄色 7 白色 15 亮白色 如：text1.forecolor=QBCOLOR（4)、常量法（符号常量法）颜色符号常量 数值 黑色VBBlack0或H0红色VBRed 255或HFF绿色VBGreen65280或HFF00黄色VBYellow 65535蓝色VBBlue16711680或HFF0000洋红VBMagenta 16711935青色VBCyan16776960白色VBWhite16777215如：text1.forecolor=VBred、RGB合成法RGB合成法可以合成各种各种的颜色。使用语法： RGB(red, green, blue) red、green和blue参数的数值范围是从 0 到 255，各自表示颜色中的红色成份、绿色成分和蓝色成分。 例：编写如下图所示的程序：说明：当三个滚动条值改变时，picture1背景色设置为当前rgb(红，绿，兰)，label4的文字颜色与picture1的背景色相同，同时picture2显示当前红，绿，兰的取值信息。主要控件属性取值如下：三个滚动条：min=0 max=255 largechange=10 picture1: borderstyle值为0，无边框 picture2: align为2，即靠底端。borderstyle值为1，有边框，autoredraw（自动重绘）为true。（否则，在初次运行，或最小化时，改变窗体大小时，会出现不正常情况）Private Sub HScroll1_Change() Picture1.Cls Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text1.ForeColor = Label1.BackColor Picture1.Print 红:; HScroll1.Value; 绿:; HScroll2.Value; 兰; HScroll3.Value End SubPrivate Sub HScroll2_Change()Picture1.ClsLabel1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)Text1.ForeColor = Label1.BackColorPicture1.Print 红:; HScroll1.Value; 绿:; HScroll2.Value; 兰; HScroll3.ValueEnd SubPrivate Sub HScroll3_Change()Picture1.ClsLabel1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)Text1.ForeColor = Label1.BackColorPicture1.Print 红:; HScroll1.Value; 绿:; HScroll2.Value; 兰; HScroll3.ValueEnd Sub(14)列表框(Listbox)常用的属性:listcount:列表框中条目的个数.list(i)-列表框中第i项的内容，第一项的内容为list(0)selected(i)-列表框中第i项是否被选中，值为true或falsetext-列表框中被选中的条目的内容.listindex:返回所选择的项的序号(从0开始)style-列表框的样式.0-标准,1-复选框样式(可以多选)multiselect:列表框中是否可以进行多重选择.0-不能.1-依次单击可以多选2-按shift键和ctrl键再单击可以多选.sorted:表示列表框的条目是否进行排序.常用方法:添加条目到列表框: additem 要添加的条目的内容 从列表框中移出条目: removeitem 要移动的项的序号(序号从0开始) clear:清除列表框的内容例1:dim i as integer,n as integern=5i=1do while i=n print 20 n=n-1 i=i+1loop?n,i 以上程序输出3次20,并且n为2,i为4 例2:dim i as integer,n as integern=5 for i=1 to n step 1 print 20 n=n-1 next i ?n,i 以上程序输出5次20,并且n为0,i为6while循环每次都要判断条件（计算条件),而for循环在循环的第一次就确定的条件，以后不再改变for i=1 to n step 1 无论n在循环中如何变，那么i=第一次的n3、常用的事件列表框最经常使用的是：Click（鼠标单击）事件和 DbClick（鼠标双击）事件，单击表示当前选中的项目。(15)组合框(combo):由文本框和列表框构成.因此在很多属性和列表框相同.如listcount,list(i)等等.