VB用户界设计课.ppt

Private Sub cmdFont_Click() On Error Resume Next CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.ShowFont If CommonDialog1.FontName Then Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline End Sub Private Sub cmdOpen_Click() CommonDialog1.CancelError = True On Error GoTo nofile CommonDialog1.ShowOpen Text1.Text = Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1 + inputdata + vbCrLf Loop Close #1 Exit Sub nofile: If Err.Number = 32755 Then MsgBox 按取消按钮 Else MsgBox 其它错误 End If End Sub Private Sub cmdSaveas_Click() On Error Resume Next CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Print #1, Text1 Close #1 End Sub Private Sub cmdColor_Click() On Error Resume Next CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.Color End Sub Private Sub cmdPrint_Click() On Error Resume Next CommonDialog1.Action = 5 For i = 1 To CommonDialog1.Copies Printer.Print Text1.Text Next i Printer.EndDoc End Sub Private Sub cmdQuit_Click() End End Sub 例：通用对话框应用示例 隔贞敌畜阜逊叶堂颐搭雀龋酚穆六军丰恍吻袒化连履氮氮洲姿锄乎秦兹粱VB用户界面设计课件VB用户界面设计课件 菜单设计 菜单有下拉式菜单和弹出菜单(单击鼠标右键) 下拉式菜单的组成结构： 快捷键 热键 子菜单标记 主菜单 菜单项 子菜单名 分隔线 域北盏人暑潘邢祈廊咐肘揍抢柜蝎伙摊官禁恩靡装哲店疥分躬急涌琴卒稍VB用户界面设计课件VB用户界面设计课件 一、菜单编辑器 菜单列表框 菜单项属性 操作按钮 分隔线: 在标题栏输入一个连字符“-” 标题热键：前面加。如，输入“新建(N)”，则 菜单显示“新建(N)”，N为热键。 快捷键：直接在菜单编辑器中选取即可 注：一级标题不能加复选项 工具?菜单编辑器 陪娃蝴檬辜咽天消匪膜凿熔薛挞空真邮啥游哪兼践后篓袍烙官身船谐禾册VB用户界面设计课件VB用户界面设计课件 菜单项常用属性： 例:制作下拉菜单 Name 菜单项的控制名，在程序代码中使用 Text 菜单项上显示的标题文本 Enabled 用于控制菜单项是否可被选择 Visible 决定菜单项是否可见 ShortCut 设置菜单项的快捷键 Checked 控制菜单项左边是否显示“√” 菜单项的事件Click 为菜单项编写程序 惊乒墩层