frmconnect.frm

来自「vb网络通信协议,参考例程」· FRM 代码 · 共 293 行

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         =   "匿名"
      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         =   "取消"
      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         =   "确定"
      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         =   "密码"
      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            =   "[e-mail]"
         Top             =   240
         Width           =   1575
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "用户名"
      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         =   "服务器地址"
      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            =   "10.11.111.172"
         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 = "[e-mail]"
    Frame3.Caption = "Your E-Mail Address"
Else
    txtUserName = "all"
    txtPassword.PasswordChar = "*"
    txtPassword = "123321"
    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