发布于 2009-09-29 10:39:46
8楼
Dim ComDialog
Dim filename
Dim filepath
Set filepath=HMIRuntime.Tags("file")
Set ComDialog=ScreenItems("CommonDialog")
ComDialog.ShowOpen
filepath.Value=ComDialog.FileName
filepath.Write
MsgBox "ssssssssss",,"sssssss"
这是个基本实验的哈 需要在画面中添加个控件Microsoft Common Dialogue ,
CommonDialog为我修改的控件名
纯属巧合