要求与Dwg文件已经建立关联：         Private   Declare   Function   ShellExecute   _             Lib   "shell32.dll"   Alias   "ShellExecuteA"   _             (   _             ByVal   hwnd   As   Long,   _             ByVal   lpOperation   As   String,   _             ByVal   lpFile   As   String,   _             ByVal   lpParameters   As   String,   _             ByVal   lpDirectory   As   String,   _             ByVal   nShowCmd   As   Long   _             )   As   Long         Private   Sub   cmdOpen_Click()     ShellExecute   Me.hwnd,   "open",   "C:\My   Documents\DWG\file1.dwg",   "",   "",   1     End   Sub     用commondialog   的showopen   时，用   CommonDialog1.FileName   代替"C:\My   Documents\DWG\file1.dwg",

评论