首页 >> 读书频道 >> 电脑 >> VB下几个非常有用的函数下
 
· 第15章 XSL格式化对
· VB下几个非常有用的函数
· 第15章 XSL格式化对
· 用VB编写一个弹出菜单类
· 第15章 XSL格式化对
· 对齐排列控件下
· 第15章 XSL格式化对
· 对齐排列控件上
· 第15章 XSL格式化对
· 检验是否连接到网络中
· 检验是否连接到网络下
· 第14章 XSL变换 本
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

VB下几个非常有用的函数下


查看有无更新版本

关键字:VB 2006-9-18

 

'————————(3)————————————
'检查文件是否存在,存在返回 TRUE,否则返回FALSE
Public Function CheckFileExist(strFile As String) As Boolean
    
    If Dir(strFile, vbDirectory) <> "" Then
        CheckFileExist = True
    Else
        CheckFileExist = False
    End If
End Function

'————————(4)————————————
'获得指定ini文件中某个节下面某个子键的键值,需要下面的API声明
'Public Declare Function GetPrivateProfileString Lib "kernel32" Alias _
'    "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
'    ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString _
'    As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'返回一个字符串
'调用举例:
'Dim strRun As String
'strRun = GetiniValue("Windows","Run", "C:\Windows\Win.ini")

Public Function GetiniValue(ByVal lpKeyName As String, ByVal strName As String, ByVal strIniFile As String) As String
    Dim strTmp As String * 255
    
    Call GetPrivateProfileString(lpKeyName, strName, "", _
            strTmp, Len(strTmp), strIniFile)
    GetiniValue = Left$(strTmp, InStr(strTmp, vbNullChar) - 1)
    
End Function

'————————(5)————————————
'获得Windows目录 ,需要下面的API声明
'Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'返回一个字符串,如“C:\Windows”、“C:\Winnt”
'调用举例:
'Dim strWindir As String
'strWindir = GetWinDir()
Private Function GetWinDir()
    Dim windir As String * 100
    Call GetWindowsDirectory(windir, 100)
    GetWinDir = Left$(windir, InStr(windir, vbNullChar) - 1)
    
End Function

'————————(6)————————————
'获得Windows系统目录,需要下面的API声明
'Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'返回一个字符串,如“C:\Windows\System”、“C:\Winnt\System32”
'调用举例:
'Dim strSysDir As String
'strSysDir = GetSystemDir()
Private Function GetSystemDir()
    Dim strSysDir As String * 100
    Call GetSystemDirectory(strSysDir, 100)
    GetSystemDir = Left$(strSysDir, InStr(strSysDir, vbNullChar) - 1)
    
End Function

VB下几个非常有用的函数下

[ 1 ]
VB下几个非常有用的函数下 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