📄 rdata.frm
字号:
VERSION 5.00
Object = "{6580F760-7819-11CF-B86C-444553540000}#1.0#0"; "EZFTP.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form rdata
Caption = "雷达基数据上传－FTP"
ClientHeight = 7080
ClientLeft = 60
ClientTop = 450
ClientWidth = 6180
DrawMode = 10 'Mask Pen
Icon = "rdata.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7080
ScaleWidth = 6180
StartUpPosition = 1 '所有者中心
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 375
Left = 120
TabIndex = 26
Top = 6720
Width = 5895
_ExtentX = 10398
_ExtentY = 661
_Version = 393216
BorderStyle = 1
Appearance = 1
End
Begin VB.Timer Timer1
Interval = 1000
Left = 600
Top = 3480
End
Begin VB.DirListBox Dir1
Height = 510
Left = 3240
TabIndex = 21
Top = 2400
Width = 1455
End
Begin VB.DriveListBox Drive1
Height = 300
Left = 3000
TabIndex = 20
Top = 2400
Width = 1215
End
Begin EZFTPLib.EZFTP FTP
Left = 3480
Top = 2880
_Version = 65536
_ExtentX = 800
_ExtentY = 800
_StockProps = 0
LocalFile = ""
RemoteFile = ""
RemoteAddres = ""
UserName = ""
Password = ""
Binary = 0 'False
End
Begin VB.CommandButton Command3
Caption = "ＳＴＯＰ"
Height = 495
Left = 4800
TabIndex = 19
Top = 2760
Width = 1095
End
Begin VB.FileListBox File1
Height = 1350
Left = 120
Pattern = "*.10V;*.05v;*.10p;*.05p;*.15v"
TabIndex = 17
Top = 2280
Width = 4575
End
Begin VB.CommandButton Command1
Caption = "ＳＡＶＥ "
Height = 375
Left = 4800
TabIndex = 2
Top = 1560
Width = 1095
End
Begin VB.Frame Frame1
Caption = "ＳＥＴ"
Height = 2055
Left = 120
TabIndex = 5
Top = 0
Width = 5895
Begin VB.CommandButton Command6
Caption = "ＴＥＳＴ"
Height = 375
Left = 3360
TabIndex = 25
Top = 1560
Width = 1095
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
IMEMode = 1 'ON
Index = 5
Left = 1440
TabIndex = 23
Text = "Text2"
Top = 1560
Width = 495
End
Begin VB.CommandButton Command5
Caption = "..."
BeginProperty Font
Name = "宋体"
Size = 5.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5400
TabIndex = 16
Top = 1200
Width = 375
End
Begin VB.TextBox Text2
Height = 270
Index = 4
Left = 3960
TabIndex = 15
Text = "Text2"
Top = 720
Width = 1815
End
Begin VB.TextBox Text2
Height = 270
Index = 3
Left = 3960
TabIndex = 14
Text = "Text2"
Top = 240
Width = 1815
End
Begin VB.TextBox Text2
Height = 270
Index = 2
Left = 1200
TabIndex = 8
Text = "Text2"
Top = 1200
Width = 4215
End
Begin VB.TextBox Text2
Height = 270
Index = 1
Left = 1200
TabIndex = 7
Text = "Text2"
Top = 720
Width = 1815
End
Begin VB.TextBox Text2
Height = 270
IMEMode = 1 'ON
Index = 0
Left = 1200
TabIndex = 6
Text = "Text2"
Top = 240
Width = 1815
End
Begin VB.Label Label9
Caption = "分钟"
Height = 255
Left = 2040
TabIndex = 24
Top = 1680
Width = 495
End
Begin VB.Label Label8
Caption = "上传时间间隔："
Height = 255
Left = 120
TabIndex = 22
Top = 1680
Width = 1335
End
Begin VB.Label Label6
Caption = "密 码："
Height = 255
Left = 3240
TabIndex = 13
Top = 720
Width = 735
End
Begin VB.Label Label5
Caption = "用户名："
Height = 255
Left = 3240
TabIndex = 12
Top = 240
Width = 735
End
Begin VB.Label Label4
Caption = "本地路径："
Height = 255
Left = 120
TabIndex = 11
Top = 1200
Width = 975
End
Begin VB.Label Label3
Caption = "上传路径："
Height = 255
Left = 120
TabIndex = 10
Top = 720
Width = 1095
End
Begin VB.Label Label2
Caption = "上传地址："
Height = 255
Left = 120
TabIndex = 9
Top = 240
Width = 975
End
End
Begin VB.CommandButton Command4
Caption = "ＥＸＩＴ"
Height = 495
Left = 4800
TabIndex = 4
Top = 3360
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "ＳＴＲＡＴ"
Height = 495
Left = 4800
TabIndex = 3
Top = 2160
Width = 1095
End
Begin VB.TextBox Text1
Height = 2775
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 3960
Width = 5895
End
Begin VB.Label Label7
Caption = "ＵＰＬＯＡＤ ＳＴＡＴＵＳ"
Height = 255
Left = 1560
TabIndex = 18
Top = 3720
Width = 2775
End
Begin VB.Label Label1
Caption = "ＦＩＬＥＬＩＳＴＳ"
Height = 255
Left = 1920
TabIndex = 1
Top = 2040
Width = 1935
End
End
Attribute VB_Name = "rdata"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim N As Integer
Dim fso As New FileSystemObject
Private Const SND_ASYNC = &H1 ' 异步播放
Private Const SND_FILENAME = &H20000 ' 文件播放
Private Const SND_LOOP = &H8 ' 循环
Private Const SND_SYNC = &H0 ' 同步
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -