title image


Smiley Re: CustomDocumentProperties
Hallo Chris,



ein Beispiel ohne grosse Verrenkungen.

Private Sub Document_New()

Dim strINIFName, Durchwahl$

strINIFName = "D:\Durchwahl.ini"

'

If Dir(strINIFName) = "" Then

ufrmBMS_Fax.Show

Else

Durchwahl$ = System.PrivateProfileString(strINIFName, "Aktuelle Durchwahl", "Durchwahl")

' Mach was damit ...

MsgBox "Aktuelle Durchwahl: " & Durchwahl$

End If

End Sub

' - - - - - - - - - - - - - - - -

' Code in der der Form ufrmBMS_Fax

Private Sub cmdOK_Click()

Dim strINIFName

strINIFName = "D:\Durchwahl.ini"

System.PrivateProfileString(strINIFName, "Aktuelle Durchwahl", "Durchwahl") = Me.txtDurchwahl.Text

Unload Me

End Sub

      Hubert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: