Torrent Dükkanı, Torrent Oyun, Torrent Film, Torrent Dizi, Full İndir
Torrent Dükkanı Bilgilendirme

Torrent Dükkanı Vip Üyelik

Torrent Dükkanı Moderatör Başvurusu

Forum kuralları!

Merhaba! Forumlarımızda herhangi bir aktivitede bulunmadan önce, forum düzeni ve kalıcılığı için lütfen forum kurallarını okuyunuz.

Forum Kuralları
Bilgi? Yeni temamız aktif edilmiştir, iyi forumlar dileriz.
Sağolun! Gün geçtikçe büyüyor ve gelişiyoruz destek verenlere teşekkür ederiz.
Dikkat! Kurallara uymayan üyeler uyarılmaksızın siteden men edilecektir.
Süper:) Yeni kampanyalarımızla sizlere yenilikler katmaya devam ediyoruz.
 
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi
(Okunma: 196)
Acces
#1
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
Ara
Cevapla
 


Anahtar Kelimeler

VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi indir, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi Videosu, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi online izle, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi Bedava indir, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi Yükle, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi Hakkında, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi nedir, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi Free indir, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi oyunu, VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi download



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  VISUAL BASIC / Bilimsel Hesap Makinesi Acces 0 211 01-06-2016, Saat: 19:53
Son Yorum: Acces
  VISUAL BASIC / Library Çalışması Acces 0 174 01-06-2016, Saat: 19:49
Son Yorum: Acces
  VISUAL BASIC / Ms Dondurucu Acces 0 171 01-06-2016, Saat: 19:46
Son Yorum: Acces

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi