如何在VB的PictureBox 内按顺序连着画一组线段 已知每个线段的长度及与...

嗯 你说得没错 假设 两点间长度是 r 角度是 a 则两点的 x之差=r cos(a)y之差=r sin(a)不过要记得picturebox 默认的坐标是 屏幕向右是x正方向 向下是y的正方向 跟咱们一般用的不一样 你可以用 picturebox1.scale (x1,y1)-(x2,y2) 来自定义坐标系 期中 (x1,y1) 是你想...

Picture1.Line -(CX * f2, CY) ' 画右上角。Picture1.Line -(CX, CY * f2) ' 画右下角。Picture1.Line -(CX * f1, CY) ' 画左下角 ForeColor = QBColor(I Mod 15) ' 每次改变颜色。Next I SavePicture Picture1.Image, "z:\test.bmp"End Sub ...

Picture1为picturebox控件 (5000, 1000) (0, 1000) 为坐标 RGB(255, 0, 0)为线条色彩

picture1.line (x1,y1)-(x2,y2)定义起点终点坐标。。画线，按你要求一条条的画好就出来了。

然后设变量k是小方格的单位长度。可以通过改变k的值放大缩小。然后……sub draw()for i = 1 to n '输入的行数，可以通过读入时累加得到 picture1.fillcolor = color(2)picture1.line ((x-1)*k,(y-1)*k)- (x-1,y-1),,b 'b = box，控制画矩形。next end sub 还有其他问题就是k...

Private Sub Command1_Click()For i = 2 To 10 Picture1.Line (i * 10 + 19.5, (10 - i) * 5 + 9)-(((i - 1) * 10 + 19.5), ((11 - i) * 5 + 9))Next i End Sub Private Sub Form_Load()Picture1.Line (20, 60)-(120, 60)Picture1.Line (20, 60)-(20,...

1.划线用GdipDrawLineI 不过gdi使用需要定义token等参数，还有用完要释放 2.你的要求较为复杂 这个需要多个透明的层嵌套（或者用gdi来绘制背景透明的图），否则不可能实现任何一个图形画了之后还可以选择并且拖动大小这个要求，而且这一步的话，每一个图在picturebox内需要定义可以如何拖动，是否可以向桌面...

怎么写 你自己看 ,只给说一下过程 对象 Picture1, 设置 autoRedraw=True 保存图片: SavePicture Picture1.image,文件路径 有 了路径 向 ComboBox 添加 装入图片PictureBox.Picture= LoadPicture("图片路径")

picturebox1.forecolor=vbred picturebox1.line (0,0)-(x,y)

Picture1.AutoRedraw = True '必须设为 True ，这样才能图形和文本输出到屏幕，并存储在内存的图象中。然后可以使用 Image 属性 SavePicture Picture1.Image, "C:\Pic1.BMP"'此代码保存的是 Picture1 里使用 Line 、 Circle 、PaintPicture 等绘图方法画出来的图片，包括背景色以及 PICTURE 属性指定的...