请问关于picturebox的问题

Question

1.设置pictureboxSIZE为自动。再取picturebox.height,picturebox.width。
2.MSDN中有SavePicture的详细说明。
或者用保存框给用户选择。

Answer 1

1、Picture1.AutoRedraw = True
Picture1.AutoSize = True
Picture1.Picture = LoadPicture("")W = Picture1.Width
H = Picture1.Height2、存成bmp图片后再改个名字

Answer 2

Private Sub Form_Load()
    Picture1.AutoSize = True
    Picture1.ScaleMode = 3
    Picture1.AutoRedraw = True
    
    Set Picture1.Picture = LoadPicture("C:\Documents and Settings\wxy\My Documents\My Pictures\样品.jpg")
    Picture1.ForeColor = vbWhite
    Picture1.Print "哈哈"
     
    
End SubPrivate Sub Picture1_Click()
    MsgBox "图片宽度为：" + CStr(Picture1.ScaleWidth) + "像素，  高度为：" + CStr(Picture1.ScaleHeight) + "像素"
    SavePicture Picture1.Image, "C:\TEST.jpg"
End Sub

Answer 3

SavePicture Picture1.Image,"*.jpg"其实只把文件名改了
文件大小已经变为位图的大小了，并没有压缩 
我的意思不是只改文件名，是把bmp压缩为jpg啊

Answer 4

那你要去学习各种图片的结构以及各类压缩算法了这里有源码例子：　http://www.dapha.net/down/list.asp?id=1584