VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • vb.net教程之通用对话框控件

通用对话框控件
 
  Windows应用程序里的Open对话框,Save As对话框在各个应用程序里看起来都是一样的,通用对话框控件就可以提供这些对话框的标准功能。
  1.Open对话框及Save As对话框
  打开Open对话框使用ShowOpen方法,打开Save As对话框使用ShowSave方法。
  Private Sub mnuOpen_Click ()
  On Error GoTo ErrorHandler
  CommonDialog1.CancelError = True
  CommonDialog1.Filter = "Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat|All Files (*.*)|*.*"
  CommonDialog1.ShowOpen ' 显示打开对话框
  Call OpenFile(CommonDialog1.FileName)
  ErrorHandler:
  Exit Sub
  End Sub
  其中第三行决定了在文件格式类型栏里出现的文件类型。第五行需要一个自己的打开文件的过程,这个过程需要的参数就是通用对话框返回的文件名。通用对话框的CancelError属性设为True的话,用户单击Cancel按钮将产生一个错误信息程序,凭借这个信息程序可以检测到用户的放弃操作。
  2.Color对话框
  下面的过程可用用户选择的颜色作为窗体的底色。
  Private Sub mnuColor_Click ()
  On Error GoTo CancelButton
  CommonDialog1.CancelError = True
  CommonDialog1.ShowColor
  Form1.BackColor = CommonDialog1.Color
  CancelButton:
  Exit Sub
  End Sub
  3.Fonts对话框
  下面的过程可用字体对话框改变文本框的字体:
  Private Sub mnuFonts_Click ()
  On Error GoTo CancelButton
  CommonDialog1.CancelError = True
  CommonDialog1.Flags = cdlCFBoth ' Flags property must be set to cdlCFBoth
  CommonDialog1.ShowFont ' Display Font common dialog box.
  Text1.FontName = CommonDialog1.FontName
  Text1.FontSize = CommonDialog1.FontSize
  Text1.FontBold = CommonDialog1.FontBold
  Text1.FontItalic = CommonDialog1.FontItalic
  Text1.FontUnderline = CommonDialog1.FontUnderline
  Text1.FontStrikethru = CommonDialog1.FontStrikethru
  Text1.ForeColor = CommonDialog1.Color
  CancelButton:
  Exit Sub
  End Sub
  代码的第三行出现了通用对话框的Flags属性决定了通用对话框的一些可选项,不过即使不赋值给Flags,代码也一样会按缺省的情况去执行的。

相关教程