’图像另存为
Private Sub cmd_SaveBmp_Click()
On Error Resume Next
With CommonDialog1
.DialogTitle = “图像另存为“
.Filter = “BMP位图文件(*.bmp)|*.bmp|所有文件|*“
.FileName = bmpFile
.Flags = 6
.ShowSave
End With
If Err.Number = cdlCancel Then Err.Clear: Exit Sub
SavePicture Pic_bmp.Image, CommonDialog1.FileName
Me.Caption = “UnMrp 图像已保存为：“ & CommonDialog1.FileName
End Sub

’全选
Private Sub CheckAll_Click()
Dim i As Integer

CheckAll.Checked = Not CheckAll.Checked

With ListView1
For i = 1 To .ListItems.Count
.ListItems(i).Checked = CheckAll.Checked
Next
End With
End Sub

’选择同类型
Private Sub CheckSame_Click()
Dim i As Integer
Dim CK As String

With ListView1
CK = .ListItems(ClickIndex).ListSubItems(1)
For i = 1 To .ListItems.Count
If .ListItems(i).ListSubItems(1) = CK Then .ListItems(i).Checked = True
Next
End With
End Sub

’打开MRP对话框
Private Sub Command2_Click()
On Error Resume Next
With CommonDialog1
.DialogTitle = “请选择MRP文件“
.Filter = “MRP文件(*.mrp)|*.mrp|所有文件|*“
.InitDir = App.Path
.Flags = 4
.ShowOpen
End With
If Err.Number = cdlCancel Then Err.Clear: Exit Sub
mrpFile = CommonDialog1.FileName
Text1.Text = InfoText(ReadInfo(mrpFile))
Call ListMods(mrpFile, ReadInfo(mrpFile))
End Sub

’提取选定资源文件
Private Sub Extract_Click()
Dim i As Integer

SavePath = BrowseForFolder(“请选择用来保存提取出的模块文件的文件夹“, Me.hWnd)
If SavePath = ““ Then Exit Sub

For i = 1 To ListView1.ListItems.Count
With ListView1.ListItems(i)
If .Checked Then
Me.Caption = “UnMrp 正在提取... “ & .Text
ExtractOne mrpFile, SavePath & “\“ & .Text & “.gz“, .ListSubItems(2), .ListSubItems(3)
If UnGzip.Checked Then Shell “gzip.exe -df “ & SavePath & “\“ & .Text & “.gz“, vbHide
DoEvents
End If
End With
Next

Me.Caption = “UnMrp 提取完成！保存在“ & SavePath
End Sub

’初始化
Private Sub Form_Load()
If Command <> ““ Then
mrpFile = Replace(Command, Chr(34), ““)
Text1.Text = InfoText(ReadInfo(mrpFile))
Call ListMods(mrpFile, ReadInfo(mrpFile))
End If

Call UnGzip_Click
Pic_bmp.BackColor = RGB(255, 255, 255)
’SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3 ’窗体置顶
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Dir(bmpFile) <> ““ And bmpFile <> ““ Then Kill (bmpFile) ’删除临时文件
End
End Sub