以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  下拉组合框里显示 文件名,如何实现?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17144)

--  作者:akzzwj
--  发布时间:2012/3/5 9:38:00
--  下拉组合框里显示 文件名,如何实现?
我做了一个下拉组合框,想让下拉组合框里显示 文件名。请问,该怎么实现这种效果呢?
--  作者:akzzwj
--  发布时间:2012/3/5 9:43:00
--  
我做了一个下拉组合框 然后在 ModalButtonClick时间里插入了以下代码:
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog 
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
可是 下拉组合框里,还是没任何反应
没有显示文件名

--  作者:狐狸爸爸
--  发布时间:2012/3/5 9:48:00
--  

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
  e.Form.Controls("ComboBox1").Value = dlg.Filename

End If


--  作者:akzzwj
--  发布时间:2012/3/5 9:48:00
--  
请问,这个代码 是哪里不对?
--  作者:狐狸爸爸
--  发布时间:2012/3/5 9:51:00
--  
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
  e.Sender.Value = dlg.Filename
End If

--  作者:akzzwj
--  发布时间:2012/3/5 9:54:00
--  
上面这个代码带路径啊,那如何不带路径呢?
--  作者:狐狸爸爸
--  发布时间:2012/3/5 9:56:00
--  

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
  e.Sender.Value = Filesys.GetName(dlg.Filename)
End If

 

应该看看:

http://www.foxtable.com/help/topics/0331.htm


 


--  作者:akzzwj
--  发布时间:2012/3/5 10:00:00
--  
谢谢狐狸爸爸
--  作者:akzzwj
--  发布时间:2012/3/5 10:04:00
--  

非常感谢