vb中窗體和常用内部控件介绍.pptVIP

6.1.5 窗体的方法 (1)Show方法：用于快速显示一个窗体，使该窗体变成活动窗体 (2)Hide方法:用于隐藏form对象,将其Visible属性设置为False. (3)Print方法：用于在窗体上输出表达式的值 (4)Cls方法：用于清除运行时在窗体中显示的文本或图形.Picture属性和控件不受影响.激活前把AutoDraw属性设置为true. (5)Move(移动)方法：用于移动并改变窗体或控件的位置和大小 Form1.move left[,top,width,height] Form1.Move Form1.Left + 500, Form1.Top + 500, Form1.Width * 2 ActiveX控件: 一般以很多*.ocx文件独立存在，是对标准控件的扩充，不会自动显示在工具箱中．需用利用菜单对应的文件加载到工程中． 【例3】测试标签的边框样式和透明样式。 在窗体上放置一标签，显示“Visual Basic程序设计教程”，放置四个命令按钮，Command1放在Command2上，Command3放在Command4上。运行时，单击相应按钮，界面发生相应变化。 【例6.14】模拟会员信息登记.在窗口FormTxtBox中输入相关信息，并做简单的输入信息合法检查，在窗口FormBack中输出合法信息． Private Sub CmdClear_Click() TextID.Text = TextPassWord.Text = TextName.Text = TextMail.Text = TextResume.Text = End Sub Private Sub CmdOK_Click() Dim TextPassWordLength As Integer Dim flag As Integer TextPassWordLength = Len(TextPassWord.Text) If (TextID.Text = Or TextPassWord.Text = _ Or TextName.Text = Or TextMail.Text = _ Or TextResume.Text = ) Then MsgBox (信息输入不完整！) TextID.SetFocus flag = 0 Else If (TextPassWordLength 5 Or _ TextPassWordLength = 5) Then MsgBox (密码不足6位！) TextPassWord.Text = TextPassWord.SetFocus flag = 0 Else: flag = 1 End If End If If flag = 1 Then FormBack.TextAll.Text = LblID.Caption _ TextID.Text vbNewLine LblPassWord.Caption _ TextPassWord.Text vbNewLine _ LblName.Caption TextName.Text _ vbNewLine LblMail.Caption _ TextMail.Text vbNewLine LblResume.Caption _ TextResume.Text Load FormBack FormBack.Show FormTxtBox.Visible = False End If End Sub 3. 事件 Click事件—使选项按钮从未选择变成选择状态时(单击鼠标改变、代码改变 ) 【例6.16】用单选按钮和复选按钮设置在文本框中字体的样式. Private Sub ChkChu_Click() If ChkChu.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub ChkXie_Click() If ChkXie.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub OptLi