VB 暂停3秒|读写INI文件

最新推荐文章于 2019-09-25 14:00:47 发布

APP开发王

最新推荐文章于 2019-09-25 14:00:47 发布

阅读量398

点赞数

CC 4.0 BY-SA版权

分类专栏：收藏文章标签： ini vb string integer function date

本文链接：https://blog.youkuaiyun.com/wgsnet/article/details/3054461

收藏专栏收录该内容

20 篇文章

订阅专栏

本文介绍了一种使用Visual Basic编写的读写INI文件的方法。通过声明外部函数GetPrivateProfileString和WritePrivateProfileString来实现对INI文件中指定部分和键值的读取与写入。此外，还提供了一个简单的Sleep函数用于程序中的延时操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Sleep 1000 '暂停1秒

'Dim nowtime As Date
'nowtime = Now()
'While (DateDiff("s", nowtime, Now()) < 3)
'DoEvents
'Wend
'
''MsgBox "暂停3秒了已经"

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
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal LpApplicationName As String, ByVal LpKeyName As Any, ByVal LpString As Any, ByVal lpFileName As String) As Long
'---------------------------------------------------------------------------------
'--------------------------------------------------------------------------------
Public Const LoginURL = "http://login.sina.com.cn/hd/signin.php?entry=blog&r=http%3A%2F%2Fcontrol.blog.sina.com.cn%2Fadmin%2Farticle%2Farticle_add.php%3Findex"

Public Function GetINI(ApplicationName As String, KeyName As String, Optional ByVal Default As String = "", Optional ByVal FileName As String = "config.ini") As String
Dim Retval As Long
Dim Value As String
FileName = IIf(Mid(FileName, 2, 2) = ":/", FileName, Replace(App.Path & "/" & FileName, "//", "/"))
Value = Space(128)
Retval = GetPrivateProfileString(ApplicationName, KeyName, Default, Value, Len(Value), FileName)
GetINI = Left(Trim(Value), Len(Trim(Value)) - 1)
End Function

Public Sub WriteINI(ApplicationName As String, KeyName As String, Value As String, Optional ByVal FileName As String = "config.ini")
Dim Retval As Long
FileName = IIf(Mid(FileName, 2, 2) = ":/", FileName, Replace(App.Path & "/" & FileName, "//", "/"))
Retval = WritePrivateProfileString(ApplicationName, KeyName, Value, FileName)
End Sub

'ApplicationName是INI里的 [xxxx]
'KeyName 就是INI里的 xxx=1231232
'FileName是文件名

'例如

'Private Sub Form_Load()
'FormSetting.TextUserName = GetINI("LogConfig", "u", , "c:/a.ini")
'
'FormSetting.TextPassWord = GetINI("LogConfig", "p", , "c:/a.ini")
'
'
'End Sub
'Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'WriteINI "LogConfig", "u", FormSetting.TextUserName, "c:/a.ini"
'WriteINI "LogConfig", "p", FormSetting.TextPassWord, "c:/a.ini"
'End Sub