有19張圖片000.bmp-018.bmp，知道這19張圖片的順序，例如“3 5 1 0 8 15 ...”，然后怎么樣能夠按順序將圖片拼接起來？
因為我是vb新手，所以下面的程式只能將000.bmp-004.bmp拼接，但還是出問題了，如果能夠將000.bmp-018.bmp按例如“3 5 1 0 8 15 ...”順序拼接當然最好，如果不行，能不能先幫忙把000.bmp-004.bmp拼接程式改對啊？
Private Sub Form_Load()
Dim J As Long
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
Picture2.AutoRedraw = True
Picture1.AutoRedraw = True
Picture1.AutoSize = True
Picture1.BorderStyle = 0
Picture2.BorderStyle = 0
Set Picture1.Picture = LoadPicture("C:\Users\DELL\Desktop\000.bmp")
'Picture1.PaintPicture Picture2.PaintPicture, 0, 0
Picture2.Width = Picture1.ScaleWidth * 5
Picture2.Height = Picture1.ScaleHeight
For J = 0 To 4
Set Picture1.Picture = LoadPicture("C:\Users\DELL\Desktop\" & "00" & CStr(J) & ".bmp")
Picture2.PaintPicture Picture1.Picture, J * Picture1.ScaleWidth, Picture1.ScaleHeight
Next
SavePicture Picture2.Image, "C:\Users\DELL\Desktop\All.bmp"
End Sub
運行除錯沒問題，就是最后停不了了，是需要運行的時間太長么？而且已經有all.bmp,但是打開之后什么也沒有，為什么呢？
uj5u.com熱心網友回復：
見：http://zhidao.baidu.com/question/1667348479424013067.html?oldq=1處的回復和工程實體。uj5u.com熱心網友回復：
停不下來什么意思? 程式死掉了么?除錯運行的時候同時按ctal+break鍵看停在那一句陳述句上面
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/134070.html
標籤：多媒體
上一篇：求助除錯出現這樣的錯誤提示！