232 lines
9.0 KiB
VB.net
232 lines
9.0 KiB
VB.net
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
|||
|
|
Partial Class Form1
|
|||
|
|
Inherits System.Windows.Forms.Form
|
|||
|
|
|
|||
|
|
'Form 重写 Dispose，以清理组件列表。
|
|||
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|||
|
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
|||
|
|
Try
|
|||
|
|
If disposing AndAlso components IsNot Nothing Then
|
|||
|
|
components.Dispose()
|
|||
|
|
End If
|
|||
|
|
Finally
|
|||
|
|
MyBase.Dispose(disposing)
|
|||
|
|
End Try
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
'Windows 窗体设计器所必需的
|
|||
|
|
Private components As System.ComponentModel.IContainer
|
|||
|
|
|
|||
|
|
'注意: 以下过程是 Windows 窗体设计器所必需的
|
|||
|
|
'可以使用 Windows 窗体设计器修改它。
|
|||
|
|
'不要使用代码编辑器修改它。
|
|||
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|||
|
|
Private Sub InitializeComponent()
|
|||
|
|
Me.components = New System.ComponentModel.Container()
|
|||
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
|
|||
|
|
Me.Button1 = New System.Windows.Forms.Button()
|
|||
|
|
Me.TIM_AutoRefersh = New System.Windows.Forms.Timer(Me.components)
|
|||
|
|
Me.DirPath_txt = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
|||
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Count_txt = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|||
|
|
Me.SelectFile_btn = New System.Windows.Forms.Button()
|
|||
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|||
|
|
Me.Empty_btn = New System.Windows.Forms.Button()
|
|||
|
|
Me.ONOFF_btn = New System.Windows.Forms.Button()
|
|||
|
|
Me.Label5 = New System.Windows.Forms.Label()
|
|||
|
|
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.Button2 = New System.Windows.Forms.Button()
|
|||
|
|
Me.tb_SlsBuffCnt = New System.Windows.Forms.TextBox()
|
|||
|
|
Me.lab_TheartMonitor = New System.Windows.Forms.Label()
|
|||
|
|
Me.SuspendLayout()
|
|||
|
|
'
|
|||
|
|
'Button1
|
|||
|
|
'
|
|||
|
|
Me.Button1.Location = New System.Drawing.Point(434, 0)
|
|||
|
|
Me.Button1.Name = "Button1"
|
|||
|
|
Me.Button1.Size = New System.Drawing.Size(116, 64)
|
|||
|
|
Me.Button1.TabIndex = 0
|
|||
|
|
Me.Button1.Text = " 启动一次扫描"
|
|||
|
|
Me.Button1.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'TIM_AutoRefersh
|
|||
|
|
'
|
|||
|
|
Me.TIM_AutoRefersh.Enabled = True
|
|||
|
|
Me.TIM_AutoRefersh.Interval = 1000
|
|||
|
|
'
|
|||
|
|
'DirPath_txt
|
|||
|
|
'
|
|||
|
|
Me.DirPath_txt.Location = New System.Drawing.Point(105, 106)
|
|||
|
|
Me.DirPath_txt.Name = "DirPath_txt"
|
|||
|
|
Me.DirPath_txt.Size = New System.Drawing.Size(336, 21)
|
|||
|
|
Me.DirPath_txt.TabIndex = 1
|
|||
|
|
Me.DirPath_txt.Text = "D:\Sync\RD_PC\Project\BLV_RcuLogAgent\DataMove\"
|
|||
|
|
'
|
|||
|
|
'RichTextBox1
|
|||
|
|
'
|
|||
|
|
Me.RichTextBox1.AcceptsTab = True
|
|||
|
|
Me.RichTextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
|||
|
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
|||
|
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|||
|
|
Me.RichTextBox1.Location = New System.Drawing.Point(1, 133)
|
|||
|
|
Me.RichTextBox1.Name = "RichTextBox1"
|
|||
|
|
Me.RichTextBox1.ReadOnly = True
|
|||
|
|
Me.RichTextBox1.Size = New System.Drawing.Size(549, 485)
|
|||
|
|
Me.RichTextBox1.TabIndex = 2
|
|||
|
|
Me.RichTextBox1.Text = ""
|
|||
|
|
'
|
|||
|
|
'Label1
|
|||
|
|
'
|
|||
|
|
Me.Label1.AutoSize = True
|
|||
|
|
Me.Label1.Location = New System.Drawing.Point(10, 109)
|
|||
|
|
Me.Label1.Name = "Label1"
|
|||
|
|
Me.Label1.Size = New System.Drawing.Size(89, 12)
|
|||
|
|
Me.Label1.TabIndex = 3
|
|||
|
|
Me.Label1.Text = "目标文件路径："
|
|||
|
|
'
|
|||
|
|
'Count_txt
|
|||
|
|
'
|
|||
|
|
Me.Count_txt.Location = New System.Drawing.Point(138, 80)
|
|||
|
|
Me.Count_txt.Name = "Count_txt"
|
|||
|
|
Me.Count_txt.Size = New System.Drawing.Size(100, 21)
|
|||
|
|
Me.Count_txt.TabIndex = 4
|
|||
|
|
Me.Count_txt.Text = "10"
|
|||
|
|
'
|
|||
|
|
'Label2
|
|||
|
|
'
|
|||
|
|
Me.Label2.AutoSize = True
|
|||
|
|
Me.Label2.Location = New System.Drawing.Point(10, 82)
|
|||
|
|
Me.Label2.Name = "Label2"
|
|||
|
|
Me.Label2.Size = New System.Drawing.Size(125, 12)
|
|||
|
|
Me.Label2.TabIndex = 5
|
|||
|
|
Me.Label2.Text = "自动刷新时间隔(秒)："
|
|||
|
|
'
|
|||
|
|
'SelectFile_btn
|
|||
|
|
'
|
|||
|
|
Me.SelectFile_btn.Location = New System.Drawing.Point(442, 106)
|
|||
|
|
Me.SelectFile_btn.Name = "SelectFile_btn"
|
|||
|
|
Me.SelectFile_btn.Size = New System.Drawing.Size(108, 21)
|
|||
|
|
Me.SelectFile_btn.TabIndex = 6
|
|||
|
|
Me.SelectFile_btn.Text = "更改目标文件夹"
|
|||
|
|
Me.SelectFile_btn.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'Label3
|
|||
|
|
'
|
|||
|
|
Me.Label3.AutoEllipsis = True
|
|||
|
|
Me.Label3.AutoSize = True
|
|||
|
|
Me.Label3.BackColor = System.Drawing.SystemColors.ActiveCaption
|
|||
|
|
Me.Label3.Font = New System.Drawing.Font("宋体", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
|||
|
|
Me.Label3.Location = New System.Drawing.Point(8, 9)
|
|||
|
|
Me.Label3.Name = "Label3"
|
|||
|
|
Me.Label3.Size = New System.Drawing.Size(281, 24)
|
|||
|
|
Me.Label3.TabIndex = 7
|
|||
|
|
Me.Label3.Text = "2011-06-17 11：33：15"
|
|||
|
|
'
|
|||
|
|
'Empty_btn
|
|||
|
|
'
|
|||
|
|
Me.Empty_btn.Location = New System.Drawing.Point(368, 80)
|
|||
|
|
Me.Empty_btn.Name = "Empty_btn"
|
|||
|
|
Me.Empty_btn.Size = New System.Drawing.Size(90, 21)
|
|||
|
|
Me.Empty_btn.TabIndex = 9
|
|||
|
|
Me.Empty_btn.Text = "清空信息框"
|
|||
|
|
Me.Empty_btn.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'ONOFF_btn
|
|||
|
|
'
|
|||
|
|
Me.ONOFF_btn.Location = New System.Drawing.Point(460, 79)
|
|||
|
|
Me.ONOFF_btn.Name = "ONOFF_btn"
|
|||
|
|
Me.ONOFF_btn.Size = New System.Drawing.Size(90, 22)
|
|||
|
|
Me.ONOFF_btn.TabIndex = 10
|
|||
|
|
Me.ONOFF_btn.Text = "开始自动刷新"
|
|||
|
|
Me.ONOFF_btn.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'Label5
|
|||
|
|
'
|
|||
|
|
Me.Label5.AutoSize = True
|
|||
|
|
Me.Label5.Location = New System.Drawing.Point(7, 52)
|
|||
|
|
Me.Label5.Name = "Label5"
|
|||
|
|
Me.Label5.Size = New System.Drawing.Size(113, 12)
|
|||
|
|
Me.Label5.TabIndex = 11
|
|||
|
|
Me.Label5.Text = "刷新倒计时（秒）："
|
|||
|
|
'
|
|||
|
|
'TextBox3
|
|||
|
|
'
|
|||
|
|
Me.TextBox3.Location = New System.Drawing.Point(138, 49)
|
|||
|
|
Me.TextBox3.Name = "TextBox3"
|
|||
|
|
Me.TextBox3.ReadOnly = True
|
|||
|
|
Me.TextBox3.Size = New System.Drawing.Size(100, 21)
|
|||
|
|
Me.TextBox3.TabIndex = 12
|
|||
|
|
Me.TextBox3.Text = "0"
|
|||
|
|
'
|
|||
|
|
'Button2
|
|||
|
|
'
|
|||
|
|
Me.Button2.Location = New System.Drawing.Point(239, 80)
|
|||
|
|
Me.Button2.Name = "Button2"
|
|||
|
|
Me.Button2.Size = New System.Drawing.Size(127, 21)
|
|||
|
|
Me.Button2.TabIndex = 13
|
|||
|
|
Me.Button2.Text = "设置为自动刷新新间隔"
|
|||
|
|
Me.Button2.UseVisualStyleBackColor = True
|
|||
|
|
'
|
|||
|
|
'tb_SlsBuffCnt
|
|||
|
|
'
|
|||
|
|
Me.tb_SlsBuffCnt.Location = New System.Drawing.Point(239, 49)
|
|||
|
|
Me.tb_SlsBuffCnt.Name = "tb_SlsBuffCnt"
|
|||
|
|
Me.tb_SlsBuffCnt.Size = New System.Drawing.Size(127, 21)
|
|||
|
|
Me.tb_SlsBuffCnt.TabIndex = 14
|
|||
|
|
'
|
|||
|
|
'lab_TheartMonitor
|
|||
|
|
'
|
|||
|
|
Me.lab_TheartMonitor.Location = New System.Drawing.Point(295, 20)
|
|||
|
|
Me.lab_TheartMonitor.Name = "lab_TheartMonitor"
|
|||
|
|
Me.lab_TheartMonitor.Size = New System.Drawing.Size(133, 13)
|
|||
|
|
Me.lab_TheartMonitor.TabIndex = 15
|
|||
|
|
Me.lab_TheartMonitor.Text = "1"
|
|||
|
|
'
|
|||
|
|
'Form1
|
|||
|
|
'
|
|||
|
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
|||
|
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
|||
|
|
Me.ClientSize = New System.Drawing.Size(554, 620)
|
|||
|
|
Me.Controls.Add(Me.lab_TheartMonitor)
|
|||
|
|
Me.Controls.Add(Me.tb_SlsBuffCnt)
|
|||
|
|
Me.Controls.Add(Me.Button2)
|
|||
|
|
Me.Controls.Add(Me.TextBox3)
|
|||
|
|
Me.Controls.Add(Me.Label5)
|
|||
|
|
Me.Controls.Add(Me.ONOFF_btn)
|
|||
|
|
Me.Controls.Add(Me.Empty_btn)
|
|||
|
|
Me.Controls.Add(Me.Label3)
|
|||
|
|
Me.Controls.Add(Me.SelectFile_btn)
|
|||
|
|
Me.Controls.Add(Me.Label2)
|
|||
|
|
Me.Controls.Add(Me.Count_txt)
|
|||
|
|
Me.Controls.Add(Me.Label1)
|
|||
|
|
Me.Controls.Add(Me.RichTextBox1)
|
|||
|
|
Me.Controls.Add(Me.DirPath_txt)
|
|||
|
|
Me.Controls.Add(Me.Button1)
|
|||
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|||
|
|
Me.Name = "Form1"
|
|||
|
|
Me.Text = "Form1"
|
|||
|
|
Me.ResumeLayout(False)
|
|||
|
|
Me.PerformLayout()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Friend WithEvents Button1 As Button
|
|||
|
|
Friend WithEvents TIM_AutoRefersh As Timer
|
|||
|
|
Friend WithEvents DirPath_txt As TextBox
|
|||
|
|
Friend WithEvents RichTextBox1 As RichTextBox
|
|||
|
|
Friend WithEvents Label1 As Label
|
|||
|
|
Friend WithEvents Count_txt As TextBox
|
|||
|
|
Friend WithEvents Label2 As Label
|
|||
|
|
Friend WithEvents SelectFile_btn As Button
|
|||
|
|
Friend WithEvents Label3 As Label
|
|||
|
|
Friend WithEvents Empty_btn As Button
|
|||
|
|
Friend WithEvents ONOFF_btn As Button
|
|||
|
|
Friend WithEvents Label5 As Label
|
|||
|
|
Friend WithEvents TextBox3 As TextBox
|
|||
|
|
Friend WithEvents Button2 As Button
|
|||
|
|
Friend WithEvents tb_SlsBuffCnt As TextBox
|
|||
|
|
Friend WithEvents lab_TheartMonitor As Label
|
|||
|
|
End Class
|