_ Partial Class Form1 Inherits System.Windows.Forms.Form 'Form 重写 Dispose,以清理组件列表。 _ 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 窗体设计器修改它。 '不要使用代码编辑器修改它。 _ 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