第9章 对话与菜单程序设计.pptVIP

  • 1
  • 0
  • 约8.34千字
  • 约 42页
  • 2017-06-29 发布于贵州
  • 举报
第9章 对话与菜单程序设计

第9章 对话框与菜单程序设计 创建用户自定义对话框,有两种方法: 由普通窗体创建自定义对话框: 在一个普通窗体上,使用标签、文本框、命令按钮等控件,通过编写代码来实现人机交互功能。 使用对话框模板窗体创建对话框: 使用VB系统提供的“对话框”模版,通过简单的修改便可以创建一个自定义对话框。 例程1:由普通窗体创建登陆对话框(图9-3) BorderStyle为3, 标签、文本框、 命令按钮设置 如图所示,注意 设置快捷键 如教材中的登陆对话框的使用。 选择“登陆对话框”,然后在代码上进行修改以满足自身需要。 程序中只是验证密码,并未验证用户名,实际使用中,应先验证用户名,再验证密码的。 例程9-2 第一个为一个闪动界面,用计时器来控制使得标签的字体慢慢变大,变大到计时器停止工作关闭此窗口,打开登录窗口。 Option Explicit Dim i As Integer Private Sub Form_Load() i = 10 Label1.FontSize = i Timer1.Enabled = True Timer1.Interval = 1000 End Sub 使用对话框模板创建的对话框——登陆对话框 Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() set the global var to false to denote a failed login LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() check for correct password If txtUserName = zxq Then If txtPassword = 123 Then place code to here to pass the success to the calling sub setting a global var is the easiest Form2.Show frmLogin.Hide LoginSucceeded = True Me.Hide Else MsgBox 无效密码,请重试!, , 登录 txtPassword.SetFocus SendKeys {Home}+{End} End If Else MsgBox 无效的用户名,请重试!, , 登录 txtUserName.SetFocus SendKeys {Home}+{End} End If End Sub 9.2 通用对话框 9.2 通用对话框 说明: 1. Action属性:返回或设置被显示的对话框的类型。此属性不能在属性窗口内设置,只能在程序中设置或引用。 Object.Action[=Value] 2. DialogTiltle属性:通用对话框的标题。 3. Show方法: Object.ShowX 其中X为open,save,color, font,printer,help,对应数值为1、2、3、4、5、6 9.2.1 “打开”/“另存为”对话框 属性 1. FileName(文件名称)属性:在程序中可用该属性值设置或返回用户所选定的文件名(包含路径) 2. FileTitle(文件标题)属性:在程序中可用该属性值设置或返回用户所选定的文件名(不包含路径) 9.2 通用对话框 9.2 通用对话框 9.2 通用对话框 9.2.3 “字体”对话框 字体对话框是Action为4时的通用对话框,如下图所示,提供用户选择字体、字号及字体样式等。 字体对话框重要的属性有:Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max等. 9.2 通用对话框 9.2 通用对话框 例程9-3 通用对话框应用 Option Explicit Private Sub Command1_Click() Dim str As String Text1.Text = CommonDialog1.Fil

文档评论(0)

1亿VIP精品文档

相关文档