窗体和基本控件.pptVIP

程序:窗体1的程序 Private Sub Command1_Click() Form2.Show ‘显示激活窗体2 End Sub ? Private Sub Command2_Click() End End Sub 命令按钮2的Caption属性为“结束” 命令按钮1的Caption属性为“病史输入” Private Sub Text1_LostFocus() 输入结束产生该事件 x = Len(Text1.Text) ‘测试text1文本框输入的文本长度 If x 6 Or x 6 Then ‘判断x不等于6则置text1的文本为空 Text1.Text = Text1.SetFocus 使焦点回到text1文本框 CurrentX = 600 CurrentY = 2000 Print “请输入6位病历号 End If End Sub ‘设字符串输出位置在（600，2000） Private Sub Text2_GotFocus() ‘得到焦点时产生事件 If Text1.Text = Then Text1.SetFocus End If End Sub 窗体2的Command1_Click()事件过程如下： Private Sub Command1_Click() Form1.Show ‘显示激活窗体1 Form1.CurrentY = 2010 Form1.Print 病史输入完毕，单击结束按钮 Form2.Hide ‘隐藏窗体2 End Sub Private Sub Form_Resize() Text1.Top = 0 Text1.Left = 0 Text1.Width = ScaleWidth Text1.Height = ScaleHeight End Sub 当调整窗体2的大小时，文本框也随之调整大小。 三、常用控件 复选框:用来表示多个选择状态。复选框用“√”表示选中。 复选框的缺省名称为CheckX（X=1,2,3,…） 单选按钮:用来表示在一组单选按钮中，选择其中一个。 单选按钮的缺省名称为OptionX（X=1,2,3,…） 框架:是一种容器型的控件,用来对窗体上的控件进行分类整理 1.单选按钮、复选框和框架 复选框的属性及设置 Value属性:用来返回或设置复选框的状态。 取值：0(Unchecked)、1 (Checked) 、2(Grayed)。 单选按钮的属性及设置 Value属性:用来返回或设置单选按钮的状态。 取值：True(已选择)、False(缺省值;没有选择)。 框架的属性及设置 Enabled:设定框架是否为活动状态 Visible:设置框架是否隐藏 例6：在例5的窗体1增加单选按钮和复选按钮;添加Text1_Change()事件过程，使之如果没有输入病历号，则病史输入按钮失效； 修改窗体2中的Command1_Click()事件，使之可根据窗体1的单选按钮和复选框的选择，决定病人的性别和打印信息所采用的显示字体方式。 窗体1的Text1_Change()事件： Private Sub Text1_Change() If Text1.Text = Then 查看文本框是否为空。 Command1.Enabled = False 使按钮无效。 Else Command1.Enabled = True 使按钮有效。 End If End Sub 窗体2的Command1_Click()事件： Private Sub Command1_Click() Form1.Show If Form1.Option1 = True Then Sex = 男 ElseIf Form1.Option2 = True Then Sex = 女 Else Sex = End If If Form1.Check1.Value = vbChecked Then ‘如选定则设字体为粗体 Form1.FontBold = True Else Form1.FontBold = False End If If Form1.Check2.Value = 1 Then ‘如选定则设字体为斜体 Form1.FontItalic = True Else Form1.FontItalic = False End If Form1.Cls Form1.CurrentY = 1800 Form1.Print 病历号：;