初来此地,希望大家多多帮忙,共同进步!
我要问的就是怎么分割图片
比如任意的分成3*3 4*4之类的
谢谢了!

http://blog.csdn.net/griefforyou/archive/2005/03/11/317045.aspx

谢谢你
但是怎么保存
我每次保存都是最后一副图片,而不是分割后的所有图片

保存好了

Private Sub Command7_Click() 'split用于JPG
Dim a As Byte
Dim b As Byte
i = 0
Open "d:\b2cv\XS_007.jpg" For Binary As #7
Open "d:\b2cv\1" For Binary As #8
Open "d:\b2cv\2" For Binary As #9
Do Until EOF(7)
If i < 38000 Then 'And i < 30145 'If I > 29544 Then 'And i < 30145
Get #7, , a
Put #8, , a
' Put #9, , b
Else
Get #7, , a
' Put #8, , b
Put #9, , a
End If
i = i + 1
Loop
Close #9
Close #8
Close #7
'Print " ok"
End Sub
Private Sub Command8_Click() 'unsplit
Dim a As Byte
Dim b As Byte
Open "d:\b2cv\007.jpg" For Binary As #7
Open "d:\b2cv\1" For Binary As #8
Open "d:\b2cv\2" For Binary As #9
Do Until EOF(8)
Get #8, , a
Put #7, , a
Loop
Do Until EOF(9)
Get #9, , a
Put #7, , a
Loop
Close #9
Close #8
Close #7
Print " ok"
End Sub