如何在模块中使用commondialog?

如题。 问题点数：20、回复次数：6Top

1 楼forever_chang（寒冬月夜裸奔狂）回复于 2002-07-31 10:05:52 得分 0

upTop

2 楼forever_chang（寒冬月夜裸奔狂）回复于 2002-07-31 10:13:42 得分 0

自己搞定了  
  Dim   a   As   Object  
  Set   a   =   CreateObject("MSComDlg.CommonDialog")        
  a.ShowColorTop

3 楼forever_chang（寒冬月夜裸奔狂）回复于 2002-07-31 10:14:48 得分 0

20分谁要，先到先得Top

4 楼zhuangbx220（星）回复于 2002-07-31 10:45:59 得分 0

Form1.commondialog1.showOpenTop

5 楼nik_Amis（...）回复于 2002-07-31 13:21:52 得分 10

Private   Declare   Function   GetOpenFileName   Lib   "comdlg32.dll"   Alias   "GetOpenFileNameA"   (pOpenfilename   As   OPENFILENAME)   As   Long  
  Top

6 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-07-31 13:45:09 得分 10

调用这几个API就行了：  
  “打开”对话框：GetOpenFileName  
  “保存”对话框：GetSaveFileName  
  “目录”对话框：SHBrowseForFolder  
  “颜色”对话框：ChooseColor  
  “字体”对话框：ChooseFontTop

相关问题

• commondialog
• 对话框
• getopenfilename

• 帖主：forever_chang
• nik_Amis
• zyl910

• Visual Basic类图书
• Visual Basic类源码下载