123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287 |
- <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
- Partial Class 考勤位置設定
- 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 Form 設計工具的必要項
- Private components As System.ComponentModel.IContainer
-
- '注意: 以下為 Windows Form 設計工具所需的程序
- '可以使用 Windows Form 設計工具進行修改。
- '請勿使用程式碼編輯器進行修改。
- <System.Diagnostics.DebuggerStepThrough()> _
- 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
|