/ Forside/ Teknologi / Udvikling / VB/Basic / Tip
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Læs og skriv til .ini filer.
Er bedømt af 3 brugere
Fra : rean
Vist : 626 gange

Dato : 04-12-00 15:20

Dette tip viser, hvordan du kan bruge .ini filer, til at sætte eller læse fra.

***********************************************
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

Public Function ReadIni(sSectHeader As String, sVarName As String, sFileName As String) As String
Dim strReturn As String
strReturn = String(255, Chr(0))
ReadIni = Left$(strReturn, GetPrivateProfileString(sSectHeader, ByVal sVarName, "", strReturn, Len(strReturn), sFileName))
End Function


Public Function WriteIni(sSectHeader As String, sVarName As String, sValue As String, sFileName As String) As Integer
WriteIni = WritePrivateProfileString(sSectHeader, sVarName, sValue, sFileName)
End Function

Private Sub Command1_Click()
Label1.Caption = ReadIni("Mail", "MAPI", "c:\winnt\win.ini")
End Sub

 
 
Bedømmelse

Fra : Jean Brodersen


Dato : 24-01-01 20:50



Bedømmelse

Fra : stk


Dato : 16-03-01 12:59



Bedømmelse

Fra : Gertz


Dato : 26-05-03 15:57



Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste