- VERSION 5.00
- Begin VB.Form frmConnect
- BorderStyle = 3 'Fixed Dialog
- Caption = "Connect to..."
- ClientHeight = 1620
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 5280
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 1620
- ScaleWidth = 5280
- ShowInTaskbar = 0 'False
- StartUpPosition = 1 'CenterOwner
- Begin VB.CheckBox chkAnonym
- Caption = "Anonymous"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 3960
- TabIndex = 9
- Top = 1200
- Value = 1 'Checked
- Width = 1215
- End
- Begin VB.CommandButton cmdCancel
- Cancel = -1 'True
- Caption = "Cancel"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 3960
- TabIndex = 7
- Top = 720
- Width = 1215
- End
- Begin VB.CommandButton cmdOK
- Caption = "OK"
- Default = -1 'True
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- Left = 3960
- TabIndex = 6
- Top = 240
- Width = 1215
- End
- Begin VB.Frame Frame3
- Caption = "Your E-Mail Address"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 2040
- TabIndex = 4
- Top = 840
- Width = 1815
- Begin VB.TextBox txtPassword
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 285
- IMEMode = 3 'DISABLE
- Left = 120
- PasswordChar = "*"
- TabIndex = 5
- Text = "guest@unknow.com"
- Top = 240
- Width = 1575
- End
- End
- Begin VB.Frame Frame2
- Caption = "User Name"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 120
- TabIndex = 2
- Top = 840
- Width = 1815
- Begin VB.TextBox txtUserName
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 285
- Left = 120
- TabIndex = 3
- Text = "anonymous"
- Top = 240
- Width = 1575
- End
- End
- Begin VB.Frame Frame1
- Caption = "URL"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 120
- TabIndex = 0
- Top = 120
- Width = 3735
- Begin VB.TextBox txtURL
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 285
- Left = 600
- TabIndex = 1
- Text = "ftp.microsoft.com"
- Top = 240
- Width = 3015
- End
- Begin VB.Label Label1
- Caption = " ftp://"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 204
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 255
- Left = 120
- TabIndex = 8
- Top = 240
- Width = 855
- End
- End
- End
- Attribute VB_Name = "frmConnect"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- 'VSS: $Header:
- 'local variable(s) to hold property value(s)
- Private mvarURL As String 'local copy
- Private mvarPassword As String 'local copy
- Private mvarUserName As String 'local copy
- Public Enum Command
- comdOK
- comdCancel
- End Enum
- Private mvarAction As Command 'local copy
- Public Property Let Action(ByVal vData As Command)
- mvarAction = vData
- End Property
- Public Property Get Action() As Command
- 'used when retrieving value of a property, on the right side of an assignment.
- 'Syntax: Debug.Print X.Action
- Action = mvarAction
- End Property
- Public Property Let UserName(ByVal vData As String)
- mvarUserName = vData
- End Property
- Public Property Get UserName() As String
- UserName = mvarUserName
- End Property
- Public Property Let Password(ByVal vData As String)
- mvarPassword = vData
- End Property
- Public Property Get Password() As String
- Password = mvarPassword
- End Property
- Public Property Let URL(ByVal vData As String)
- mvarURL = vData
- End Property
- Public Property Get URL() As String
- URL = mvarURL
- End Property
- Private Sub chkAnonym_Click()
- If chkAnonym.Value Then
- txtUserName = "anonymous"
- txtPassword.PasswordChar = ""
- txtPassword = "guest@unknow.com"
- Frame3.Caption = "Your E-Mail Address"
- Else
- txtUserName = ""
- txtPassword.PasswordChar = "*"
- txtPassword = ""
- Frame3.Caption = "Password"
- End If
- End Sub
- Private Sub cmdCancel_Click()
- mvarAction = comdCancel
- Unload Me
- End Sub
- Private Sub cmdOK_Click()
- If Len(txtURL) = 0 Then
- MsgBox "Enter a URL or click on Cancel button.", vbOKOnly + vbInformation, "Invalid URL"
- Exit Sub
- Else
- mvarURL = LCase(txtURL.Text)
- End If
- If Len(txtUserName.Text) = 0 Then
- mvarUserName = vbNullString
- Else
- mvarUserName = txtUserName.Text
- End If
- If Len(txtPassword.Text) = 0 Then
- mvarPassword = vbNullString
- Else
- mvarPassword = txtPassword.Text
- End If
- mvarAction = comdOK
- Unload Me
- End Sub