picturebox画圆方法.doc

关于VB用Picturebox画图的一个大问题???
我在用VB写一个 画图板的 撤消功能,

当我做到喷枪的 撤消功能时 遇到一个莫名其妙的问题,如下:

For i = -10 To 10 Step 3
For j = -10 To 10 Step 3
m = X + Rnd * i * 10
n = Y + Rnd * j * 10
v(l) = m
t(l) = n
l = l + 1
Picture1PSet (m, n)

Next j
Next i

这是用喷枪画时的程序,接下来是撤消是的程序(我用picturebox背景色把上面那个动作再做一边):

For u = 0 To l - 1

m = v(u)
n = t(u)
u = u + 1
Picture1.PSet (m, n), Picture1.BackColor

Next u

可以结果却是只撤消了大部分的点,还有少数点没画到.

那位大侠 能帮我解决的话 我将万分感激!!!!

VB中如何只保存Picturebox中的绘图区域？
2008-04-26 15:57homekid2|分类：VB| 浏览1453次
Picturebox中只选择了左上角的一部分区域绘图，只想保存绘图的部分。而不想保存没绘图的部分，如何实现？
我有更好的答案
提问者采纳
2008-05-02 10:28
不明白你什么意思啊~保存成文件吗
bitblt就可以 设置x1 y1 x2 y2 矩形左上右下角坐标就行了
评论|0

tedzhu|六级采纳率44%

vb picturebox绘图怎样实现选择平移放大等操作
2011-06-26 08:3215093075267|分类：VB| 浏览465次
我有更好的答案
提问者采纳
2011-06-27 15:55
/// lick(object sender, EventArgs e)
{
picMain.Image = ImageRotate.RotateImg(this.picMain.Image, 90);
}

/// oid btn_imgRight_Click(object sender, EventArgs e)
{
picMain.Image = ImageRotate.RotateImg(this.picMain.Image, -90);
}

/// // 以逆时针为方向对图像进行旋转
///
double radian = angle * Math.PI / 180.0;
double cos = Math.Cos(radian);
double sin = Math.Sin(radian);

//原图的宽和高
int w = b.Width;
int h = b.Height;
int W = (int)(Math.Max(Math.Abs(w * cos - h * sin), Math.Abs(w * cos + h * sin)));
int H = (int)(Math.Max(Math.Abs(w * sin - h * cos), Math.Abs(w * sin + h * cos)));

//目标位图
Bitmap dsImage = new Bitmap(W, H);
System.Drawing.Graphics g = System.Drawing.Graphics.FromImage(dsImage);
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.Bilinear;
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality;

//计算偏移量
Point Offset = new Point((W - w) / 2, (H - h) / 2);

//构造图像显示区域：让图像的中心与窗口的中心点一致
Rectangle rect = new Rectangle(Offset.X, Offset.Y, w, h);
Point center = new Point(rect.X + rect.Width / 2, rect.Y + rect.Height / 2);

g.TranslateTransform(center.X, center.Y);
g.RotateTransform(360 - angle);

//恢复图像在水平和垂直方向的平移
g.TranslateTransform(-center.X, -center.Y);
g.DrawImage(b, rect);

//重至绘图的所有变换
g.ResetTransform();
g.Save();
g.Dispose();
//保存旋转后的图片
b.Dispose();
dsImage.Save("FocusPoint.jpg", System.Drawing.Imaging.ImageFormat.Jpeg);
return dsImage;
}

/// {
return RotateImg(GetSourceImg(filename), angle);
}

private static Image GetSourceImg(string filename)
{
Image img;
img = Bitmap.FromFile(filename);
return img;
}

#endregion 图片旋转函数
}

PictureBox控件、椭圆的画图、找点 [问题点数：33分，结帖人CSDN]

fujiguan
南海
等级：

楼主 发表于： 2006-04-02 11:30:13
小弟初学vb，在在PictureBox控件上绘制图像时（VB），只能用Circle进行椭圆的绘制，但如今想使用椭圆的曲线方程X^2/a^2+Y^2/b^2=1实现，该PictureBox控件参数为ScaleHeight=225,ScaleWidth=360,欲绘制的椭圆参数为a，b已知，我的目的是想要找出该椭圆上的所有点的坐标（数组1）以及椭圆内部所有点的坐标（数组2）……不知能否实现如何实现？恳望各位大虾们不吝赐教，不胜感激！
对我有用[0]丢个板砖[0]引用| 举报 | 管理
回复次数：9

bakw
bakw
等级：

