关于图像的拆分和合拼的问题? 简单的做就是把大图片读进来,然后按块存成小图片啦。123456 = 1 2 3 4 5 6 7 8 9789合并时候1 2 3 4 5 6 7 8 9 按一定顺序 = 123 456 789 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1、将一张大图片分割成若干个小图片并单独存盘;'使用 Microsoft PictureClip Control 6.0'Form1、PictureClip、Command1、Picture1Private Sub Form_Load()Set PictureClip1.Picture = LoadPicture("d:\big.bmp")PictureClip1.Cols = 6PictureClip1.Rows = 3'分为 3*6 = 18 块,(0 -> 17)Picture1.ScaleMode = vbPixelsPicture1.AutoSize = TrueEnd SubPrivate Sub Command1_Click()MsgBox "Save No.17 Chunk to 17OfBig.bmp"Set Picture1.Picture = PictureClip1.GraphicCell(17)SavePicture PictureClip1.GraphicCell(17), "d:\17OfBig.bmp"End Sub2.??????? 这样分成的每个小图片都是一样大小的,不够灵活,还有别的办法吗? 还有别的更好的办法吗?请赐教!(另外加分) 自动替换excel禁止出现对话框的问题 烦劳大侠指点...谢谢 vb中怎样对字符串型的字段使用合计函数sum ? 高手指教。(昨天回答问题仁兄请进) 如何使在vc中编写的类能在vb中用 请问如何将图片和WORD文件存入并从ACCESS读出?! VB中16进制常数怎么表示??是ox还是0x?? 在深圳VB程序员请进! 请教,这样的字符串如何分割啊! 如何知道一个字体的高度~???在线等。。。 关于jet oledb 3.51和4.0的问题(一定给高高高分了) 关于文件压缩 如何显示文本???
'使用 Microsoft PictureClip Control 6.0
'Form1、PictureClip、Command1、Picture1
Private Sub Form_Load()
Set PictureClip1.Picture = LoadPicture("d:\big.bmp")
PictureClip1.Cols = 6
PictureClip1.Rows = 3
'分为 3*6 = 18 块,(0 -> 17)
Picture1.ScaleMode = vbPixels
Picture1.AutoSize = True
End Sub
Private Sub Command1_Click()
MsgBox "Save No.17 Chunk to 17OfBig.bmp"
Set Picture1.Picture = PictureClip1.GraphicCell(17)
SavePicture PictureClip1.GraphicCell(17), "d:\17OfBig.bmp"
End Sub2.???????