text=Textwidth(a)/3 text= TextHeight(a)/2 设置输出内容的X坐标 Currentx= scale width /3-textw 设置输出内容的Y坐标 CurrentY= scaleheight /2-textH 从窗体上输出a的内容“新年好” Print a End sub 2021-2-22 16
2021-2-22 16 textW = TextWidth(a) / 3 textH = TextHeight(a) / 2 '设置输出内容的X坐标 CurrentX = ScaleWidth / 3 – textW '设置输出内容的Y坐标 CurrentY = ScaleHeight / 2 – textH '从窗体上输出a的内容“新年好” Print a End Sub
运行工程。按工具栏中的执行按钮或按F 键。则首先出现一个黄色的窗口如图37左图所 示,用鼠标单击窗体后出现绿色窗体,并在窗 体中间位置显示三个红色的“新年好”。如下 面右边图中所示。 手年 年 2021-2-22 17
2021-2-22 17 运行工程。按工具栏中的执行按钮或按F5 键。则首先出现一个黄色的窗口如图3-7左图所 示，用鼠标单击窗体后出现绿色窗体，并在窗 体中间位置显示三个红色的“新年好” 。如下 面右边图中所示
例3-5闪烁的标签和变化的窗体 (1)设计工程界面: 在窗体设计器上填加一个标签控件和 个计时器控件 (2)设置窗体及控件的属性: 设置窗体的 Caption属性为“变化的窗 体和标签”。设置标签的 Caption属性为 “欢迎学习ⅤB6.0”,设置其 Autosize属性为 True。设置计时器控件 Interva属性为600。 2021-2-22 18
2021-2-22 18 例3-5 闪烁的标签和变化的窗体 （1）设计工程界面： 在窗体设计器上填加一个标签控件和一 个计时器控件。 （2）设置窗体及控件的属性： 设置窗体的Caption属性为“变化的窗 体和标签” 。设置标签的Caption属性为 “欢迎学习VB6.0” ，设置其Autosize属性为 True。设置计时器控件Interval属性为600
(3)设计工程界面和属性: 变化的窗体和标签 □回区 攻迎学习VB6.0: 设置标签控件的 Caption属性为 “欢迎学习VB60 2021-2-22 19
2021-2-22 19 （3）设计工程界面和属性： 设置标签控件的 Caption属性为 “欢迎学习VB60
(4)编写代码如下 Private Sub Timer timer If labell fontsize 12 Then Labell Fore Color= RGB(255, 0, 0) Labell fontsize 25 Labell font bold false Forml width= forml width +100 Forml Height= Forml Height 100 Forml Left= forml Left -50 FormI.Top= FormI. Top-50 2021-2-22 20
2021-2-22 20 （4）编写代码如下 Private Sub Timer1_Timer() If Label1.FontSize = 12 Then Label1.ForeColor = RGB(255, 0, 0) Label1.FontSize = 25 Label1.FontBold = False Form1.Width = Form1.Width + 100 Form1.Height = Form1.Height + 100 Form1.Left = Form1.Left - 50 Form1.Top = Form1.Top - 50