dzednajpw
Daimi Üye
- Aktiflik
- K.Tarihi
- 4 Ağu 2012
- Mesajlar
- 57
- Puanı
- 4
Arkadaşlar örnek kodlarda buldum ama iniWrite yapamıyorum.
Object Requried hatası alıyorum
Object Requried hatası alıyorum
Son düzenleme:
Follow along with the video below to see how to install our site as a web app on your home screen.
Not: This feature may not be available in some browsers.
Option Explicit
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
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
Function ReadINI(Section As String, KeyName As String, FileName As String) As String
Dim sRet As String
sRet = String(255, Chr(0))
ReadINI = Left(sRet, getprivateprofilestring(Section, ByVal KeyName$, "", sRet, Len(sRet), FileName))
End Function
Function WriteINI(sSection As String, sKeyName As String, sNewString As String, sFileName) As Integer
Dim r
r = writeprivateprofilestring(sSection, sKeyName, sNewString, sFileName)
End Function
WriteINI "Proje", "Deger", Text1.Text, App.Path & "\Deneme.ini"
Text1.Text = ReadINI("Proje", "Deger", App.Path & "\Deneme.ini")
WriteIniValue App.Path & "\MyTest.ini", "Default", "Text1", Text1.Text
WriteIniValue App.Path & "\MyTest.ini", "Default", "Text2", Text2.Text
WriteIniValue App.Path & "\MyTest.ini", "Default", "Text3", Text3.Text
WriteIniValue App.Path & "\MyTest.ini", "Default", "Text1", Text1.Text
WriteIniValue App.Path & "\MyTest.ini", "Default", "Text2", Text2.Text
WriteIniValue App.Path & "\MyTest.ini", "Default", "Text3", Text3.Text
hocam my.settings fonksiyonunu kullansanız ya?çok rahat olur 3 textbox içinBen istiyorumki text1.text'e girdiğim değer .ini dosyasının adı olsun örnek code ;
PHP:WriteIniValue App.Path & "\MyTest.ini", "Default", "Text1", Text1.Text WriteIniValue App.Path & "\MyTest.ini", "Default", "Text2", Text2.Text WriteIniValue App.Path & "\MyTest.ini", "Default", "Text3", Text3.Text
PHP:WriteIniValue App.Path & "\MyTest.ini", "Default", "Text1", Text1.Text WriteIniValue App.Path & "\MyTest.ini", "Default", "Text2", Text2.Text WriteIniValue App.Path & "\MyTest.ini", "Default", "Text3", Text3.Text
Nasıl düzenlersem o hale gelebilir ?