VB 局域网传输工具(发送端)

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmMain
   BorderStyle     =   1  'Fixed Single
   Caption         =   "程序之家局域网文件传输器发送端 V1.0"
   ClientHeight    =   3000
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5565
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   3000
   ScaleWidth      =   5565
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdCancel
      Cancel          =   -1  'True
      Caption         =   "退出(&C)"
      Height          =   315
      Left            =   4600
      TabIndex        =   5
      Top             =   895
      Width           =   855
   End
   Begin VB.TextBox textPort
      Height          =   270
      Left            =   3800
      TabIndex        =   1
      Text            =   "5300"
      Top             =   120
      Width           =   735
   End
   Begin SendFile.ProgressBar proBar
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   925
      Width           =   4405
      _ExtentX        =   7779
      _ExtentY        =   450
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Value           =   0
   End
   Begin VB.ListBox lstMsg
      Height          =   1680
      Left            =   -10
      TabIndex        =   6
      Top             =   1320
      Width           =   5595
   End
   Begin SendFile.IPEditControl iPEdit
      Height          =   255
      Left            =   1320
      TabIndex        =   0
      Top             =   140
      Width           =   1645
      _extentx        =   2910
      _extenty        =   450
      backcolor       =   16777215
      font            =   "frmMain.frx":0000
   End
   Begin MSWinsockLib.Winsock wskSend
      Left            =   600
      Top             =   0
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.TextBox textPath
      Height          =   270
      Left            =   120
      TabIndex        =   2
      Top             =   520
      Width           =   4405
   End
   Begin VB.CommandButton cmdBrowse
      Caption         =   "浏览(&B)"
      Height          =   315
      Left            =   4600
      TabIndex        =   3
      Top             =   495
      Width           =   855
   End
   Begin VB.CommandButton cmdSend
      Caption         =   "传送(&S)"
      Height          =   315
      Left            =   4600
      TabIndex        =   4
      Top             =   95
      Width           =   855
   End
   Begin VB.Label lPort
      Caption         =   "端口号:"
      Height          =   255
      Left            =   3120
      TabIndex        =   9
      Top             =   160
      Width           =   635
   End
   Begin VB.Label lMessage
      Caption         =   "请输入IP地址:"
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   160
      Width           =   1335
   End
End
Attribute VB_Name = "frmMain"