我在picturebox中设置的512x512，为什么保存之后变成331x331的了呀？本人新手，还请高手帮忙呀！

你的PictureBox的ScaleMode是哪种模式，还有你说的512x512是PictureBox的Width*Height还是ScaleWidth*ScaleHeight？你的PictureBox是有边框的吗？

太感谢了！我的scalemode是user，scaleheight×scalewidth为512×512。
我传上了我的程序，帮我看一下吧。我想画间隔为一个象素的栅线，可是太密了发生了衍射。

Private Sub Command1_Click()
Dim X As Double
Dim Y As Double
Y = 0
Do While (Y <= 512)
X = 0
Do
Picture1.PSet (Y, X), RGB(255, 0, 0)
X = X + 2
Loop While X < 512
Y = Y + 2
Loop
End Sub
Private Sub Command2_Click()
On Error GoTo ErrHandler
CommonDialog1.Filter = "*.bmp|*.bmp"
CommonDialog1.ShowSave
SavePicture Picture1.Image, CommonDialog1.FileName
Exit Sub
ErrHandler:
Exit Sub
End Sub

Private Sub Form_Load()
Picture1.Width = Picture1.ScaleX(512 + 2, Picture1.ScaleMode, 1)
Picture1.Height = Picture1.ScaleY(512 + 2, Picture1.ScaleMode, 1)
Command1.Left = Picture1.Left + Picture1.Width + 200
Command2.Left = Command1.Left
Me.Height = Picture1.Height + Picture1.Top + 800
Me.Width = Command1.Left + Command1.Width + Picture1.Left
End Sub

[此贴子已经被作者于2007-8-13 19:58:56编辑过]

谢谢了！
我需要的是白色背景下的黑色竖线，间隔为一个象素，而不是格子，而且保存后还不是512×512，难道控件里有东西要改吗？

真是太感谢了！
我的另外一个帖子就是你给回的，你可能体会不到这对一个初学者是多么重要呀！

那你就用第一个循环再用Line方法就行了，别用Pset，那样速度太慢。

在matlab里面有存图片和读出图片两种。存图片是相当于截图，数据会丢失，而读出图片是保存了图片数据，所以数据不回丢失。我们通常用的是保存图片，数据会丢失，我想问问VB里有没有数据不丢失的保存图片的方法，类似matlab里的读出图片。