38 lines
855 B
Plaintext
38 lines
855 B
Plaintext
VERSION 5.00
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSettings
|
|
Caption = "Einstellungen"
|
|
ClientHeight = 1815
|
|
ClientLeft = 120
|
|
ClientTop = 465
|
|
ClientWidth = 8895
|
|
OleObjectBlob = "frmSettings.frx":0000
|
|
StartUpPosition = 1 'Fenstermitte
|
|
End
|
|
Attribute VB_Name = "frmSettings"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
|
|
Private Sub btnCancel_Click()
|
|
|
|
Unload Me
|
|
|
|
End Sub
|
|
|
|
Private Sub btnOk_Click()
|
|
|
|
Call gfSettings.SetSettingValue("OnlineArchiv", tbOnlinearchiv.Text)
|
|
Unload Me
|
|
|
|
End Sub
|
|
|
|
Private Sub UserForm_Activate()
|
|
|
|
' Fenster-Titel zuweisen
|
|
Me.Caption = "Einstellungen"
|
|
|
|
tbOnlinearchiv.Text = gfSettings.GetSettingValue("OnlineArchiv")
|
|
|
|
End Sub
|