请问这个VB程序哪里错?
来源:百度知道 编辑:UC知道 时间:2024/09/13 04:29:35
Private Sub Form_Click()
DlgopenFile.FileName=" "
DlgopenFile.ShowOpen
if DlgopenFile.FileName<>" "Then
LstFile.Addltem DlgopenFile.FileName
CmdModify.Enabled=True
CmdBatModify.Enabled=True
End if
End sub
那怎样建立CommonDilalog控件,或者怎样把控件的name属性改为DlgopenFile
DlgopenFile.FileName=" "
DlgopenFile.ShowOpen
if DlgopenFile.FileName<>" "Then
LstFile.Addltem DlgopenFile.FileName
CmdModify.Enabled=True
CmdBatModify.Enabled=True
End if
End sub
那怎样建立CommonDilalog控件,或者怎样把控件的name属性改为DlgopenFile
这样看不出错误来,你最好在说详细的,比如错误提示什么,都是什么控件
fjangei 估计没看清楚吧,DlgopenFile.FileName<>" "Then 这句前有句DlgopenFile.ShowOpen 所以DlgopenFile.FileName不为空
估计你没建立CommonDilalog控件,或者控件的name属性没改为DlgopenFile
在vb左边控件栏空白处右键->部件->控件选项里找到microsoft common dilalog control 6.0,前面勾勾上.一路ok.这样就在你的控件栏里最后有这个控件了,双击它建立CommonDilalog1,然后在窗体里选中刚建立的控件,在右边属性窗口里更改其name属性为DlgopenFile.下面的LstFile,CmdModify,CmdBatModify也一样.LstFile对应控件listbox,这个在控件栏里有,不用添加.CmdModify,CmdBatModify对应command控件,控件栏里有.双击建立后,改name属性分别为LstFile,CmdModify,CmdBatModify
DlgopenFile.FileName=" "
if DlgopenFile.FileName<>" "Then
这里的if语句没有作用,因为DlgopenFile.FileName肯定是" "
----------------------
不好意思,刚才忽略了,还是贴出来错误提示吧
if DlgopenFile.FileName<> "" Then
LstFile.Addltem 应该LstFile.AddItem (l改成I)
其他都对。