求助获取文件名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助获取文件名

共有3451人关注过本帖树形打印复制链接主题：求助获取文件名

jackyfashion

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：5190 威望：0 精华：0 注册：2013/10/7 22:27:00

求助获取文件名 发帖心情

Post By：2017/12/7 0:26:00 [只看该作者]

老师:

您好!

我想要获取文件名,不要带路径及扩展名,怎样写代码?

Dim te3 As WinForm.TextBox = e.Form.Controls("TextBox3")

Dim dlg As New OpenFileDialog

dlg.Filter= "CAD|*.*"

If dlg.ShowDialog = DialogResult.OK Then

te3.text = dlg.FileName

End If

谢谢!

[此贴子已经被作者于2017/12/7 0:27:47编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/7 9:03:00 [只看该作者]

Dim dlg As New OpenFileDialog
dlg.Filter= "CAD|*.*"
If dlg.ShowDialog = DialogResult.OK Then
    Dim finfo As new FileInfo(dlg.FileName)
    Dim fname = finfo.Name.Replace(finfo.Extension, "")
    msgbox(fname)
End If

jackyfashion

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：5190 威望：0 精华：0 注册：2013/10/7 22:27:00

Post By：2017/12/7 10:00:00 [只看该作者]

谢谢老师!

谢谢!!!

jackyfashion

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：5190 威望：0 精华：0 注册：2013/10/7 22:27:00

Post By：2017/12/9 21:47:00 [只看该作者]

老师:

您好!

这个代码获取文件路径

Dim te3 As WinForm.TextBox = e.Form.Controls("TextBox3")

Dim dlg As New OpenFileDialog

dlg.Filter= "CAD|*.*"

If dlg.ShowDialog = DialogResult.OK Then

te3.text = dlg.FileName

End If

什么代码可以获取这个文件的图标?

请老师指教!!!

谢谢!!!

此主题相关图片如下：aa.jpg

谢谢!

[此贴子已经被作者于2017/12/9 21:49:31编辑过]

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/10 15:56:00 [只看该作者]

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108778&skin=0

jackyfashion

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：5190 威望：0 精华：0 注册：2013/10/7 22:27:00

Post By：2017/12/21 12:30:00 [只看该作者]

谢谢老师！！！

谢谢！！！

jackyfashion

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：5190 威望：0 精华：0 注册：2013/10/7 22:27:00

Post By：2017/12/21 13:58:00 [只看该作者]

老师：

您好！

Dim te As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim t As Row = Tables("表A").Current

Dim dlg As New OpenFileDialog

dlg.Filter= "CAD|*.*"

If dlg.ShowDialog = DialogResult.OK Then

te.text = dlg.FileName

End If

Dim p As WinForm.Panel = e.Form.Controls("Panel1")

Dim icon As Icon = ApplicationPath & dlg.name

p.BaseControl.BackgroundImage = icon.ToBitmap()

p.BaseControl.BackgroundImageLayout

老师我用这个代码提取不了外部程序图标，请指教！谢谢！！！

[此贴子已经被作者于2017/12/21 13:59:10编辑过]

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/21 14:21:00 [只看该作者]

Dim dlg As New OpenFileDialog
dlg.Filter= "CAD|*.*"
If dlg.ShowDialog = DialogResult.OK Then
    Dim p As WinForm.Panel = e.Form.Controls("Panel1")
    Dim icon As Icon = System.Drawing.Icon.ExtractAssociatedIcon(dlg.FileName)
    p.BaseControl.BackgroundImage = icon.ToBitmap()

p.BaseControl.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
End If