vb0103.htm

看图实例学习VB6.0,快速成为编程高手,通俗易懂,不妨看看!

    TextBoxFont.FontItalic = CdlTest.FontItalic
    TextBoxFont.FontStrikethru = CdlTest.FontStrikethru
    TextBoxFont.FontUnderline = CdlTest.FontUnderline
End If
End Sub

'当“帮助”对话框按钮被按下时
Private Sub CmdHelp_Click()
On Error Resume Next
'设置 HelpCommand 属性，显示 Visual Basic 帮助目录主题
CdlTest.HelpCommand = cdlHelpForceFile

'指定帮助文件
Dim fullpath As String
If Right(App.Path, 1) = "\" Then ' 若 App.Path 为根目录
   fullpath = App.Path + "test.hlp"
Else
   fullpath = App.Path + "\" + "test.hlp"
End If
'上面是得到应用程序所在路径的小技巧

CdlTest.HelpFile = fullpath
'显示“帮助”对话框
CdlTest.ShowHelp
End Sub

'当“打开”对话框按钮被按下时
Private Sub CmdOpen_Click()
'出现错误时跳到下一语句
On Error Resume Next
CdlTest.CancelError = True
'属性DialogTitle是要弹出的对话框的标题
CdlTest.DialogTitle = "打开文件"
'缺省的文件名为空
CdlTest.FileName = ""
'属性Filter是文件滤器，返回或设置在对话框的类型列表框中所显示的过滤器。
'语法object.Filter [= 文件类型描述1 |filter1 |文件类型描述2 |filter2...]
CdlTest.Filter = "文本文件(.txt)|*.txt"
'Flags属性的用法依据不同的对话框而变，详细使用需要查找联机帮助手册
CdlTest.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
CdlTest.ShowOpen
If Err = cdlCancel Then Exit Sub
TextBoxOPen.Text = CdlTest.FileName
End Sub

'当“打印”对话框按钮被按下时
Private Sub CmdPrint_Click()
On Error Resume Next
CdlTest.CancelError = True
'显示“打印”对话框
CdlTest.ShowPrinter
If Err = cdlCancel Then Exit Sub
End Sub

'当“保存”对话框按钮被按下时
Private Sub CmdSave_Click()
On Error Resume Next
CdlTest.CancelError = True
CdlTest.DialogTitle = "保存文件"
CdlTest.FileName = ""
'解释见上面
CdlTest.Filter = "文本文件(*.txt)|*.txt"
CdlTest.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
CdlTest.ShowSave
If Err = cdlCancel Then Exit Sub
TextBoxSave.Text = CdlTest.FileName
End Sub

