Readygo技术搜索引擎 网络搜索 efish 2008-1-14 16:10:28

公用对话框的问题，快快快！！！！

楼主（）2002-07-20 11:01:34 在 VB / 基础类 提问

我用VB6.0编程时，用到了一个公用对话框（commomdialog),作为打开/保存对话框，现在我的问题是，我如何知道用户点击的是打开/保存按钮还是取消按钮，请各位高手指教，有重酬，最好能给出一些代码出来！！！ 问题点数：100、回复次数：7Top

1 楼wangsitao（飞猪）回复于 2002-07-20 11:10:14 得分 35

用on   error   goto   来控制  
   
  On   Error   GoTo   err_control  
          CommonDialog1.Filter   =   "片(*.bmp)|*.bmp|所有文件(*.*)|*.*"  
                CommonDialog1.Flags   =   cdlOFNPathMustExist   Or   cdlOFNOverwritePrompt  
                CommonDialog1.CancelError   =   True  
                CommonDialog1.ShowSave  
                 
                                                           
                lpath   =   CommonDialog1.FileName  
                  SavePicture   Image1.Picture,   lpath  
                  Exit   Sub  
  err_control:  
                  If   Err.Number   =   32755   Then  
                          Exit   Sub  
                  Else  
                  "   another   error   control  
                  End   If  
  Top

2 楼sikeen（阿土）回复于 2002-07-20 11:10:32 得分 30

Private   Sub   Command1_Click()  
           
          On   Error   GoTo   lEnd  
           
          With   CommonDialog1  
                  .CancelError   =   True   "取消出发错误，用错误捕抓  
                  .ShowOpen  
          End   With  
           
  lEnd:  
           
  End   Sub  
  Top

3 楼shuaishen12（12）回复于 2002-07-20 11:13:40 得分 20

CommonDialog1.ShowOpen  
          If   CommonDialog1.FileName   =   ""   Then  
                  MsgBox   "取消"  
          Else  
                  MsgBox   "打开"  
          End   IfTop

4 楼shuaishen12（12）回复于 2002-07-20 11:14:22 得分 0

CommonDialog1.ShowOpen  
          If   CommonDialog1.FileName   =   ""   Then  
                  MsgBox   "取消"  
          Else  
                  MsgBox   "打开"  
          End   IfTop

5 楼zhenhao（轻松XP）回复于 2002-07-20 11:17:51 得分 7

点不同的按钮应该触发不同的时间吧。Top

6 楼zhenhao（轻松XP）回复于 2002-07-20 11:18:22 得分 8

呵呵，写错了是“事件”Top

7 楼zhenhao（轻松XP）回复于 2002-07-20 11:18:59 得分 0

呵呵，写错了是“事件”Top