Private 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 maxi&
'说明:
'凭大家的经验可能觉得上面的API函数还是不好用,那么
'下面函数非常让你方便地与上面声明的API函数打交道:
'
'------------------------
'
'ReadINI函数:
'
'用法:ReadINI (INI文件, INI段, INI键值, INI默认)
'
' INI文件:你想要读的INI文件,路径不能省略;
' INI段:你想要读的INI段(就是有[]括起来的那个啦);
' INI键值:就是INI文件中等号“=”左边的字符串;
' INI默认:INI文件中的默认值。如果你不懂,干脆就填空字符串""吧。
'
'返回:指定键值右边的字符串
'
'------------------------
Private Function ReadINI(INIFile As String, inisection As String, inikey As String, iniDefault As String) As String
Dim lpReturnedString As String
Dim retval As Long
lpReturnedString = Space$(254)
retval = GetPrivateProfileString(inisection, inikey, iniDefault, lpReturnedString, 254, INIFile)
ReadINI = lpReturnedString
End Function
' 这里的tempini改成你的文件名
Private Sub Timer1_Timer()
label1= ReadINI(AppPath & "\tempini", "Server", "CurrentGroup", "")
End Sub
Private Sub Form_Initialize()
Timer1Interval = 1000
End Sub
'为初始化文件中指定的条目取得字串
Private 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
' Combobox(i)ToolTipText 为方便读取区分每个数组控件键名不一样,设置的也就是以它为键名,此问题中例子 Combobox(1)ToolTipText = 红药
For i = 0 To CoList - 1 Step 1 <===Colist 是什么,自己定义的么?
If ReadINI("保护设置", Combobox(i)ToolTipText, path) <> "" Then <<==这里可以断点看一下读取内容是否出错
For N = 0 To Combobox(i)ListCount - 1 Step 1
If Combobox(i)List(N) = ReadINI("保护设置",Combobox(i)ToolTipText, path) Then
Combobox(i)ListIndex = CInt(N)
Exit For
End If
Next
End If
Next
以上就是关于VB 每秒读取INI文件中指定内容并显示在label里全部的内容,包括:VB 每秒读取INI文件中指定内容并显示在label里、vb读取ini的问题、VB加载读取ini配置等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)