Makroer og dll-filer

Hvad med at gemme dem i en ini-fil ??

Tilføj denne kode i et modul.

Anders


\'start of code
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
   
   
   
   


Public Function GetProfileString(ByRef iniFile As String, ByVal section As String, ByVal key As String, ByVal default As String, ByVal error As String)

Dim r As Long
Dim ret As String



ret = Space$(32)
r = GetPrivateProfileString(section, key, default, ret, Len(ret), iniFile)

ret = Left$(ret, r)

If ret = error Then
    MsgBox (\"Fejl i \" & iniFile & vbCrLf & \"I sectionen \" & section & \" blev key \" & key & \" ikke fundet.\")
End If

GetProfileString = ret

End Function


\'end of code

Der må da værer en nemmere måde, arbejder visual basic ikke med flere filer. (i delfi bruger man fx flere units som repreæsenteres ved hver deres fil og så skal man bare skrive uses den og den unit og så virker det) - det må man da også kunne i visual basic istedet for at skulle læse filen ind...?

I VB bruger man modules (moduler).

F.eks har jeg et modul med ovenstående kode (det til at læse fra en inifil).

Når jeg så skal bruge den kode i en anden vb app, så vælger jeg: -> modules -> add -> module -> existing .... og vælger mit inifils modul.

Anders

nu er jeg ikke lige så skarp til vb-kode, jeg kan ikke helt gennemskue den kode du har sendt. Hvad skal man kalde GetProfileString? og hvad skal man fylde ind som parametre?

hvordan skal inifilen se ud?

det kunne være lækkert hvis du havde en egentligt programeksempel?