#1得分：0 回复于： 2006-04-02 12:29:22
X^2/a^2+Y^2/b^2-1 将点坐标代入这个方程,根据结果的符号就可以知道是在圆内,圆外,或者圆上

翻版周杰伦的游戏开发经历
对我有用[0]丢个板砖[0]引用| 举报 | 管理

xDAVIDx
xDAVIDx
等级：

#2得分：0 回复于： 2006-04-02 13:08:12
表达式X^2/a^2+Y^2/b^2的结果=1即在椭圆上,<1则在椭圆内,>1则在椭圆外.
对我有用[0]丢个板砖[0]引用| 举报 | 管理

fujiguan
南海
等级：

#3得分：0 回复于： 2006-04-02 16:51:21
嗯，问题是。椭圆应该是有无限个点组成的，但在有限的点数即225X360的PictureBox控件上绘制的椭圆取的是哪些点？坐标（X，Y）中的X和Y应该都是整数的吧……比如a=2,b=3，用循环来判断
for x=1 to 225
for y=1 to 360
if X^2/a^2+Y^2/b^2=1 then
'将X，Y值存入数组
end if
next

next
根本不可能……
对我有用[0]丢个板砖[0]引用| 举报 | 管理

fujiguan
南海
等级：

#4得分：0 回复于： 2006-04-03 11:22:12
另：实心椭圆是如何绘制的？
对我有用[0]丢个板砖[0]引用| 举报 | 管理

tmd007
tmd007
等级：

#5得分：0 回复于： 2006-04-03 14:13:58
Private Sub Command1_Click()
'实心椭圆。
FillStyle = 0
Circle (600, 1000), 800, , , , 3
'空心椭圆。
FillStyle = 1
Circle (1800, 1000), 800, , , , 3

End Sub

对我有用[0]丢个板砖[0]引用| 举报 | 管理

fujiguan
南海
等级：

#6得分：0 回复于： 2006-04-03 14:58:52
刚试过了用X^2/a^2+Y^2/b^2<1好像确实可以绘制实心的椭圆（我用的是pset进行的测试），但X^2/a^2+Y^2/b^2=1的还是画不出椭圆来的……自己再顶了……
对我有用[0]丢个板砖[0]引用| 举报 | 管理

bakw
bakw
等级：

#7得分：0 回复于： 2006-04-03 20:37:44
你是不是描点画的?
那样画出来的椭圆有问题,你用X^2/a^2+Y^2/a^2画画试试,那个画出来就不是圆~
vb的画图函数有问题的,最好要不描点画,如果你要结果可以,但拿这个来描点画图是不行的
对我有用[0]丢个板砖[0]引用| 举报 | 管理

bakw
bakw
等级：

#8得分：0 回复于： 2006-04-03 20:38:28
X^2/a^2+Y^2/a^2 画出来的圆在form和picturebox下画的还不同
对我有用[0]丢个板砖[0]引用| 举报 | 管理

fujiguan
南海
等级：

#9得分：0 回复于： 2006-04-04 09:53:41
To All：
嗯。我确实是用描点画的，呵呵，因为画出来的不是椭圆，而只是零散的椭圆上的几个点，所以就对Circle这个方法感兴趣了，不知道它是怎么实现的。。。内部执行时它不会是先去掉“<1”和“>1”的所有点再取的剩余点吧？？？！！！
还有bakw(好好潜水,天天UP)提出的问题也挺值得讨论的，为什么X^2/a^2+Y^2/a^2 画出来的圆在form和picturebox下画的还不同的？？？？？？？？？？
^_^先谢谢各位先……

VB中PictureBox控件使用教程
2010-05-31 21:11:52| 分类： VB相关 | 标签： |字号大中小订阅
PictureBox对象可以说是任何对象的原始型态，它可以加载图片、显示文字、画图外，它还能与Frame对象一样，在自己本身里头加载其它的对象而自成一个小群组，用PictureBox可以仿真出任何对象的外观，PictureBox是VB基本控件里变化最多，功能最多，也是令人最想去征服它的一个物件。
●PictureBox与Frame对象一样，本身都能装载其它的对象而自己形成一个对象群组。

●如果要拿PictureBox装载对象时，可以把它视为Frame来使用。

●与Image对象一样在设计阶段时，以Picture属性来加载图片。

●与Image对象一样都是在属性对话窗口按一下〝...〞钮后，跳出〝加载图片〞对话框，选择所要的图档，然后加载。

●在执行阶段，可以用VB的函数来帮PictureBox加载图片：
Command1_Click()
Picture1.Picture = LoadPicture("E:\MyGif\AniGif0562.gif")
End Sub

