📄 frmnewform.vb
字号:
Me._txtFields_0.Size = New System.Drawing.Size(144, 19)
Me._txtFields_0.Location = New System.Drawing.Point(110, 31)
Me._txtFields_0.Maxlength = 50
Me._txtFields_0.TabIndex = 0
Me._txtFields_0.AcceptsReturn = True
Me._txtFields_0.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
Me._txtFields_0.CausesValidation = True
Me._txtFields_0.Enabled = True
Me._txtFields_0.HideSelection = True
Me._txtFields_0.ReadOnly = False
Me._txtFields_0.Cursor = System.Windows.Forms.Cursors.IBeam
Me._txtFields_0.MultiLine = False
Me._txtFields_0.RightToLeft = System.Windows.Forms.RightToLeft.No
Me._txtFields_0.ScrollBars = System.Windows.Forms.ScrollBars.None
Me._txtFields_0.TabStop = True
Me._txtFields_0.Visible = True
Me._txtFields_0.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me._txtFields_0.Name = "_txtFields_0"
Me.picEditFile.BackColor = System.Drawing.Color.FromARGB(192, 192, 192)
Me.picEditFile.Size = New System.Drawing.Size(16, 16)
Me.picEditFile.Location = New System.Drawing.Point(343, 75)
Me.picEditFile.Image = CType(resources.GetObject("picEditFile.Image"), System.Drawing.Image)
Me.picEditFile.TabIndex = 13
Me.ToolTip1.SetToolTip(Me.picEditFile, "请选择文件")
Me.picEditFile.Dock = System.Windows.Forms.DockStyle.None
Me.picEditFile.CausesValidation = True
Me.picEditFile.Enabled = True
Me.picEditFile.ForeColor = System.Drawing.SystemColors.ControlText
Me.picEditFile.Cursor = System.Windows.Forms.Cursors.Default
Me.picEditFile.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.picEditFile.TabStop = True
Me.picEditFile.Visible = True
Me.picEditFile.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.picEditFile.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.picEditFile.Name = "picEditFile"
Me.lBottom_1.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
Me.lBottom_1.Visible = False
Me.lBottom_1.Location = New System.Drawing.Point(369, 94)
Me.lBottom_1.Width = 20
Me.lBottom_1.Height = 1
Me.lBottom_1.Name = "lBottom_1"
Me.lRight_1.BackColor = System.Drawing.Color.White
Me.lRight_1.Visible = False
Me.lRight_1.Location = New System.Drawing.Point(389, 73)
Me.lRight_1.Width = 1
Me.lRight_1.Height = 21
Me.lRight_1.Name = "lRight_1"
Me.lTop_1.BackColor = System.Drawing.Color.White
Me.lTop_1.Visible = False
Me.lTop_1.Location = New System.Drawing.Point(368, 73)
Me.lTop_1.Width = 21
Me.lTop_1.Height = 1
Me.lTop_1.Name = "lTop_1"
Me.lLeft_1.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
Me.lLeft_1.Visible = False
Me.lLeft_1.Location = New System.Drawing.Point(368, 73)
Me.lLeft_1.Width = 1
Me.lLeft_1.Height = 22
Me.lLeft_1.Name = "lLeft_1"
Me.lLeft.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
Me.lLeft.Visible = False
Me.lLeft.Location = New System.Drawing.Point(340, 73)
Me.lLeft.Width = 1
Me.lLeft.Height = 22
Me.lLeft.Name = "lLeft"
Me.lTop.BackColor = System.Drawing.Color.White
Me.lTop.Visible = False
Me.lTop.Location = New System.Drawing.Point(340, 73)
Me.lTop.Width = 21
Me.lTop.Height = 1
Me.lTop.Name = "lTop"
Me.lRight.BackColor = System.Drawing.Color.White
Me.lRight.Visible = False
Me.lRight.Location = New System.Drawing.Point(361, 73)
Me.lRight.Width = 1
Me.lRight.Height = 21
Me.lRight.Name = "lRight"
Me.lBottom.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
Me.lBottom.Visible = False
Me.lBottom.Location = New System.Drawing.Point(341, 94)
Me.lBottom.Width = 20
Me.lBottom.Height = 1
Me.lBottom.Name = "lBottom"
Me._lblLabels_3.Text = "参考说明:"
Me._lblLabels_3.ForeColor = System.Drawing.Color.Black
Me._lblLabels_3.Size = New System.Drawing.Size(54, 12)
Me._lblLabels_3.Location = New System.Drawing.Point(36, 153)
Me._lblLabels_3.TabIndex = 12
Me._lblLabels_3.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me._lblLabels_3.BackColor = System.Drawing.Color.Transparent
Me._lblLabels_3.Enabled = True
Me._lblLabels_3.Cursor = System.Windows.Forms.Cursors.Default
Me._lblLabels_3.RightToLeft = System.Windows.Forms.RightToLeft.No
Me._lblLabels_3.UseMnemonic = True
Me._lblLabels_3.Visible = True
Me._lblLabels_3.AutoSize = True
Me._lblLabels_3.BorderStyle = System.Windows.Forms.BorderStyle.None
Me._lblLabels_3.Name = "_lblLabels_3"
Me._lblLabels_7.Text = "档案类型:"
Me._lblLabels_7.ForeColor = System.Drawing.Color.Black
Me._lblLabels_7.Size = New System.Drawing.Size(54, 12)
Me._lblLabels_7.Location = New System.Drawing.Point(37, 203)
Me._lblLabels_7.TabIndex = 11
Me._lblLabels_7.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me._lblLabels_7.BackColor = System.Drawing.Color.Transparent
Me._lblLabels_7.Enabled = True
Me._lblLabels_7.Cursor = System.Windows.Forms.Cursors.Default
Me._lblLabels_7.RightToLeft = System.Windows.Forms.RightToLeft.No
Me._lblLabels_7.UseMnemonic = True
Me._lblLabels_7.Visible = True
Me._lblLabels_7.AutoSize = True
Me._lblLabels_7.BorderStyle = System.Windows.Forms.BorderStyle.None
Me._lblLabels_7.Name = "_lblLabels_7"
Me._lblLabels_2.Text = "档案说明:"
Me._lblLabels_2.ForeColor = System.Drawing.Color.Black
Me._lblLabels_2.Size = New System.Drawing.Size(54, 12)
Me._lblLabels_2.Location = New System.Drawing.Point(36, 103)
Me._lblLabels_2.TabIndex = 10
Me._lblLabels_2.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me._lblLabels_2.BackColor = System.Drawing.Color.Transparent
Me._lblLabels_2.Enabled = True
Me._lblLabels_2.Cursor = System.Windows.Forms.Cursors.Default
Me._lblLabels_2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me._lblLabels_2.UseMnemonic = True
Me._lblLabels_2.Visible = True
Me._lblLabels_2.AutoSize = True
Me._lblLabels_2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me._lblLabels_2.Name = "_lblLabels_2"
Me._lblLabels_1.Text = "文件名称:"
Me._lblLabels_1.ForeColor = System.Drawing.Color.Black
Me._lblLabels_1.Size = New System.Drawing.Size(54, 12)
Me._lblLabels_1.Location = New System.Drawing.Point(36, 78)
Me._lblLabels_1.TabIndex = 9
Me._lblLabels_1.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me._lblLabels_1.BackColor = System.Drawing.Color.Transparent
Me._lblLabels_1.Enabled = True
Me._lblLabels_1.Cursor = System.Windows.Forms.Cursors.Default
Me._lblLabels_1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me._lblLabels_1.UseMnemonic = True
Me._lblLabels_1.Visible = True
Me._lblLabels_1.AutoSize = True
Me._lblLabels_1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me._lblLabels_1.Name = "_lblLabels_1"
Me._lblLabels_0.Text = "档案名称:"
Me._lblLabels_0.ForeColor = System.Drawing.Color.FromARGB(192, 0, 0)
Me._lblLabels_0.Size = New System.Drawing.Size(54, 12)
Me._lblLabels_0.Location = New System.Drawing.Point(36, 35)
Me._lblLabels_0.TabIndex = 8
Me._lblLabels_0.TextAlign = System.Drawing.ContentAlignment.TopLeft
Me._lblLabels_0.BackColor = System.Drawing.Color.Transparent
Me._lblLabels_0.Enabled = True
Me._lblLabels_0.Cursor = System.Windows.Forms.Cursors.Default
Me._lblLabels_0.RightToLeft = System.Windows.Forms.RightToLeft.No
Me._lblLabels_0.UseMnemonic = True
Me._lblLabels_0.Visible = True
Me._lblLabels_0.AutoSize = True
Me._lblLabels_0.BorderStyle = System.Windows.Forms.BorderStyle.None
Me._lblLabels_0.Name = "_lblLabels_0"
Me._Line2_0.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
Me._Line2_0.Visible = True
Me._Line2_0.Location = New System.Drawing.Point(2, 0)
Me._Line2_0.Width = 1
Me._Line2_0.Height = 257
Me._Line2_0.Name = "_Line2_0"
Me._Line1_0.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
Me._Line1_0.Visible = True
Me._Line1_0.Location = New System.Drawing.Point(2, 0)
Me._Line1_0.Width = 506
Me._Line1_0.Height = 1
Me._Line1_0.Name = "_Line1_0"
Me._Line1_1.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
Me._Line1_1.Visible = True
Me._Line1_1.Location = New System.Drawing.Point(4, 1)
Me._Line1_1.Width = 504
Me._Line1_1.Height = 1
Me._Line1_1.Name = "_Line1_1"
Me._Line1_2.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
Me._Line1_2.Visible = True
Me._Line1_2.Location = New System.Drawing.Point(3, 257)
Me._Line1_2.Width = 510
Me._Line1_2.Height = 1
Me._Line1_2.Name = "_Line1_2"
Me._Line1_3.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
Me._Line1_3.Visible = True
Me._Line1_3.Location = New System.Drawing.Point(4, 256)
Me._Line1_3.Width = 503
Me._Line1_3.Height = 1
Me._Line1_3.Name = "_Line1_3"
Me._Line3_0.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
Me._Line3_0.Visible = True
Me._Line3_0.Location = New System.Drawing.Point(3, 1)
Me._Line3_0.Width = 1
Me._Line3_0.Height = 255
Me._Line3_0.Name = "_Line3_0"
Me._Line2_1.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
Me._Line2_1.Visible = True
Me._Line2_1.Location = New System.Drawing.Point(507, 0)
Me._Line2_1.Width = 1
Me._Line2_1.Height = 258
Me._Line2_1.Name = "_Line2_1"
Me._Line3_1.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
Me._Line3_1.Visible = True
Me._Line3_1.Location = New System.Drawing.Point(508, 0)
Me._Line3_1.Width = 1
Me._Line3_1.Height = 259
Me._Line3_1.Name = "_Line3_1"
Me.Controls.Add(Frame1)
Me.Controls.Add(_Line2_0)
Me.Controls.Add(_Line1_0)
Me.Controls.Add(_Line1_1)
Me.Controls.Add(_Line1_2)
Me.Controls.Add(_Line1_3)
Me.Controls.Add(_Line3_0)
Me.Controls.Add(_Line2_1)
Me.Controls.Add(_Line3_1)
Me.Frame1.Controls.Add(picScan)
Me.Frame1.Controls.Add(SaveAdd)
Me.Frame1.Controls.Add(ExitB)
Me.Frame1.Controls.Add(Picture1)
Me.Frame1.Controls.Add(OpenDialog)
Me.Frame1.Controls.Add(_txtFields_3)
Me.Frame1.Controls.Add(_txtFields_4)
Me.Frame1.Controls.Add(_txtFields_2)
Me.Frame1.Controls.Add(_txtFields_1)
Me.Frame1.Controls.Add(_txtFields_0)
Me.Frame1.Controls.Add(picEditFile)
Me.Frame1.Controls.Add(lBottom_1)
Me.Frame1.Controls.Add(lRight_1)
Me.Frame1.Controls.Add(lTop_1)
Me.Frame1.Controls.Add(lLeft_1)
Me.Frame1.Controls.Add(lLeft)
Me.Frame1.Controls.Add(lTop)
Me.Frame1.Controls.Add(lRight)
Me.Frame1.Controls.Add(lBottom)
Me.Frame1.Controls.Add(_lblLabels_3)
Me.Frame1.Controls.Add(_lblLabels_7)
Me.Frame1.Controls.Add(_lblLabels_2)
Me.Frame1.Controls.Add(_lblLabels_1)
Me.Frame1.Controls.Add(_lblLabels_0)
Me.Picture1.Controls.Add(Label1)
Me.Line1.SetIndex(_Line1_0, CType(0, Short))
Me.Line1.SetIndex(_Line1_1, CType(1, Short))
Me.Line1.SetIndex(_Line1_2, CType(2, Short))
Me.Line1.SetIndex(_Line1_3, CType(3, Short))
Me.Line2.SetIndex(_Line2_0, CType(0, Short))
Me.Line2.SetIndex(_Line2_1, CType(1, Short))
Me.Line3.SetIndex(_Line3_0, CType(0, Short))
Me.Line3.SetIndex(_Line3_1, CType(1, Short))
Me.lblLabels.SetIndex(_lblLabels_3, CType(3, Short))
Me.lblLabels.SetIndex(_lblLabels_7, CType(7, Short))
Me.lblLabels.SetIndex(_lblLabels_2, CType(2, Short))
Me.lblLabels.SetIndex(_lblLabels_1, CType(1, Short))
Me.lblLabels.SetIndex(_lblLabels_0, CType(0, Short))
Me.txtFields.SetIndex(_txtFields_3, CType(3, Short))
Me.txtFields.SetIndex(_txtFields_4, CType(4, Short))
Me.txtFields.SetIndex(_txtFields_2, CType(2, Short))
Me.txtFields.SetIndex(_txtFields_1, CType(1, Short))
Me.txtFields.SetIndex(_txtFields_0, CType(0, Short))
CType(Me.txtFields, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLabels, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Line3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Line2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Line1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.OpenDialog, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
#End Region
#Region "升级支持"
Private Shared m_vb6FormDefInstance As frmNewForm
Private Shared m_InitializingDefInstance As Boolean
Public Shared Property DefInstance() As frmNewForm
Get
If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
m_InitializingDefInstance = True
m_vb6FormDefInstance = New frmNewForm()
m_InitializingDefInstance = False
End If
DefInstance = m_vb6FormDefInstance
End Get
Set
m_vb6FormDefInstance = Value
End Set
End Property
#End Region
Dim ChangeTrue As Boolean
Dim lShow, NoChange, lShowS As Boolean
Private Sub ExitB_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ExitB.Click
Me.Close()
End Sub
Private Sub frmNewForm_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Me.Left = VB6.TwipsToPixelsX(Val(GetSetting(VB6.GetExeName(), "AddNew", "Left")))
Me.Top = VB6.TwipsToPixelsY(Val(GetSetting(VB6.GetExeName(), "AddNew", "Top")))
txtFields(4).Text = strFileType
ChangeTrue = False
Me.Text = "正在 [ " & strFileType & " ] 区，添加新文件"
NoChange = False : lShow = False : lShowS = False
End Sub
'UPGRADE_WARNING: Form 事件 frmNewForm.Unload 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
Private Sub frmNewForm_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
SaveSetting(VB6.GetExeName(), "AddNew", "Left", CStr(VB6.PixelsToTwipsX(Me.Left)))
SaveSetting(VB6.GetExeName(), "AddNew", "Top", CStr(VB6.PixelsToTwipsY(Me.Top)))
Dim OK As Short
If ChangeTrue = True Then
OK = MsgBox("有添加记录，需要保存码？(Y/N)", MsgBoxStyle.YesNo + 32, "未保存")
If OK = 7 Then
If IT = True And NoChange = True Then
Call frmManager.DefInstance.cmdLoad_Click()
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -