- Код: Выделить всё
Private 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
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
Function WriteINI(sSection As String, sKeyName As String, sNewString As String, sINIFileName As String) As Boolean
On Local Error Resume Next
Call WritePrivateProfileString(sSection, sKeyName, sNewString, sINIFileName)
WriteINI = (Err.Number = 0)
End Function
Function ReadINI(sSection As String, sKeyName As String, sINIFileName As String) As String
On Local Error Resume Next
Dim sRet As String
sRet = String(255, Chr(0))
ReadINI = Left(sRet, GetPrivateProfileString(sSection, ByVal sKeyName, "", sRet, Len(sRet), sINIFileName))
End Function
Private Sub Command1_Click()
Dim StringVar As String
Select Case Combo1.ListIndex
Case 0 'ñåêóíäû
WriteINI "time refresh", "frmBrowser.Timer1.Interval", Val(timerefresh1.Text1.Text) * 1000, App.Path & "data.ini"
Case 1 'ìèíóòû
WriteINI "time refresh", "frmBrowser.Timer1.Interval", Val(timerefresh1.Text1.Text) * 60000, App.Path & "data.ini"
Case 2 '÷àñû
WriteINI "time refresh", "frmBrowser.Timer1.Interval", Val(timerefresh1.Text1.Text) * 3600000, App.Path & "data.ini"
End Select
frmBrowser.Timer1.Enabled = True
Hide
End Sub
Private Sub Command2_Click()
frmBrowser.Timer1.Enabled = False
Unload Me
End Sub
Private Sub Form_Load()
With Combo1
.Clear
.AddItem "ñåêóíäû"
.AddItem "ìèíóòû"
.AddItem "÷àñû"
.ListIndex = 0
End With
Dim StringVar As String
StringVar = ReadINI("time refresh", "frmBrowser.Timer1.Interval", App.Path & "data.ini")
frmBrowser.Timer1.Interval = CLng(StringVar)
End Sub
при запуске с vb все нормально компелируется норм но когда запускаешь запушена то выдается ошибка invalid property value
.