(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键运行工程结果如下面右图所示