</textarea>
                <br>
                (<a href="/pc/program/tutors/vb/zip/vb0102.zip">源程序下载</a>)</p>
              <p align="left"><span class="p2" style="line-height:17pt">　　如果控件面板中没有CommonDialog控件的小图标，必须先从“添加控件对话框”中添加，下面我们来看看怎样调用不同类型的对话框。</span></p>
              <p align="left"><span class="p2" style="line-height:17pt">　　CommonDialog控件有一系列的Show方法，例如：ShowOpen、ShowSave、ShowFont、ShowColor、ShowPrinter、ShowHelp等，这些方法的使用语法是类似的，如下所示：</span></p>
              <p align="left"><span class="p2" style="line-height:17pt">　　object.ShowOpen，我们只须在程序中写入这个语句，就能调出“打开”对话框，同样也能调用其它类型的对话框。</span></p>
              <p align="left"><span class="p2" style="line-height:17pt">　　而CommonDialog控件的属性是和不同的对话框类型紧密相关的，有些属性只适用于某一类对话框，有些属性在不同的对话框中的属性是有差别的，所以下面分类列出了和不同对话框相关联的属性的用法。</span></p>
              <p align="left"><span class="p2" style="line-height:17pt">　　与ShowOpen、ShowSave方法相关的属性：<br>
                　　<span class="p1">●</span>FileName属性：返回或设置所选文件的路径和文件名，如果在使用Show方法以前使用FileName属性，则设定了对话框的默认文件名；如果是在以后使用则返回选择的文件名。<br>
                　　使用语法是： CommonDialog.Filename[=pathname] <br>
                　　<span class="p1">●</span>Filter属性：返回或设置在对话框的类型列表框中所显示的过滤器(也就是限定打开或保存为的文件类型)，它的使用语法是：<br>
                　　object.Filter [= 描述文字1 |过滤标示1 |描述文字2 |过滤标示2]<br>
                　　其中描述文字为任意文字，而 过滤标示则采用*.文件后缀(例如：*.bmp)的格式，描述文字和过滤标示之间用“|”隔开。<br>
                　　<span class="p1">●</span>DefaultExt属性：为该对话框返回或设置缺省的文件扩展名，也就是当我们没有指定打开或保存的文件类型时，按DefaultExt属性所设置的扩展名为默认值。</span></p>
              <p align="left"><span class="p2" style="line-height:17pt">　　与ShowFont方法相关的属性：<br>
                　　<span class="p1">●</span>Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。 
                <br>
                　　<span class="p1">●</span>FontBold 是否选定“粗体”。 <br>
                　　<span class="p1">●</span>FontItalic 是否选定“斜体”。 <br>
                　　<span class="p1">●</span>FontStrikethru 是否选定删除线。 <br>
                　　<span class="p1">●</span>FontUnderline 是否选定下划线。 <br>
                　　<span class="p1">●</span>FontName 选定的字体名称。 <br>
                　　<span class="p1">●</span>FontSize 选定的字体大小。<br>
                　　使用的语法是直接引用，比如我们要根据“字体对话框”返回的值设置文本框的字体，则直接采用语句：Text.Font=CommonDialog.FontnName 
                </span></p>
              <p align="left"><span class="p2" style="line-height:17pt">　　与ShowColor方法相关的属性：<br>
                　　<span class="p1">●</span>Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。</span></p>
              <p align="left"><span class="p2" style="line-height:17pt">　　与ShowHelp方法相关的属性：<br>
                　　<span class="p1">●</span>HelpCommand属性 返回或设置需要的联机帮助的类型 <br>
                　　<span class="p1">●</span>HelpFile属性　确定帮助文件的路径和文件名<br>
                　　语法是： object.HelpFile[ = filename] </span></p>
              <p align="left"><span class="p2" style="line-height:17pt">　　下面看看CancelError属性，它设置当选取“取消”按钮时是否认为出错，使用的语法是：CommonDialog.CancelError[= 
                boolean] (boolean指布尔型变量)<br>
                　　如果我们把它设为True，则当使用者选取了“取消”按钮时程序会返回一个cdlCancel错误，通过捕捉这个错误并加以处理，我们就能避免程序的出错。具体的使用可在源码中看到实例。</span></p>
            </div>
            </td>
        </tr>
        <tr> 
          <td bgcolor="FF9700" height="2" width="5%"><img src="img/blank.gif" width="1" height="2"></td>
          <td bgcolor="FF9700" height="2" width="5%"><img src="img/blank.gif" width="1" height="2"></td>
          <td bgcolor="FF9700" height="2" width="29%"><img src="img/blank.gif" width="1" height="2"></td>
          <td bgcolor="FF9700" height="2" width="61%"><img src="img/blank.gif" width="1" height="2"></td>
        </tr>
      </table>
      
      <table width="95%" align="center" class="p1" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="16%"> 
            <div align="center"><a href="/pc/program/index.htm">程序设计首页</a></div>
          </td>
          <td width="16%"> 
            <div align="center"><a href="/pc/program/tutors/index.htm" color="#009999">编程入门首页</a></div>
          </td>
          <td width="41%"> 
            <div align="left">相关链接：　<a href="/pc/program/codtutor/index.htm">VB趣味程序讲解</a></div>
          </td>
          <td width="16%"> 
            <div align="right"><a href="/pc/program/tutors/vb/vb0102.htm">上一节</a>　　<a href="/pc/program/tutors/vb/vb0104.htm">下一节</a></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!--底部开始--> 
<script language="Javascript" src="/pub/js/foot.js"></script>
<!--底部结束--></HTML>