VB源码最新内容
VB6.0 获取文件的扩展名源代码实例
内容简介
在这里小编给大家提供VB6.0 获取文件的扩展名源代码实例下载,都是比较常用和简单的。有需要学习相关编程的可以下载回去研究一下。
VB6.0 获得文件的扩展名,运程程序后,选择要获得扩展名的文件,以前有不少都是获取文件扩展名的,和这个差不多,不过这一款所用的方法更简单,具体请参见代码,具体效果请参见运行截图。
Private Function GetExtension(ByVal Filename As String) As String
Dim pos As Integer
pos = InStrRev(Filename, ".")
GetExtension = Right(Filename, Len(Filename) - pos)
End Function
Private Sub Cmd_Get_Click()
Label2.Caption = "文件的扩展名为:" + GetExtension(Text1.Text)
End Sub
Private Sub Cmd_Open_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.Filename
End Sub
VB6.0 获得文件的扩展名,运程程序后,选择要获得扩展名的文件,以前有不少都是获取文件扩展名的,和这个差不多,不过这一款所用的方法更简单,具体请参见代码,具体效果请参见运行截图。
Private Function GetExtension(ByVal Filename As String) As String
Dim pos As Integer
pos = InStrRev(Filename, ".")
GetExtension = Right(Filename, Len(Filename) - pos)
End Function
Private Sub Cmd_Get_Click()
Label2.Caption = "文件的扩展名为:" + GetExtension(Text1.Text)
End Sub
Private Sub Cmd_Open_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.Filename
End Sub
关键词:扩展名
VB源码相关推荐
- 2.23KVB从INI文件一次性获取信息源代码实例
- 2.52KVB 使用API函数CopyFile复制文件源代码实例
- 2.03KVB 以默认方式打开文件源代码实例
- 2.29KVB6.0 串口发送数据源代码实例
- 2.50KVB6 串口测试程序源代码实例
- 18.3KVB 6.0源码 批量重命名文件源代码实例
- 4.11KVB 使用XML文件保存数据源代码实例
- 2.47KVB 从INI文件读取程序设置源代码实例
- 2.13KVB 使用FSO对象创建文本文件源代码实例
- 6.44K动态生成菜单 基于VB6.0源码创作源代码实例
- 31.5KVB 二进制备份数据库文件源代码实例
- 2.03KVB 6 拖放文件,将文件名添加至列表框源代码实例
VB源码人气排行更多》
- 2.05KVB6.0 判断成绩级别(及格 、不及格、优秀)源代码实例
- 1.83KVB6.0 调用系统菜单的制作实例源码源代码实例
- 2.93K又一个VB串口发送接收数据源代码实例
- 36.9KVB串口调试程序 完善版源代码实例
- 7.83KVB6.0 质量流量计串口通讯源代码实例
- 2.47KVB 从INI文件读取程序设置源代码实例
- 2.01KVB求解数学问题,求两个数最大公约数源代码实例
- 2.23KVB从INI文件一次性获取信息源代码实例
- 18.3KVB 6.0源码 批量重命名文件源代码实例
- 19.1KVB 串口通讯:浓度分析仪程序源码源代码实例