- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 获取文件名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110649)
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2017/12/7 10:00:00
--
谢谢老师!
谢谢!!!
-- 发布时间：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编辑过]
-- 发布时间：2017/12/10 15:56:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108778&skin=0
-- 发布时间：2017/12/21 12:30:00
--
谢谢老师！！！
谢谢！！！
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2017/12/21 14:28:00
--
谢谢老师！
-- 发布时间：2017/12/21 15:03:00
--
老师：
您好！
ICO的图片转 JPG格式请问怎样写代码？
请老师指教！！！
谢谢！！！