39 lines
508 B
Text
39 lines
508 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Static Public User As String
|
||
|
|
Static Public Password As String
|
||
|
|
|
||
|
|
'Private $sUrl As String
|
||
|
|
'Private $sRealm As String
|
||
|
|
|
||
|
|
Public Sub Run(sUrl As String, sRealm As String) As Boolean
|
||
|
|
|
||
|
|
lblRealm.Text = sRealm
|
||
|
|
Me.Title = sUrl
|
||
|
|
'$sUrl = sUrl
|
||
|
|
'$sRealm = sRealm
|
||
|
|
Return Not Me.ShowModal()
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnOK_Click()
|
||
|
|
|
||
|
|
User = txtUser.Text
|
||
|
|
Password = txtPassword.Text
|
||
|
|
Me.Close(True)
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub btnCancel_Click()
|
||
|
|
|
||
|
|
Me.Close
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
|
||
|
|
Public Sub Form_Open()
|
||
|
|
|
||
|
|
txtUser.SetFocus
|
||
|
|
|
||
|
|
End
|