⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.vb

📁 潜艇大战游戏源程序
💻 VB
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Dim Firsttime As Short
	Sub PaintBoard()
		Dim A As Object
		'UPGRADE_ISSUE: PictureBox 方法 Pic1.Cls 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
        Pic1.Cls()
        'UPGRADE_ISSUE: PictureBox 方法 Pic2.Cls 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		Pic2.Cls()
		'UPGRADE_ISSUE: PictureBox 方法 Pic3.Cls 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		Pic3.Cls()
		'UPGRADE_ISSUE: PictureBox 方法 MainBoard.Cls 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		MainBoard.Cls()
		'HUD
		'UPGRADE_ISSUE: PictureBox 方法 MainBoard.Print 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		MainBoard.Print(" Ammo: ")
		'UPGRADE_ISSUE: PictureBox 方法 MainBoard.Print 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		MainBoard.Print(" Score: " & P1.Score)
		'UPGRADE_ISSUE: PictureBox 方法 MainBoard.Print 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
		MainBoard.Print(" Strenght: " & P1.Health)
		For A = 0 To P1.Ammo - 1
			'UPGRADE_ISSUE: PictureBox 属性 PicMineM.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
			'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
			'UPGRADE_ISSUE: PictureBox 属性 Pic2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
			BitBlt(Pic2.hdc, (A * 7) + 38, 5, 6, 6, PicMineM.hdc, 0, 0, SRCAND)
			'UPGRADE_ISSUE: PictureBox 属性 PicMine.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
			'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
			'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
			BitBlt(Pic1.hdc, (A * 7) + 38, 5, 6, 6, PicMine.hdc, 0, 0, SRCPAINT)
		Next A
		
		'The Ship
		Select Case P1.Dire
			Case 1
				'UPGRADE_ISSUE: PictureBox 属性 PicShipM.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
				'UPGRADE_ISSUE: PictureBox 属性 Pic2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
				BitBlt(Pic2.hdc, P1.X, P1.Y, ShipBredde, ShipHoyde, PicShipM.hdc, 0, 0, SRCAND)
				'UPGRADE_ISSUE: PictureBox 属性 PicShip.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
				'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
				BitBlt(Pic1.hdc, P1.X, P1.Y, ShipBredde, ShipHoyde, PicShip.hdc, 0, 0, SRCPAINT)
			Case 2
				'UPGRADE_ISSUE: PictureBox 属性 PicShip2M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
				'UPGRADE_ISSUE: PictureBox 属性 Pic2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
				BitBlt(Pic2.hdc, P1.X, P1.Y, ShipBredde, ShipHoyde, PicShip2M.hdc, 0, 0, SRCAND)
				'UPGRADE_ISSUE: PictureBox 属性 PicShip2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
				'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
				BitBlt(Pic1.hdc, P1.X, P1.Y, ShipBredde, ShipHoyde, PicShip2.hdc, 0, 0, SRCPAINT)
		End Select
		'The King
		If TheKing.Act Then
			'UPGRADE_ISSUE: PictureBox 属性 PicElvM.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
			'UPGRADE_ISSUE: PictureBox 属性 Pic2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
			BitBlt(Pic2.hdc, TheKing.X, TheKing.Y, 23, 12, PicElvM(TheKing.Tag).hdc, 0, 0, SRCAND)
			'UPGRADE_ISSUE: PictureBox 属性 PicElv.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
			'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
			BitBlt(Pic1.hdc, TheKing.X, TheKing.Y, 23, 12, PicElv(TheKing.Tag).hdc, 0, 0, SRCPAINT)
		End If
		'Bombs
		For A = 1 To 30
			'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
			With Bombs(A)
				'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
				If .Act Then
					'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
					'UPGRADE_ISSUE: PictureBox 方法 Pic3.Line 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
					Pic3.Line (.X, .Y) - (1, 1)
				End If
			End With
		Next 
		
		'Mines
		For A = 1 To 30
			'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
			With Shot(A)
				'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
				If .Act Then
					'UPGRADE_ISSUE: PictureBox 属性 PicMineM.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
					'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
					'UPGRADE_ISSUE: PictureBox 属性 Pic3.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
					BitBlt(Pic3.hdc, .X, .Y, 6, 6, PicMineM.hdc, 0, 0, SRCAND)
					'UPGRADE_ISSUE: PictureBox 属性 PicMineM.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
					'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
					'UPGRADE_ISSUE: PictureBox 属性 Pic3.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
					BitBlt(Pic3.hdc, .X, .Y, 6, 6, PicMineM.hdc, 0, 0, SRCAND)
					'UPGRADE_ISSUE: PictureBox 属性 PicMine.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
					'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
					'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
					BitBlt(Pic1.hdc, .X, .Y, 6, 6, PicMine.hdc, 0, 0, SRCPAINT)
				End If
			End With
		Next 
		
		'planes
		For A = 1 To 10
			'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
			With Planes(A)
				'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
				If .Act Then
					'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
					If .Dire = 1 Then
						'UPGRADE_ISSUE: PictureBox 属性 PicPlane1M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
						'UPGRADE_ISSUE: PictureBox 属性 Pic3.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						BitBlt(Pic3.hdc, .X, .Y, PlaneBredde, PlaneHoyde, PicPlane1M.hdc, 0, 0, SRCAND)
						'UPGRADE_ISSUE: PictureBox 属性 PicPlane1M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
						'UPGRADE_ISSUE: PictureBox 属性 Pic3.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						BitBlt(Pic3.hdc, .X, .Y, PlaneBredde, PlaneHoyde, PicPlane1M.hdc, 0, 0, SRCAND)
						'UPGRADE_ISSUE: PictureBox 属性 PicPlane1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
						'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						BitBlt(Pic1.hdc, .X, .Y, PlaneBredde, PlaneHoyde, PicPlane1.hdc, 0, 0, SRCPAINT)
					Else
						'UPGRADE_ISSUE: PictureBox 属性 PicPlane2M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
						'UPGRADE_ISSUE: PictureBox 属性 Pic3.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						BitBlt(Pic3.hdc, .X, .Y, PlaneBredde, PlaneHoyde, PicPlane2M.hdc, 0, 0, SRCAND)
						'UPGRADE_ISSUE: PictureBox 属性 PicPlane2M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
						'UPGRADE_ISSUE: PictureBox 属性 Pic3.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						BitBlt(Pic3.hdc, .X, .Y, PlaneBredde, PlaneHoyde, PicPlane2M.hdc, 0, 0, SRCAND)
						'UPGRADE_ISSUE: PictureBox 属性 PicPlane2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
						'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
						BitBlt(Pic1.hdc, .X, .Y, PlaneBredde, PlaneHoyde, PicPlane2.hdc, 0, 0, SRCPAINT)
					End If
				End If
			End With
		Next 
		
		'Subs
		For A = 1 To 30
			'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
			With Subs(A)
				'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
				If .Act Then
					'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
					If .Dire = 1 Then
						'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
						Select Case .Damaged
							Case 0
								'UPGRADE_ISSUE: PictureBox 属性 PicSub1M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic2.hdc, .X, .Y, PicSub1M.ClientRectangle.Width, PicSub1M.ClientRectangle.Height, PicSub1M.hdc, 0, 0, SRCAND)
								'UPGRADE_ISSUE: PictureBox 属性 PicSub1M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic1.hdc, .X, .Y, PicSub1M.ClientRectangle.Width, PicSub1M.ClientRectangle.Height, PicSub1M.hdc, 0, 0, SRCAND)
								'UPGRADE_ISSUE: PictureBox 属性 PicSub1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic1.hdc, .X, .Y, PicSub1.ClientRectangle.Width, PicSub1.ClientRectangle.Height, PicSub1.hdc, 0, 0, SRCPAINT)
							Case Else
								'UPGRADE_ISSUE: PictureBox 属性 PicCrash1M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic3.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic3.hdc, .X, .Y, PicCrash1M.ClientRectangle.Width, PicCrash1M.ClientRectangle.Height, PicCrash1M.hdc, 0, 0, SRCAND)
								'UPGRADE_ISSUE: PictureBox 属性 PicCrash1M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic1.hdc, .X, .Y, PicCrash1M.ClientRectangle.Width, PicCrash1M.ClientRectangle.Height, PicCrash1M.hdc, 0, 0, SRCAND)
								'UPGRADE_ISSUE: PictureBox 属性 PicCrash1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic1.hdc, .X, .Y, PicCrash1.ClientRectangle.Width, PicCrash1.ClientRectangle.Height, PicCrash1.hdc, 0, 0, SRCPAINT)
						End Select
					Else
						'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
						Select Case .Damaged
							Case 0
								'UPGRADE_ISSUE: PictureBox 属性 PicSub2M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic2.hdc, .X, .Y, PicSub1M.ClientRectangle.Width, PicSub2M.ClientRectangle.Height, PicSub2M.hdc, 0, 0, SRCAND)
								'UPGRADE_ISSUE: PictureBox 属性 PicSub2M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic1.hdc, .X, .Y, PicSub1M.ClientRectangle.Width, PicSub2M.ClientRectangle.Height, PicSub2M.hdc, 0, 0, SRCAND)
								'UPGRADE_ISSUE: PictureBox 属性 PicSub2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic1.hdc, .X, .Y, PicSub2.ClientRectangle.Width, PicSub2.ClientRectangle.Height, PicSub2.hdc, 0, 0, SRCPAINT)
							Case Else
								'UPGRADE_ISSUE: PictureBox 属性 PicCrash2M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic3.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic3.hdc, .X, .Y, PicCrash1M.ClientRectangle.Width, PicCrash2M.ClientRectangle.Height, PicCrash2M.hdc, 0, 0, SRCAND)
								'UPGRADE_ISSUE: PictureBox 属性 PicCrash2M.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic1.hdc, .X, .Y, PicCrash1M.ClientRectangle.Width, PicCrash2M.ClientRectangle.Height, PicCrash2M.hdc, 0, 0, SRCAND)
								'UPGRADE_ISSUE: PictureBox 属性 PicCrash2.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								'UPGRADE_WARNING: 未能解析对象 A 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
								'UPGRADE_ISSUE: PictureBox 属性 Pic1.hdc 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"”
								BitBlt(Pic1.hdc, .X, .Y, PicCrash2.ClientRectangle.Width, PicCrash2.ClientRectangle.Height, PicCrash2.hdc, 0, 0, SRCPAINT)
						End Select
					End If
				End If
			End With
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -