frmabout.vb

一个用vb开发的档案管理程序

		Me.lTop_1.Height = 1
		Me.lTop_1.Name = "lTop_1"
		Me.lRight_1.BackColor = System.Drawing.Color.White
		Me.lRight_1.Visible = False
		Me.lRight_1.Location = New System.Drawing.Point(337, 102)
		Me.lRight_1.Width = 1
		Me.lRight_1.Height = 41
		Me.lRight_1.Name = "lRight_1"
		Me.lBottom_1.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me.lBottom_1.Visible = False
		Me.lBottom_1.Location = New System.Drawing.Point(294, 143)
		Me.lBottom_1.Width = 43
		Me.lBottom_1.Height = 1
		Me.lBottom_1.Name = "lBottom_1"
		Me._Line1_0.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line1_0.Visible = True
		Me._Line1_0.Location = New System.Drawing.Point(1, 1)
		Me._Line1_0.Width = 358
		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(1, 2)
		Me._Line1_1.Width = 358
		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(0, 157)
		Me._Line1_2.Width = 360
		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(1, 156)
		Me._Line1_3.Width = 359
		Me._Line1_3.Height = 1
		Me._Line1_3.Name = "_Line1_3"
		Me._Line2_0.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
		Me._Line2_0.Visible = True
		Me._Line2_0.Location = New System.Drawing.Point(1, 1)
		Me._Line2_0.Width = 1
		Me._Line2_0.Height = 156
		Me._Line2_0.Name = "_Line2_0"
		Me._Line3_0.BackColor = System.Drawing.Color.FromARGB(224, 224, 224)
		Me._Line3_0.Visible = True
		Me._Line3_0.Location = New System.Drawing.Point(2, 1)
		Me._Line3_0.Width = 1
		Me._Line3_0.Height = 155
		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(359, 0)
		Me._Line2_1.Width = 1
		Me._Line2_1.Height = 156
		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(360, 0)
		Me._Line3_1.Width = 1
		Me._Line3_1.Height = 157
		Me._Line3_1.Name = "_Line3_1"
		Me.Controls.Add(picScan)
		Me.Controls.Add(Label5)
		Me.Controls.Add(Line5)
		Me.Controls.Add(Line4)
		Me.Controls.Add(Label4)
		Me.Controls.Add(Label1)
		Me.Controls.Add(Label3)
		Me.Controls.Add(Label2)
		Me.Controls.Add(lLeft_1)
		Me.Controls.Add(lTop_1)
		Me.Controls.Add(lRight_1)
		Me.Controls.Add(lBottom_1)
		Me.Controls.Add(_Line1_0)
		Me.Controls.Add(_Line1_1)
		Me.Controls.Add(_Line1_2)
		Me.Controls.Add(_Line1_3)
		Me.Controls.Add(_Line2_0)
		Me.Controls.Add(_Line3_0)
		Me.Controls.Add(_Line2_1)
		Me.Controls.Add(_Line3_1)
		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))
		CType(Me.Line3, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Line2, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.Line1, System.ComponentModel.ISupportInitialize).EndInit()
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmAbout
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmAbout
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmAbout()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim lShowS As Boolean
	
	Private Sub frmAbout_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		
		Me.Left = VB6.TwipsToPixelsX(Val(GetSetting(VB6.GetExeName(), "About", "Left")))
		Me.Top = VB6.TwipsToPixelsY(Val(GetSetting(VB6.GetExeName(), "About", "Top")))
		
	End Sub
	
	Private Sub frmAbout_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		
		If lShowS = True Then '已经隐藏时退出
			lLeft_1.Visible = False
			lRight_1.Visible = False
			lTop_1.Visible = False
			lBottom_1.Visible = False
			lShowS = False
		End If
		
		If Label5.Font.Underline = False Then
			Label5.Font = VB6.FontChangeUnderline(Label5.Font, True)
		End If
		
	End Sub
	
	'UPGRADE_WARNING: Form 事件 frmAbout.Unload 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
	Private Sub frmAbout_Closed(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
		
		SaveSetting(VB6.GetExeName(), "About", "Left", CStr(VB6.PixelsToTwipsX(Me.Left)))
		SaveSetting(VB6.GetExeName(), "About", "Top", CStr(VB6.PixelsToTwipsY(Me.Top)))
		
	End Sub
	
	Private Sub Label3_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseMove
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		
		If Label5.Font.Underline = False Then
			Label5.Font = VB6.FontChangeUnderline(Label5.Font, True)
		End If
		
	End Sub
	
	Private Sub Label5_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Label5.Click
		
		Dim WxyNo As Integer
		WxyNo = ShellExecute(Me.Handle.ToInt32, "open", "http://www.freelong.net/filemanager", "", VB6.GetPath, 1)
		If WxyNo = 0 Then
			MsgBox("浏览器没有正确安装或其它错误。", MsgBoxStyle.OKOnly + 16, "登录错误")
		End If
		
	End Sub
	
	Private Sub Label5_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles Label5.MouseMove
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		
		If Label5.Font.Underline = False Then Exit Sub
		Label5.Font = VB6.FontChangeUnderline(Label5.Font, False)
		
	End Sub
	
	Private Sub picScan_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles picScan.Click
		
		Me.Close()
		
	End Sub
	
	Private Sub picScan_MouseDown(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles picScan.MouseDown
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		
		lTop_1.BackColor = System.Drawing.ColorTranslator.FromOle(&H808080)
		lBottom_1.BackColor = System.Drawing.ColorTranslator.FromOle(&HFFFFFF)
		
	End Sub
	
	Private Sub picScan_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles picScan.MouseMove
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		
		If lShowS = True Then Exit Sub '已经显示时退出
		
		lLeft_1.Visible = True
		lRight_1.Visible = True
		lTop_1.Visible = True
		lBottom_1.Visible = True
		lShowS = True
		
	End Sub
	
	Private Sub picScan_MouseUp(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles picScan.MouseUp
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		
		lTop_1.BackColor = System.Drawing.ColorTranslator.FromOle(&HFFFFFF)
		lBottom_1.BackColor = System.Drawing.ColorTranslator.FromOle(&H808080)
		
	End Sub
End Class