第六章：常用控件 设计一个窗体分为三步:
添加控件,设置属性和书写代码 设置对象的属性:
对象名.属性名=值 调用对象的方法: 对象名.方法名
常用的方法有: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 Sub
Private Sub Command2_Click() Text2.PasswordChar = \End Sub
Private Sub Command3_Click() Text1.Text = \ Text1.SetFocus End Sub
Private Sub Text1_Change() Text2.Text = Text1.Text End Sub 空两面
(4)命令按钮(Command)
caption:按钮的文字,即标题
default属性:指定按钮是否可以响应Enter键(回车键),即按下回车键相当于去单击此按钮.
cancel:指定按钮是否可以响应Esc键,即按下ESc,等同于单击此按钮. 如何为一个按钮设置访问键(即热键)??
在按钮的caption的后面加上&字母,该字母就是热键.
例:设计一个如图所示的窗口,要求单击\确定\时,则将窗口的标题设置为\要求按回车键也可以实现此功能.单击\取消\时,结束程序.要求按Esc键也可以实现此功能
在\确定\按钮中书写代码: form1.caption=\在\取消\中写代码: end
为了实现按Esc和enter键等同于单击按钮,需要将\确定\的default属性设置为true,\取消\的cancel属性设置为true
(5)复选框(checkbox)-->方框打勾 caption:复选框旁边的文字.
value:复选框是否被选中(即打上勾),0-->未选中,1-->选中,2-->不确定. 例:新建一个如图所示的窗口,要求\武汉大学\会随着相应的选择而改变.(即当选择\粗体\时,武汉大学会加粗)
在\粗体\复选框(即check1中写代码) If Check1.Value = 1 Then Label1.FontBold = True Else
Label1.FontBold = False End If
\斜体\和\下划线\中代码和\粗体\相似,只需要将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 = \我是\option3_click略...
(6)框架(frame)-->用于放置其它控件 caption:标题
如何将控件放在框架中? (1)在框架中画控件
(2)将控件剪切再粘贴到框架中.
例:新建一个如图所示的窗体sjt4.frm,要求如下:文本框中的字体随着相应的选择而改变
Private Sub Option1_Click() Text1.FontName = \宋体\End Sub
Private Sub Option2_Click() Text1.FontName = \黑体\End Sub
Private Sub Option3_Click() Text1.FontSize = 8 End Sub
Private Sub Option4_Click() Text1.FontSize = 12 End Sub
(7)时钟(timer)-->也叫计时器,如果窗口上有自动(变动)的效果,表示窗口上有时钟.
常用的属性:
1)interval:表示时钟间隔多久发生一次timer事件(计时),单击为毫秒.如设置为1000,表示一秒.
2)enabled:表示时钟是否可用.当enabled为false,表示时间停止. 常用的事件:
timer事件(计时事件):表示间隔interval属性所指定的时间自动引发一次. 例:新建一个如图所示的窗口lx1.frm,运行时,”欢迎进行本系统”从窗口的右侧缓缓向左移动,当移到最左边时,则从窗口最右边继续开始.工程文件名为lx1.vbp