VB.NET坐标变换
以PictureBox1中（2,2）点为新的原点（0,0）向右为X轴正方向 向上为Y轴正方向
如何在vb中建立直角坐标系
PictureBox有一个 Scale函数 可以建立这个控件的坐标系 比如 picturebox1.scale (x1,y1)-(x2,y2) 那两个点是左上角 和右下角的坐标 如果 x2>x1 y1>y2 那它就是你说的那种坐标
在vb的picturebox中怎样建立坐标轴
Private Sub Command1_Click()a = Zbx(30, 20)End Sub Private Function Zbx(X0 As Integer, Y0 As Integer) As Integer 'X0为横坐标刻度数，Y0为纵坐标刻度数 Dim Xdw As Single, Ydw As Single Xdw = Pic1.Width \/ (X0 + 3)Ydw = Pic1.Height \/ (Y0 + 3)Pic1.Line (Xdw, ...
vb如何画常规坐标系?
Frame只能当容起诉来用，picture控件比较适合。不过习惯了计算机绘画作图的人都是喜欢从屏幕左上角开始第四象限坐标系的.，单位也喜欢用像素。可以考虑使用图表控件，比如MSCHART或者TEECHART控件,可以减少一定的工作量，MSCHART是VB6自带的控件，在组件项里找一下加上去就可以了，TEECHART是TEEMA公司出品的...
如何在vb中的picturebox 里画图?
Next Radius For I = 0 To 50 Step 2 ' Set up loop.F = I \/ 50 ' 执行中间。f1 = 1 - F: f2 = 1 + F ' 计算。Picture1.Line (CX * f1, CY)-(CX, CY * f1) ' 画左上角。Picture1.Line -(CX * f2, CY) ' 画右上角。Picture1.Line -(CX, CY * ...
vb中如何在picturebox中写点的代码?然后把像素值赋给各点,显示出整个图...
‘例子中可以显示坐标系，如不需要显示删除那一段代码即可 Private Sub Command1_Click()'绘制f(x)=8*sin(x)正弦波 Picture1.DrawWidth = 2 '设置绘图线宽（点大小）Dim y As Double For x = -12 To 12 Step 0.01 y = 8 * Sin(x)Picture1.PSet (x, y), vbRed '按点绘图，颜...
vb怎么在picturebox中画坐标网格
Picture1.Line (0, 500)-(Picture1.Width, 500)Picture1.Line (500, 0)-(500, Picture1.Height)像这样也可以
VB.net中如何在picturebox画线,有什么函数?
Dim i As Integer Dim bs As New SolidBrush(Color.Green)Dim po As New Point po.X = 0 po.Y = PictureBox1.Height - 35 For i = 700 To 1000 Step 50 g.DrawString(i, Me.Font, bs, po.X, po.Y)g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)po...
vb 如何在picturebox中指定坐标画点
然后设变量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...
如何在控件中定义一个坐标
用scale语句来定义坐标系好了，比方说picturebox控件。你picturebox1.scale (x1,y1)-(x2-y2)就把这个控件的左上角坐标定义为（x1,y1)右下角坐标定义为（x2,y2)也就是把你的控件横向分割成了x2-x1份，纵向分割成了y2-y1份。根据你的要求，那大致就是这样：（我在你的坐标系原点画了一个...
