原始碼:http://down.gogobox.com.tw/t2329175/xq2m2
'使用了Commaon Dialog Control 6.0 請設定

'CD1就是Commaon Dialog Control 6.0
Private Sub C1_Click()
CD1.FileName = ""
CD1.ShowOpen
If CD1.FileName <> "" Then
T1 = CD1.FileName
End If
End Sub

Private Sub C2_Click()
CD1.FileName = ""
CD1.ShowOpen
If CD1.FileName <> "" Then
T2 = CD1.FileName
End If
End Sub

Private Sub C3_Click()
CD1.FileName = ""
CD1.ShowSave
If CD1.FileName <> "" Then
T3 = CD1.FileName
End If
End Sub

Private Sub Cdos_Click()
Fum = FreeFile
Open "c:\a.bat" For Output As #Fum
Print #Fum, "@echo off"
Print #Fum, "copy/b " & Chr(34) & T1 & Chr(34) & " + " & Chr(34) & T2 & Chr(34) & " " & Chr(34) & T3 & Chr(34)
Print #Fum, "echo on"
Close #Fum
Shell "c:\a.bat", vbHide
End Sub

Private Sub T1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
T1.Text = Data.Files(1)
End Sub

Private Sub T2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
T2.Text = Data.Files(1)
End Sub

Private Sub T3_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
T3.Text = Data.Files(1)
End Sub



大家之前看的程式照片都可以解壓縮都是因為這個原因,
把圖片拖到第一項textbox,
壓縮檔拖到第二項textbox,
輸入路徑為第三項textbox,
之後按”Cmd處理”就OK了。

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()