●在设计阶段，若后悔加载图片，想把它消除时，可以把PictureBox按Delete键删掉，然后从工具箱拖曳一个新的PictureBox，或是在属性对话框里的Picture属性，把〝(位图)〞这几个反白，或是移到〝(〞的最前端，按一下键盘的Delete键即可移除图片。

●若在执行阶段，想把PictureBox内的图片移除，可再用LoadPicture函数，并且传空字符串给它：
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("")
End Sub
--------------------------------------------------------------------------------

●在PictureBox里画图：

●PSet方法：PSet不只是用在PictureBox上，也可以用在窗体上，PSet最主要功用用就是在某一点位置上画一个点，用法是Object.PSet(X,Y), Color： Private Sub Command1_Click()
Picture1.PSet(500,260),RGB(128,0,255)
'RGB函数是以红色、绿色、蓝色来表示颜色，详情请到函数指令参考
End Sub
●若颜色省略，则以PictureBox预设的颜色。

●前面有学到随机数的运用，因此我们来做个范例看看，范例─满天繁星：
Private Sub Timer1()_Timer
Randomize
X = Int(Rnd * Picture1.ScaleWidth)
Y = Int(Rnd * Picture1.ScaleHeight)
R = Int(Rnd * 256)
G = Int(Rnd * 256)
B = Int(Rnd * 256)
Picture1.PSet (X, Y), RGB(R, G, B)
End Sub

●Line方法：Line方法专门用来画直线的工具，在窗体上也可以使用，用法：Object.Line(X1,Y2)-(X2,Y2), Color, BF
●Color在Line里与PSet一样是可以被省略的，在Color后方，若是加入B则画出的不是线条，而是一个空心矩形，若是BF，则画出来的是实心矩形。
Private Sub Command1_Click()
Picture1.Line(50,50)-(500,750)
End Sub
Private Sub Command1_Click()
Picture1.Line(50,50)-(500,750), ,B
End Sub
Private Sub Command1_Click()
Picture1.Line(50,50)-(500,750), ,BF
End Sub
●Circle方法：Circlr方法专门用来画圆，窗体上也是可以使用，用法：Object.Circle(X,Y), R, Color, 起始角度, 终止角度, 椭圆率
Private Sub Command1_Click()
Picture1.Circle(1000, 1000), 800
End Sub
Private Sub Command1_Click()
Const PI = 3.1415926535
Picture1.Circle (1000, 1000), 800, , PI / 4, 3 * PI / 4
End Sub

●若是设定起始角度与终止角度，画出来的圆会变成弧，而角度单位使用的是弧度，也就是说，180。=3.1415926535...对于没有学过弧度的网友来说，可能是难了点。
Private Sub Command1_Click()
Const PI = 3.1415926535
Picture1.Circle (1000, 1000), 800, , -PI / 4, -3 * PI / 4
End Sub

●若是起始角或终止角使用负数，它们还由由圆心画直线到起始角或终止角，这样就可以画出扇形。
Private Sub Command1_Click()
Picture1.Circle (1000, 1000), 800, , , , 0.75
End Sub

●椭圆率则是圆的Y轴与X轴的比值，也就是 Y/X ，可以画出椭圆形。

●范例：在PictureBox里，拖曳产生一个圆
(一般)
Dim Dx As Single, Dy As Single
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Dx = X
Dy = Y
End If
End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Cls
Picture1.Line (Dx, Dy)-(X, Y)
Picture1.Circle (Dx, Dy), (((Dx - X) ^ 2 + (Dy - Y) ^ 2) ^ 0.5)
End If
End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Cls
Picture1.AutoRedraw = True
Picture1.Circle (Dx, Dy), (((Dx - X) ^ 2 + (Dy - Y) ^ 2) ^ 0.5)
Picture1.AutoRedraw = False
End If
End Sub

●Cls方法：Cls方法，就是清除屏幕上对象所在范围的内容，窗体也适用，若已存在内存里的内容，则无法消除，用法：Object.Cls，范例在上面的画圆范例里。

●Point方法：Point就是读取PictureBox某一点上的颜色数值，传回值是长整数型态，在窗体上也适用，用法：传回值 = Object.Point。
Private Sub Picture1 ●AutoRedraw属性：上面的PSet、Line、Circle是VB所提供的，画图在屏幕上的方法，因此只要对象移出屏幕外，或是对象被其它窗口或对象给盖着，刚才所画的图会不件，若在绘图时，把AutoRedraw设为True，则可把图绘入内存，即使用Cls方法也清除不掉，范例在上面的画圆范例里头。

●想要把用VB函数在PictureBox里所画的图给存起来时(把AutoRedraw设为True时所绘的图才能存盘)，VB提供了SavePicture方法，用法是SavePicture Object.Picture, 檔名。
Private Sub Command1_Click()
SavePicture Picture1.Picture, "C:\Windows\Temp\Tmp.Bmp"
End Sub

●SavePicture只能存BMP格式的档按，请别异想天开把扩展名改成JPG或GIF，存起来的图仍是BMP格式的图。

●PaintPicture方法：PaintPicture方法，可以把某个物计内的图转贴到另一个物件上，但要有一个前题，这个图是用Picture属性加载进来的图才可以，用法Object.PaintPicture 来源对象.Picture, Object.X, Object.Y, 图在Object上的宽度, 图在Object上的高度, 来源对象X起始位置, 来源对象起始Y位置, 来源对象上的宽度, 来源对象上的高度, 贴图模式
Private Sub Command1_Click()
Picture1.PaintPicture Picture2.Picture, 0, 0
'原尺寸转印
End Sub

●若是改变了图在Object上的宽与高，可以改变图形的缩放 Private Sub Command1_Click()
Picture1.PaintPicture Picture2.Picture, 0, 0, 750, 600
End Sub

●Picture2内的图被放大转贴到Picture1里。

●至于贴图模式，留在其单元里的特殊功能里讨论

●Print方法：Print可以在PictureBox上打印文字，窗体也适用，用法：Object.Print 资料。
Private Sub Command1_Click()
MyLng = 1234567
Picture1.Print "今天天气真好"
Picture1.Print "MyLng = " & MyLng
End Sub

●CurrentX与CurrentY属性，设定或传回目前PictureBox上画笔所在的位置，窗体也适用。
Private Sub Command1_Click()
Picture1.CurrentX = 500
Picture1.CurrentY = 350
Picture1.Print "今天天气真好"
End Sub

vb picturebox中画圆
2009-06-21 09:13zhangna_307|分类：VB| 浏览1017次
PictureBox 控件中心绘制一个直径为 40 像素的红色圆。如下：
Dim x As Integer
Dim y As Integer
Picture1.ScaleMode = vbPixels '这话什么意思啊？
x = Picture1.ScaleWidth / 2
y = Picture1.ScaleHeight / 2
Picture1.Circle (x, y), 20, vbRed

然后如果要画成是实心的红色圆，应该加上什么代码啊?请教下~~
还有如果想让这个圆自动放大，缩小又要写什么啊？在timer1.timer()中要怎么写呢、?
我有更好的答案
提问者采纳
2009-06-21 09:45
设FillColor=vbRed
设fillstyle=0
就行了。
提问者评价
谢谢哈~~

vb编程在picturebox画圆
2009-06-23 10:57wetsky90|分类：VB| 浏览1200次
我要画那种弹性的图形，鼠标拖动时形状会变的圆
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
formerX = X
formerY = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)'鼠标移动
If Button = 1 Then
Picture1.Cls
For i = 1 To drawcount
With drawone(i)
rl = Sqr(((.x1 - .x2) ^ 2 + (.y1 - .y2) ^ 2))
Picture1.Circle (.x1, .y1), rl, .dcolor
End with
rl = Sqr((formerX - X) ^ 2 + (formerY - Y) ^ 2)
Picture1.Circle formerX, formerY), rl
End if
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)'释放鼠标后

rl = Sqr((formerX - X) ^ 2 + (formerY - Y) ^ 2)
Picture1.Circle (formerX, formerY), rl
drawcount = drawcount + 1

If drawcount > 0 Then '动态数组存储图形信息
ReDim Preserve drawone(1 To drawcount)
With drawone(drawcount)
.x1 = formerX
.y1 = formerY
.x2 = X
.y2 = Y
.drawtype = drawt
.dcolor = Picture1.ForeColor
End With
End If

这个程序画出来的圆在中心水平线上半径是鼠标拖出来的半径，但在鼠标和中心在竖直线上的时候偏移量很大，怎么解决？
第二位画出来的鼠标位置确实是确定了半径，但是只能画圆弧吗？
我有更好的答案
提问者采纳
2009-06-27 11:34
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then x1 = x: y1 = y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
Picture1.AutoRedraw = False
Picture1.Refresh
Picture1.PSet (x1, y1)
Picture1.Circle (x1, y1), Sqr((x - x1) ^ 2 + (y - y1) ^ 2)
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
Picture1.AutoRedraw = True
Picture1.Circle (x1, y1), Sqr((x - x1) ^ 2 + (y - y1) ^ 2), End If
End Sub
提问者评价
很好很好，太感谢了！！加点分哈~