vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
*.ini Speicher problem 
Autor: Lexx
Datum: 24.08.05 13:45

hallo,

ich hab ein kleines problem meiner daten in ein ini file. ich nutze folgenden code.

'in einem modul
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
 
 
Private Function SaveINI(iniDatei As String, sSection As String, sKeyName As _
  String, sNewString As String) As Boolean
On Error Resume Next
 
SaveINI = WriteINI(iniDatei, sSection, sKeyName, sNewString)
End Function
Private Function ReadINI(iniDatei As String, sSection As String, sKeyName 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), iniDatei))
End Function
 
Private Function GetINI(iniDatei As String, sSection As String, sKeyName As _
  String) As String
On Error Resume Next
 
GetINI = ReadINI(iniDatei, sSection, sKeyName)
End Function
 
Private Function WriteINI(iniDatei As String, sSection As String, sKeyName As _
  String, sNewString As String) As Boolean
On Local Error Resume Next
 
Call WritePrivateProfileString(sSection, sKeyName, sNewString, iniDatei)
WriteINI = (Err = 0)
End Function
 
Private Sub SaveMySettings()
 
Dim sFile As String
sFile = frmPpal.CD1.FileName
 
With frmPpal
 
     SaveINI sFile, "Test", "Test1", .TextBox1.Text
     SaveINI sFile, "Test", "Test2", .TextBox2.Text
 
' usw....
 
End With
End Sub
in form1
Private Sub Command1_Click()
 
With CD1
  .CancelError = False
  .flags = &H2
  .DialogTitle = "Speichern unter..."
  .Filter = "INI (*.ini)|*.ini"
  .ShowSave
 
 Open .FileName For Output As #1
 Print #1, SaveMySettings
 Close #1
End With
End Sub
das ini file wird zwar angelegt, aber nix in die ini geschrieben. wo liegt der fehler??
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
*.ini Speicher problem469Lexx24.08.05 13:45
Re: *.ini Speicher problem249michi-bib24.08.05 15:22
Re: *.ini Speicher problem272Wöllmi24.08.05 22:23
Re: *.ini Speicher problem248Lexx25.08.05 08:55

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel