Bilgi? 5 Bin Tl Para Ödülü Kazanmak İster misiniz ? Detaylı bilgi için ["TIKLAYINIZ."]
#BaşvuruYap Yetkili Alımları Başlamıştır! Sitede Görevli Olmak İsteyen Arkadaşlar Konuyu İnceleyebilir, Detaylar İçin: ["TIKLAYINIZ."]
Süper:) VİP Üyelik Ayrıcalıklarından Yararlanmak İçin Buraya! Ömür Boyu VİP Üye Olabilirsiniz Detaylar Konumuzda: ["TIKLAYINIZ."]
Dikkat! Emeklere Karşılık Olarak Konulara Yorumlarını Eksik Etmeyiniz. Kurallara Uymayanlar Siteden Men Edilecektir! Torrentleri Seed Ediniz.!
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi
01-06-2016, Saat: 19:54,
#1
VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi
Kod:
[ApplicationName]
Key=Value
***** 16-bit Örnek *****
Project’inize 1 adet commandbutton ekleyin ve aşağıdaki kodu yazınız:
Declare Function GetPrivateProfileString Lib "kernel" (ByVal lpApplicationName _
As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal _
lpReturnedString As String, ByVal nSize As integer, ByVal lpFileName As String) _
As integer
Declare Function WritePrivateProfileString Lib "kernel" (ByVal _
lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As _
String, ByVal lpFileName As String) As integer
Sub Command1_Click()
Dim sData As String
Dim iDataLen As integer
' WIN.INI ‘den okur.
' [Desktop]
' Wallpaper={path\filename.bmp}
sData = Space$(255) ' string’lerin yerlerini ayırır.
iDataLen = GetPrivateProfileString("Desktop", "Wallpaper", "", sData, _
Len(sData), "win.ini")
sData = Left$(sData, iDataLen)
'Debug penceresine yazılır.
Debug.Print sData
' WIN.INI şimdi yazılır.
' [Desktop]
sData = "here is some text"
WritePrivateProfileString "Desktop", "Test", sData, "win.ini"
End Sub
***** 32-bit Örnek *****
Project’inize 1 adet commandbutton ekleyin ve aşağıdaki kodu yazınız:
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
lpKeyName As String, 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 String, ByVal lpString As String, ByVal lpFileName As String) As _
Long
Private Sub Command1_Click()
Dim sData As String
Dim lDataLen As Long
' WIN.INI’den okur.
' [Desktop]
' Wallpaper={path\filename.bmp}
sData = Space$(255) ' stringlerin yerini ayırır.
lDataLen = GetPrivateProfileString("Desktop", "Wallpaper", "", sData, _
Len(sData), "win.ini")
sData = Left$(sData, lDataLen)
' Debug penceresini yazılır.
Debug.Print sData
' WIN.INI şimdi yazılır.
' [Desktop]
sData = "here is some text"
WritePrivateProfileString "Desktop", "Test", sData, "win.ini"
End Sub
Cevapla
17-03-2017, Saat: 04:12,
#2
RE: VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi
Eline Sağlık Kardeşim Benim
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  VISUAL BASIC / Library Çalışması Acces 1 385 17-03-2017, Saat: 04:13
Son Yorum: Watherson
  VISUAL BASIC / Ms Dondurucu Acces 1 404 17-03-2017, Saat: 04:13
Son Yorum: Watherson
  VISUAL BASIC / Bilimsel Hesap Makinesi Acces 1 477 17-03-2017, Saat: 04:12
Son Yorum: Watherson

Hızlı Menü:

Konuyu Okuyanlar: 1 Ziyaretçi
Torrent Oyun Torrent film film indir