-
Notifications
You must be signed in to change notification settings - Fork 0
/
LoginForm.frm
43 lines (39 loc) · 1.02 KB
/
LoginForm.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} LoginForm
Caption = "Login erforderlich"
ClientHeight = 2415
ClientLeft = 120
ClientTop = 465
ClientWidth = 4560
OleObjectBlob = "LoginForm.frx":0000
StartUpPosition = 1 'Fenstermitte
End
Attribute VB_Name = "LoginForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public okAction As Boolean
Public username As String
Public password As String
Private Sub CancelButton_Click()
username = ""
password = ""
Reset (False)
okAction = False
Hide
End Sub
Private Sub OkButton_Click()
username = UserTextbox.Value
password = PasswordTextbox.Value
okAction = True
Hide
End Sub
Public Sub Reset(complete As Boolean)
okAction = False
PasswordTextbox.Value = ""
If (complete) Then
UrlLabel = ""
UserTextbox = ""
End If
End Sub