《第三章可视化编程基础》由会员分享，可在线阅读，更多相关《第三章可视化编程基础（10页珍藏版）》请在金锄头文库上搜索。
1、第三章第三章 可视化编程基础可视化编程基础第第 1 节节 窗体窗体第第 2 节节 命令按钮命令按钮第第 3 节节 标签标签第第 4 节节 文本框文本框窗体是一个特殊的对象，可以作为其它对象的容器窗体是一个特殊的对象，可以作为其它对象的容器窗体是一个特殊的对象，可以作为其它对象的容器窗体是一个特殊的对象，可以作为其它对象的容器。一、一、一、一、窗体的常用属性窗体的常用属性窗体的常用属性窗体的常用属性1.Caption 2.Picture 3.BorderStyle 1.Caption 2.Picture 3.BorderStyle 4.ControlBox 5.MaxButton 6.Windo
2、wState4.ControlBox 5.MaxButton 6.WindowState7.AutoRedraw7.AutoRedraw二、二、二、二、窗体的常用事件窗体的常用事件窗体的常用事件窗体的常用事件: :用子程序实现用子程序实现用子程序实现用子程序实现1.Load 2.Click1.Load 2.Click3.DblClick 4.3.DblClick 4.MouseMoveMouseMove在窗体上移动鼠标在窗体上移动鼠标在窗体上移动鼠标在窗体上移动鼠标, ,就会触发就会触发就会触发就会触发MouseMoveMouseMove事件事件事件事件。第第 1 节节 窗体窗体【例例例例3-
3、13-1】 当单击窗体时窗体的标题显示当单击窗体时窗体的标题显示当单击窗体时窗体的标题显示当单击窗体时窗体的标题显示” ”你单击你单击你单击你单击了窗体了窗体了窗体了窗体” ”, ,同时在窗体内通过同时在窗体内通过同时在窗体内通过同时在窗体内通过printprint方法输出方法输出方法输出方法输出“ “VBVB世世世世界欢迎你！界欢迎你！界欢迎你！界欢迎你！” ”。步骤：步骤：步骤：步骤：1 1）建立空白窗体）建立空白窗体）建立空白窗体）建立空白窗体2 2）编写窗体单击事件过程代码）编写窗体单击事件过程代码）编写窗体单击事件过程代码）编写窗体单击事件过程代码Private Sub Privat
4、e Sub Form_Form_ClickClick() () Form1. Form1.CaptionCaption=“=“你单击了窗体你单击了窗体你单击了窗体你单击了窗体” ” form1.form1.fontsizefontsize=32=32 form1.form1.print “VBprint “VB世界欢迎你！世界欢迎你！世界欢迎你！世界欢迎你！” ”End SubEnd Sub三、三、三、三、窗体的方法窗体的方法窗体的方法窗体的方法：系统内部通过子程序实现：系统内部通过子程序实现：系统内部通过子程序实现：系统内部通过子程序实现1.Print 1.Print 方法方法方法方法: :
5、PrintPrint方法用于在窗体、图片框和打印机上显示方法用于在窗体、图片框和打印机上显示方法用于在窗体、图片框和打印机上显示方法用于在窗体、图片框和打印机上显示文本文本文本文本 1)1)格式：格式：格式：格式：对象名对象名对象名对象名.print .print tab(ntab(n); ); 输出项表输出项表输出项表输出项表 ;|,;|,2)2)说明说明说明说明:tab:tab函数规定输出列的位置函数规定输出列的位置函数规定输出列的位置函数规定输出列的位置; ;输出项间可以用输出项间可以用输出项间可以用输出项间可以用“ “,”,”标准格式或标准格式或标准格式或标准格式或“ “;” ;” 紧
6、凑格式紧凑格式紧凑格式紧凑格式分开分开分开分开; ;输出项可以是输出项可以是输出项可以是输出项可以是数值型表达式数值型表达式数值型表达式数值型表达式( (有符号位有符号位有符号位有符号位), ),也可以是字符型表达式也可以是字符型表达式也可以是字符型表达式也可以是字符型表达式 ; ;用用用用“ “ ” ”括起来的部分为可选项。括起来的部分为可选项。括起来的部分为可选项。括起来的部分为可选项。 2.Cls2.Cls方法：方法：方法：方法：清除清除清除清除PrintPrint方法输出的文本、方法输出的文本、方法输出的文本、方法输出的文本、画图方法画图方法画图方法画图方法画出的图形。画出的图形。画出
7、的图形。画出的图形。【例例例例3-2 3-2 】printprint方法和方法和方法和方法和clscls方法应用举例方法应用举例方法应用举例方法应用举例1)1)建立窗体建立窗体建立窗体建立窗体, ,包含两个命令按钮包含两个命令按钮包含两个命令按钮包含两个命令按钮(Command1(Command1和和和和Command2)Command2)2)2)编码编码编码编码Private Sub command1_Click()Private Sub command1_Click()Print 1,2,3:Print 1;2;3:Print -1;-2;-3Print 1,2,3:Print 1;2;3
8、:Print -1;-2;-3Print “A”;”B”,”C”,”D”Print “A”;”B”,”C”,”D”Print 3,:print 4;5,6:printPrint 3,:print 4;5,6:printPrint 7;8;:print time:line(2000,2000)-(3000,3000),bfPrint 7;8;:print time:line(2000,2000)-(3000,3000),bfPrivate Sub Command2_Click()Private Sub Command2_Click()ClsClsEnd SubEnd Sub主要属性主要属性主要属
9、性主要属性1.Caption 1.Caption ：标题，标题中的：标题，标题中的：标题，标题中的：标题，标题中的“ “& &字母字母字母字母” ”设置设置设置设置热键热键热键热键2.Style2.Style：captioncaption是否显示图形是否显示图形是否显示图形是否显示图形3.Picture3.Picture：stylestyle为为为为1 1时显示图标时显示图标时显示图标时显示图标4.ToolTipText 4.ToolTipText ：鼠标停留在对象上，显示解释：鼠标停留在对象上，显示解释：鼠标停留在对象上，显示解释：鼠标停留在对象上，显示解释主要事件主要事件单击单击(clic
10、k)事件事件【例例3-3】通过代码实现设置和取消窗体背景图片通过代码实现设置和取消窗体背景图片第第 2 节节 命令按钮命令按钮一一一一. .主要属性主要属性主要属性主要属性Caption Font Left Top Caption Font Left Top BorderStyleBorderStyle BackStyleBackStyle ForeColorForeColor AutoSizeAutoSize二二二二. .事件事件事件事件 ：Click Click DelClickDelClick MouseMoveMouseMove【例例例例3-43-4】 显示立体字显示立体字显示立体字显
11、示立体字1 1）添加两个标签。）添加两个标签。）添加两个标签。）添加两个标签。2 2）设置属性。）设置属性。）设置属性。）设置属性。3 3）编码：）编码：）编码：）编码：不同颜色不同颜色不同颜色不同颜色的相同内容的相同内容的相同内容的相同内容错位错位错位错位显示。显示。显示。显示。第第 3 节节 标签标签（ Label ）一一一一. .主要属性主要属性主要属性主要属性Text Locked Text Locked MaxLengthMaxLength MultiLineMultiLine ScrollBarsScrollBars PasswordCharPasswordChar SelStar
12、tSelStart SelLengthSelLength SelTextSelText 二二二二. .主要事件主要事件主要事件主要事件GotFocusGotFocus LostFocusLostFocus KeyPressKeyPress Change Change三三三三. .主要方法主要方法主要方法主要方法 对象名对象名对象名对象名. .SetFocusSetFocus第第 4 节节 文本框（文本框（TEXT）【例例例例3-6 3-6 】通过通过通过通过texttext框录入框录入框录入框录入, ,在录入过程中在录入过程中在录入过程中在录入过程中, ,即时在另一即时在另一即时在另一即时在另
13、一个个个个texttext框中显示大号文本框中显示大号文本框中显示大号文本框中显示大号文本, ,同时在标签上反馈字符的同时在标签上反馈字符的同时在标签上反馈字符的同时在标签上反馈字符的ASCIIASCII码值码值码值码值. .1)1)界面设计界面设计界面设计界面设计: :两个文本框、一个标签、两个命令按钮两个文本框、一个标签、两个命令按钮两个文本框、一个标签、两个命令按钮两个文本框、一个标签、两个命令按钮2)2)编码编码编码编码: :Private Sub Private Sub Form_LoadForm_Load() ()text1.text=“”:text2.text=“”:text1.
14、FontSize=10text1.text=“”:text2.text=“”:text1.FontSize=10text2.Fontsize=14:command1.caption=“text2.Fontsize=14:command1.caption=“清除清除清除清除” ”command2.caption=“command2.caption=“退出退出退出退出” ”:label1.caption=“”:label1.caption=“”label1.autosize=truelabel1.autosize=trueEnd SubEnd SubPrivate Sub Text1_KeyPre
15、ss(KeyAscii as Integer)Private Sub Text1_KeyPress(KeyAscii as Integer)text2.text=text1.texttext2.text=text1.textlabel1.caption=label1.caption=char(keyasciichar(keyascii) & “) & “AscllAscll码是码是码是码是:” & :” & KeyAsciiKeyAsciiEnd SubEnd SubPrivate Sub Command1_Click()Private Sub Command1_Click()text2.text=“”:text1.text=“”text2.text=“”:text1.text=“”End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Unload MeUnload MeEnd SubEnd Sub
