Visua| Basic程序设计 第七讲 第三章 Visua| Basic的程序设计基础 (四) 2021/2/22
2021/2/22 1 Visual Basic程序设计 第七讲 第三章 Visual Basic的程序设计基础 （四）
使用图片框控件输出数据 从立即窗冖输出数据 本 VB程序中的基本语句 讲 要 使用文本框输入数据 点 使用滚动条控件输入数据 使用 Input函数输入数据 2021/2/22 2
2021/2/22 2 本 讲 要 点 使用InputBox函数输入数据 使用滚动条控件输入数据 使用图片框控件输出数据 从立即窗口输出数据 VB程序中的基本语句 使用文本框输入数据
368在图片框控件上输出文本 图片框控件用于在窗体的特殊位置上放置图 形、图像和文本信息,也可放置多个控件。 1.图片框控件的常用属性 图片框有很多窗体和标签相同的属性,如 Autosize、 Borderstyle等。下面列出图片框中的 些特有的属性。如表3-18所示 2.图片框常用的方法和事件。 图片框常用的方法大多数与窗体相同这里不 做特殊介绍。图片框常用的事件和标签控件相同, 这里也不再介绍。 2021/2/22
2021/2/22 3 图片框控件用于在窗体的特殊位置上放置图 形、图像和文本信息，也可放置多个控件。 1. 图片框控件的常用属性 图片框有很多窗体和标签相同的属性，如 Autosize、BorderStyle等。下面列出图片框中的 一些特有的属性。如表3-18所示 2. 图片框常用的方法和事件。 图片框常用的方法大多数与窗体相同这里不 做特殊介绍。图片框常用的事件和标签控件相同， 这里也不再介绍。 3.6.8 在图片框控件上输出文本
对象 属性 属性值 说明 Picture Box Align 0-None 表示图片的显示方式,值为0无 显示,该值为默认方式 1- Align Top值为1表示向窗体顶部对齐,图 片框与窗体一样宽,并位于窗 体上端。 2-Align 值为2表示向窗体底部对齐,图 Buttom 片框与窗体一样宽,并位于窗 表3-18图片框的属性 体底端 3-Align Left 值为3表示向窗体左边对齐,图 片框与窗体一样高,并位于窗 体左边 4 Align right值为4表示向窗体右边对齐,图 片框与窗体一样高,并位于窗 体右边 icture 该属性用于设定欲显示的图片 2021/2/22 4
2021/2/22 4 对象 属性 属性值 说明 PictureBox Align 0-None 表示图片的显示方式，值为0无 显示，该值为默认方式 1-Align Top 值为1表示向窗体顶部对齐，图 片框与窗体一样宽，并位于窗 体上端。 2-Align Buttom 值为2表示向窗体底部对齐，图 片框与窗体一样宽，并位于窗 体底端 3-Align Left 值为3表示向窗体左边对齐，图 片框与窗体一样高，并位于窗 体左边 4-Align Right 值为4表示向窗体右边对齐，图 片框与窗体一样高，并位于窗 体右边 Picture 该属性用于设定欲显示的图片 表3-18图片框的属性
例3-7】创建工程,在图片框中输出文本, 当按下“文本输出”按钮,输出红色“欢 迎新千年!”的文本,当按下“立体效果” 按钮,就会产生具有立体效果的“欢迎新 千年!”的文本,按“退出”按钮,退出 程序。 (1)设计工程界面图如下图所示,它有一 个图压 立体效果文本的输出 □目 图片框控件 文本输出立体效果退出 2021/2/22
2021/2/22 5 【例3-7】创建工程，在图片框中输出文本， 当按下“文本输出”按钮，输出红色“欢 迎新千年！”的文本，当按下“立体效果” 按钮，就会产生具有立体效果的“欢迎新 千年！”的文本，按“退出”按钮，退出 程序。 （1）设计工程界面图如下图所示，它有一 个图片框和三个命令按钮。 图 片 框 控 件
(2)设置窗体及控件属性如表3-19所示 对象名属性名属性值 说明 Form1 Caption 立体效果文本的输出 标题 Picture l autosize True 使图片框适应内容 ppearance 1-3D Command 1 Caption 文本输出 标题 Font 宋体、粗体、五号 命令按钮上的字体 Command2 Caption 立体效果 标题 Font 宋体、粗体、五号 命令按钮上的字体 Command 3 Caption 退出 标题 Font 宋体、粗体、五号 命令按钮上的字体 2021/2/22 表3-19
2021/2/22 6 对象名 属性名 属性值 说明 Form1 Caption 立体效果文本的输出 标题 Picture1 Autosize Appearance True 1-3D 使图片框适应内容 Command1 Caption 文本输出 标题 Font 宋体、粗体、五号 命令按钮上的字体 Command2 Caption 立体效果 标题 Font 宋体、粗体、五号 命令按钮上的字体 Command3 Caption 退出 标题 Font 宋体、粗体、五号 命令按钮上的字体 （2）设置窗体及控件属性如表3-19所示 表 3-19
(3)为工程编写代码如下: 编写单击命令按钮“文本输出”所执行的命令代码。 Private Sub Command1 click 设置一个值,指示当使用 graphics方法 或可定位的控件时,对象坐标的度量单位。 当 Scalemode=1使用坐标的单位是缇 Picture. Scalemode =1 设置输出字体为"隶书” Picture. fontname=“隶书” 设置输出在图片框上文本的大小 Picture. fontsize =32 设置输出文本在图片框上的X坐标 Picture. Currentx =150+ 20 2022
2021/2/22 7 （3）为工程编写代码如下： 编写单击命令按钮“文本输出”所执行的命令代码。 Private Sub Command1_Click() ' 设置一个值，指示当使用 graphics 方法 ' 或可定位的控件时，对象坐标的度量单位。 ' 当 ScaleMode = 1使用坐标的单位是缇 Picture1.ScaleMode = 1 ' 设置输出字体为"隶书" Picture1.FontName = “隶书” '设置输出在图片框上文本的大小 Picture1.FontSize = 32 '设置输出文本在图片框上的X坐标 Picture1.CurrentX = 150 + 20
设置输出文本在图片框上的Y坐标 Picture. CurrentY= 150+20 设置输出文本的颜色为红色 Picture. Fore Color= RGB(255,0, 0) 用 Print方法在图片框上输出文本 Picture Print“迎接新千年! End sub 2021/2/22
2021/2/22 8 '设置输出文本在图片框上的Y坐标 Picture1.CurrentY = 150 + 20 '设置输出文本的颜色为红色 Picture1.ForeColor = RGB(255, 0, 0) '用Print方法在图片框上输出文本 Picture1.Print “迎接新千年!” End Sub
编写单击命令按钮“立体效果”所执行的命令代码 Private Sub Command2 Click Picture l CurrentX=150 Picture. CurrentY= 150 设置输出文本的颜色为黑色 Picturel. Fore Color= RGB(0,0, 0) Picture print"迎接新千年! End sub 2021/2/22
2021/2/22 9 编写单击命令按钮“立体效果”所执行的命令代码。 Private Sub Command2_Click() Picture1.CurrentX = 150 Picture1.CurrentY = 150 '设置输出文本的颜色为黑色 Picture1.ForeColor = RGB(0, 0, 0) Picture1.Print "迎接新千年!" End Sub
编写单击命令按钮“退出”所执行的命令代码。 Private Sub Command3 Click Picture. cls End sub (4)按F5键运行工程结果如下面右图所示。 .立体效果文本的输出 ×立体效果文本的输出 □回x 迎接新千年! 迎接新千年! 文本输出立体效果退出 文本输出立体效果退出 2021/2/22
2021/2/22 10 编写单击命令按钮“退出”所执行的命令代码。 Private Sub Command3_Click() Picture1.Cls End Sub （4）按F5键运行工程结果如下面右图所示