_ Partial Class 考勤位置設定 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 Form 設計工具的必要項 Private components As System.ComponentModel.IContainer '注意: 以下為 Windows Form 設計工具所需的程序 '可以使用 Windows Form 設計工具進行修改。 '請勿使用程式碼編輯器進行修改。 _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.MyBrowser = New System.Windows.Forms.Panel() Me.誤差容許_nud = New System.Windows.Forms.NumericUpDown() Me.容許誤差_lb = New System.Windows.Forms.Label() Me.緯度_tb = New System.Windows.Forms.TextBox() Me.緯度_lb = New System.Windows.Forms.Label() Me.經度_tb = New System.Windows.Forms.TextBox() Me.經度_lb = New System.Windows.Forms.Label() Me.地點_tb = New System.Windows.Forms.TextBox() Me.地點_lb = New System.Windows.Forms.Label() Me.清單1_dgv = New System.Windows.Forms.DataGridView() Me.語轉扭_bt = New System.Windows.Forms.Button() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.計算分流 = New System.Windows.Forms.Timer(Me.components) Me.查詢_bt = New System.Windows.Forms.Button() Me.新增_bt = New System.Windows.Forms.Button() Me.確認新增_bt = New System.Windows.Forms.Button() Me.刪除_bt = New System.Windows.Forms.Button() CType(Me.誤差容許_nud, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'MyBrowser ' Me.MyBrowser.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.MyBrowser.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.MyBrowser.Location = New System.Drawing.Point(360, 2) Me.MyBrowser.Name = "MyBrowser" Me.MyBrowser.Size = New System.Drawing.Size(762, 620) Me.MyBrowser.TabIndex = 1947 ' '誤差容許_nud ' Me.誤差容許_nud.Location = New System.Drawing.Point(241, 55) Me.誤差容許_nud.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) Me.誤差容許_nud.Minimum = New Decimal(New Integer() {10, 0, 0, 0}) Me.誤差容許_nud.Name = "誤差容許_nud" Me.誤差容許_nud.Size = New System.Drawing.Size(114, 23) Me.誤差容許_nud.TabIndex = 1946 Me.誤差容許_nud.Value = New Decimal(New Integer() {10, 0, 0, 0}) ' '容許誤差_lb ' Me.容許誤差_lb.AutoEllipsis = True Me.容許誤差_lb.BackColor = System.Drawing.Color.Transparent Me.容許誤差_lb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.容許誤差_lb.Location = New System.Drawing.Point(180, 55) Me.容許誤差_lb.Name = "容許誤差_lb" Me.容許誤差_lb.Size = New System.Drawing.Size(55, 20) Me.容許誤差_lb.TabIndex = 1945 Me.容許誤差_lb.Text = "容許誤差" Me.容許誤差_lb.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.容許誤差_lb.UseMnemonic = False ' '緯度_tb ' Me.緯度_tb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.緯度_tb.Location = New System.Drawing.Point(240, 79) Me.緯度_tb.Name = "緯度_tb" Me.緯度_tb.Size = New System.Drawing.Size(115, 22) Me.緯度_tb.TabIndex = 1939 ' '緯度_lb ' Me.緯度_lb.AutoEllipsis = True Me.緯度_lb.BackColor = System.Drawing.Color.Transparent Me.緯度_lb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.緯度_lb.Location = New System.Drawing.Point(179, 81) Me.緯度_lb.Name = "緯度_lb" Me.緯度_lb.Size = New System.Drawing.Size(55, 20) Me.緯度_lb.TabIndex = 1940 Me.緯度_lb.Text = "緯 度" Me.緯度_lb.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.緯度_lb.UseMnemonic = False ' '經度_tb ' Me.經度_tb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.經度_tb.Location = New System.Drawing.Point(64, 77) Me.經度_tb.Name = "經度_tb" Me.經度_tb.Size = New System.Drawing.Size(114, 22) Me.經度_tb.TabIndex = 1937 ' '經度_lb ' Me.經度_lb.AutoEllipsis = True Me.經度_lb.BackColor = System.Drawing.Color.Transparent Me.經度_lb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.經度_lb.Location = New System.Drawing.Point(3, 79) Me.經度_lb.Name = "經度_lb" Me.經度_lb.Size = New System.Drawing.Size(55, 20) Me.經度_lb.TabIndex = 1938 Me.經度_lb.Text = "經 度" Me.經度_lb.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.經度_lb.UseMnemonic = False ' '地點_tb ' Me.地點_tb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.地點_tb.Location = New System.Drawing.Point(64, 54) Me.地點_tb.Name = "地點_tb" Me.地點_tb.Size = New System.Drawing.Size(114, 22) Me.地點_tb.TabIndex = 1935 ' '地點_lb ' Me.地點_lb.AutoEllipsis = True Me.地點_lb.BackColor = System.Drawing.Color.Transparent Me.地點_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.地點_lb.Location = New System.Drawing.Point(3, 56) Me.地點_lb.Name = "地點_lb" Me.地點_lb.Size = New System.Drawing.Size(55, 20) Me.地點_lb.TabIndex = 1936 Me.地點_lb.Text = "地 點" Me.地點_lb.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.地點_lb.UseMnemonic = False ' '清單1_dgv ' Me.清單1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.清單1_dgv.BackgroundColor = System.Drawing.Color.White Me.清單1_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.清單1_dgv.DefaultCellStyle = DataGridViewCellStyle3 Me.清單1_dgv.Location = New System.Drawing.Point(2, 102) Me.清單1_dgv.Name = "清單1_dgv" Me.清單1_dgv.RowHeadersWidth = 5 DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4 Me.清單1_dgv.RowTemplate.Height = 24 Me.清單1_dgv.Size = New System.Drawing.Size(357, 520) Me.清單1_dgv.TabIndex = 1934 ' '語轉扭_bt ' Me.語轉扭_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.語轉扭_bt.ForeColor = System.Drawing.Color.Black Me.語轉扭_bt.Location = New System.Drawing.Point(443, 64) Me.語轉扭_bt.Name = "語轉扭_bt" Me.語轉扭_bt.Size = New System.Drawing.Size(22, 22) Me.語轉扭_bt.TabIndex = 1933 Me.語轉扭_bt.Text = "L" Me.語轉扭_bt.UseVisualStyleBackColor = True ' 'ToolTip1 ' Me.ToolTip1.AutoPopDelay = 5000 Me.ToolTip1.InitialDelay = 500 Me.ToolTip1.IsBalloon = True Me.ToolTip1.ReshowDelay = 100 Me.ToolTip1.ToolTipTitle = "系統說明" ' '計算分流 ' ' '查詢_bt ' Me.查詢_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.Search Me.查詢_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.查詢_bt.Location = New System.Drawing.Point(2, 2) Me.查詢_bt.Name = "查詢_bt" Me.查詢_bt.Size = New System.Drawing.Size(50, 50) Me.查詢_bt.TabIndex = 1944 Me.查詢_bt.UseVisualStyleBackColor = True ' '新增_bt ' Me.新增_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.add_2 Me.新增_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.新增_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.新增_bt.Location = New System.Drawing.Point(58, 1) Me.新增_bt.Name = "新增_bt" Me.新增_bt.Size = New System.Drawing.Size(50, 50) Me.新增_bt.TabIndex = 1942 Me.新增_bt.UseVisualStyleBackColor = True ' '確認新增_bt ' Me.確認新增_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.SAVER Me.確認新增_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.確認新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.確認新增_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) Me.確認新增_bt.Location = New System.Drawing.Point(108, 1) Me.確認新增_bt.Name = "確認新增_bt" Me.確認新增_bt.Size = New System.Drawing.Size(50, 50) Me.確認新增_bt.TabIndex = 1941 Me.確認新增_bt.UseVisualStyleBackColor = True ' '刪除_bt ' Me.刪除_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.GarbageEmpty Me.刪除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.刪除_bt.ForeColor = System.Drawing.Color.Red Me.刪除_bt.Location = New System.Drawing.Point(309, 1) Me.刪除_bt.Name = "刪除_bt" Me.刪除_bt.Size = New System.Drawing.Size(50, 50) Me.刪除_bt.TabIndex = 1943 Me.刪除_bt.UseVisualStyleBackColor = True ' '考勤位置設定 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1124, 623) Me.Controls.Add(Me.MyBrowser) Me.Controls.Add(Me.誤差容許_nud) Me.Controls.Add(Me.容許誤差_lb) Me.Controls.Add(Me.查詢_bt) Me.Controls.Add(Me.新增_bt) Me.Controls.Add(Me.確認新增_bt) Me.Controls.Add(Me.緯度_tb) Me.Controls.Add(Me.緯度_lb) Me.Controls.Add(Me.經度_tb) Me.Controls.Add(Me.經度_lb) Me.Controls.Add(Me.地點_tb) Me.Controls.Add(Me.地點_lb) Me.Controls.Add(Me.清單1_dgv) Me.Controls.Add(Me.語轉扭_bt) Me.Controls.Add(Me.刪除_bt) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Margin = New System.Windows.Forms.Padding(4) Me.Name = "考勤位置設定" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "考勤位置設定" CType(Me.誤差容許_nud, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents MyBrowser As Panel Friend WithEvents 誤差容許_nud As NumericUpDown Friend WithEvents 容許誤差_lb As Label Friend WithEvents 查詢_bt As Button Friend WithEvents 新增_bt As Button Friend WithEvents 確認新增_bt As Button Friend WithEvents 緯度_tb As TextBox Friend WithEvents 緯度_lb As Label Friend WithEvents 經度_tb As TextBox Friend WithEvents 經度_lb As Label Friend WithEvents 地點_tb As TextBox Friend WithEvents 地點_lb As Label Friend WithEvents 清單1_dgv As DataGridView Friend WithEvents 語轉扭_bt As Button Friend WithEvents 刪除_bt As Button Friend WithEvents ToolTip1 As ToolTip Friend WithEvents 計算分流 As Timer End Class