小弟菜鸟,哪位大侠能告诉我 CommonDialog是干什么的吗???谢谢!!!! 小弟菜鸟,哪位大侠能告诉我 CommonDialog是干什么的吗???谢谢!!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Common Dialog 实际上是一个统称,是 Windows 通用对话框的含义包括了:文件打开/另存为对话框打印对话框文件夹选择对话框... Private Function GetFileName() As String CommonDialog1.CancelError = TrueOn Error GoTo CancelErr CommonDialog1.Filter = "所有文件(*.*)|*.*" CommonDialog1.ShowOpen GetFileName = CommonDialog1.FileName Exit FunctionCancelErr: GetFileName = ""End Function那这段代码我改怎么注释??谢谢了!! Private Function GetFileName() As String CommonDialog1.CancelError = True'设置当用户按下取消按钮的时候触发32755 (cdlCancel) 号错误On Error GoTo CancelErr'错误跳转语句,出错后跳转到 CancelErr CommonDialog1.Filter = "所有文件(*.*)|*.*"'过滤文件(这里显示所有文件) CommonDialog1.ShowOpen'打开“打开文件”对话框 GetFileName = CommonDialog1.FileName'获得用户选择的文件名 Exit Function'退出函数,避免执行后面的错误处理程序CancelErr:'错误处理程序 GetFileName = ""'返回空值End Function VB6.0程序发布问题? VB 变量问题! 读取二级分类时ADO进行死循环 100分 上次谢谢那位高手解答用wmi可以显示隐藏进程 问一个问题:【如何下载这样的文件???】 非常简单的问题,散点分! adodb.command.parameter这个对象有什么用?? 帮忙帮忙!^o^小小问题大家进来看看吧 关于vb中MSFlexGrid,MSHFlexGrid的区别 请问如何用winsock传送jpg图片文件到客户机? 请帮忙看看我的代码,求好心人帮忙 100分求 DHTML Edit SDK(微软网站下不了)
包括了:
文件打开/另存为对话框
打印对话框
文件夹选择对话框
...
CommonDialog1.CancelError = True
On Error GoTo CancelErr
CommonDialog1.Filter = "所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
GetFileName = CommonDialog1.FileName
Exit Function
CancelErr:
GetFileName = ""
End Function
那这段代码我改怎么注释??谢谢了!!
CommonDialog1.CancelError = True'设置当用户按下取消按钮的时候触发32755 (cdlCancel) 号错误
On Error GoTo CancelErr'错误跳转语句,出错后跳转到 CancelErr
CommonDialog1.Filter = "所有文件(*.*)|*.*"'过滤文件(这里显示所有文件)
CommonDialog1.ShowOpen'打开“打开文件”对话框
GetFileName = CommonDialog1.FileName'获得用户选择的文件名
Exit Function'退出函数,避免执行后面的错误处理程序
CancelErr:'错误处理程序
GetFileName = ""'返回空值
End Function