尊重版权，转载请注明原作者eleqian
---------------------
窗体主文件form1.frm内容如下：

VERSION 5.00
Object = “{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0“; “COMDLG32.OCX“
Object = “{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0“; “MSCOMCTL.OCX“
Begin VB.Form Form1
BorderStyle = 1 ’Fixed Single
Caption = “UnMRP by ele前 初始版本“
ClientHeight = 4995
ClientLeft = 45
ClientTop = 435
ClientWidth = 10275
Icon = “Form1.frx“:0000
LinkTopic = “Form1“
MaxButton = 0 ’False
ScaleHeight = 333
ScaleMode = 3 ’Pixel
ScaleWidth = 685
StartUpPosition = 2 ’屏幕中心
Begin VB.CommandButton cmd_CopyBmp
Caption = “复制“
BeginProperty Font
Name = “宋体“
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 435
Left = 8925
TabIndex = 8
Top = 2925
Width = 1170
End
Begin VB.CommandButton cmd_SaveBmp
Caption = “另存为“
BeginProperty Font
Name = “宋体“
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 435
Left = 8925
TabIndex = 7
Top = 3465
Width = 1170
End
Begin VB.PictureBox Picture0
AutoRedraw = -1 ’True
BackColor = &H00FFFFFF&
BorderStyle = 0 ’None
Height = 4800
Left = 5250
OLEDropMode = 1 ’Manual
ScaleHeight = 320
ScaleMode = 3 ’Pixel
ScaleWidth = 240
TabIndex = 4
Top = 120
Width = 3600
Begin VB.PictureBox Pic_bmp
AutoRedraw = -1 ’True
BackColor = &H80000018&
BorderStyle = 0 ’None
Height = 1800
Left = 1050
OLEDropMode = 1 ’Manual
ScaleHeight = 120
ScaleMode = 3 ’Pixel
ScaleWidth = 113
TabIndex = 5
Top = 1470
Width = 1695
End
End
Begin VB.CommandButton Command2
Caption = “打开MRP“
Height = 525
Left = 3990
TabIndex = 3
Top = 225
Width = 1065
End
Begin VB.ListBox List1
Height = 2040
Left = 8925
TabIndex = 2
Top = 135
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H80000004&
Caption = “限制X≦240“
Height = 240
Left = 8925
MaskColor = &H8000000F&
TabIndex = 1
Top = 2295
Value = 1 ’Checked
Width = 1170
End
Begin VB.TextBox Text1
Height = 2010
Left = 105
Locked = -1 ’True
MultiLine = -1 ’True
ScrollBars = 2 ’Vertical
TabIndex = 0
Top = 120
Width = 3795
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4410
Top = 990
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 ’True
End
Begin MSComctlLib.ListView ListView1
Height = 2745
Left = 105
TabIndex = 6
Top = 2205
Width = 5055
_ExtentX = 8916
_ExtentY = 4842
View = 3
LabelEdit = 1
Sorted = -1 ’True
LabelWrap = 0 ’False
HideSelection = 0 ’False
AllowReorder = -1 ’True
Checkboxes = -1 ’True
FullRowSelect = -1 ’True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = “模块名“
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 1
Text = “类型“
Object.Width = 1059
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 2
Text = “地址偏移“
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = “大小(B)“
Object.Width = 1764
EndProperty
End
Begin VB.Menu RMenu
Caption = “RMenu“
Visible = 0 ’False
Begin VB.Menu CheckAll
Caption = “全选“
End
Begin VB.Menu CheckSame
Caption = “选择同类型“
End
Begin VB.Menu fg1
Caption = “-“
End
Begin VB.Menu Extract
Caption = “开始提取“
End
Begin VB.Menu fg
Caption = “-“
End
Begin VB.Menu UnGzip
Caption = “自动Gzip解压“
End
End
End
Attribute VB_Name = “Form1“
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_Pre***dId = True
Attribute VB_Exposed = False
Option Explicit

Dim ClickIndex As Integer ’单击项目
Dim IsMove As Boolean, MX As Single, MY As Single ’用于Picture的移动

’将图像复制到剪切板
Private Sub cmd_CopyBmp_Click()
Clipboard.Clear
Clipboard.SetData Pic_bmp.Image, vbCFDIB
Me.Caption = “UnMrp 图像已复制到剪切板“
End Sub