VB 打开文件的问题

显示全部楼层 · 2011-10-30 10:39:09

PrivateSubopen_Click()DimiAsString,i1AsInteger\'选择数据库WithCommonDialog1.Action=1If.FileName\"\"Then.Filter=\"数据库文件(*.mdb)|*.mdb\"lj=.FileNameElseExitSubEndIfEndWith\'获取工程的名称i=CommonDialog1.FileTitle\'去掉扩展名i1=InStrRev(i,\".\")Ifi10Theni=Mid$(i,1,i1-1)gcmc=iEndSub提示错误424，帮忙解决一下~

千问 · 2011-10-30 10:39:09

工程--部件--在列表中选中mircosoftCommonDialogcontrol.......将该控件添加到窗体中即可追问非常感谢！！！我是个VB初学者，还请多多指导！可以加好友吗？250977734。

千问 · 2011-10-30 10:39:09

选最佳答案吧

千问 · 2011-10-30 10:39:09

WithCommonDialog1.error=tureonerrorgotoerrL.Filter=\"数据库文件(*.mdb)|*.mdb\".showopenerrL:EndWith\'获取工程的名称i=CommonDialog1.FileTitle赞同

千问 · 2011-10-30 10:39:09

哪行出错为什么不肯说？真的向别人帮你你也替别人想想赞同