⑴ VB设置坐标
按你的意思写了个,只用了1个TEXT,你看看是不是你要的。。
Dim x1, y1
Private Sub Form_KeyPress(KeyAscii As Integer)
Text1.Text = Text1.Text & Chr(KeyAscii) & "键-坐标(x,y)(" & x1 & "," & y1 & ")" & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
⑵ vb中坐标系是如何定义的如何表示绝对坐标和相对坐标。
窗体内的左上角的座标为(0,0),向右是.Left+,向左是.Left-,向下是.Top+,向上是.Top-;如果要使用相对座标,比如向右移动100,就可以写成Object.Left=Object.Left+100即可。
⑶ 请教高手,vb6.0用mschart控件链接数据库,数据库中有4列数据,时间为横坐标,数据为纵坐标,绘制4条曲线
连接数据库VB6.0中的MSChart控件是一个功能强大的高级图表工具,拥有丰富的图表绘制功能,可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。
⑷ VB6 里MSCHART控件怎么将数据库中指定的列分别作为横坐标和纵坐标
读取你要显示的列的值,分别生成两个数组,直接使用Chart.Series.Points.DataBindXY(第一个数组,第二个数组)就可以了,如有疑问请追问或是Hi,有帮助请及时采纳
⑸ VB6.0 MSChart 画动态曲线,怎样将表格中的第三列作为X轴数据,第五列作为Y轴数据
右键点击图标-源数据-数据区域-系列产-原选着行选择列
满意请采纳
⑹ VB中如何建立自己的坐标系
Form1.Scale(X1,Y1)-(X2,Y2)
其中第一个坐标为窗体左上角坐标,第二个为右下角坐标,这样就可以自定义容器坐标了
把from1换成其它的容器名也可以
From1_Load()
Me.Scale(-200,200)-(200,-200) '咱们常用的坐标系,长、宽为400,但如果不规定窗体的长宽,每一个单位的长度也是不确定的
Line(-200,0)-(200,0),rgb(255,255,255)
Line(0,200)-(0,-200),rgb(255,255,255)'画出两个坐标轴
⑺ vb 中如何通过设置坐标来控制对象的位置 急求
VB的坐标系统综述
由于在visual basic系统中有多种坐标定义,容易使初学者混淆,本文将详细总结vb的坐标系统的一些基本概念,并提供坐标定义的详细方法:
visual basic 坐标系统概述:
visual basic 的坐标系统是指在屏幕(screen)、窗体(form)、容器(container)上定义的表示图形对象位置的平面二维格线,一般采用数对(x,y)的形式定位。其中,x 值是沿 x 轴点的位置,最左端是缺省位置 0。y 值是沿 y 轴点的位置,最上端是缺省位置 0。
在visual basic坐标系中,沿坐标轴定义位置的测量单位,统称为刻度,坐标系统的每个轴都有自己的刻度。坐标轴的方向、起点和刻度都是可变的,在后面的叙述中,将讨论如何改变这些定义。
如何创建坐标系统:
创建图形对象的坐标系统,一般有以下几种方法:
1、使用系统缺省定义:
在系统缺省状态下,visual basic使用twips坐标系,以’缇’为单位(1缇的长度等于1/1440英寸;1/567厘米;1/20磅)。应当注意的是:这些值指示的是图形对象打印尺寸的大小。而在计算机屏幕上的物理距离则根据监视器的大小及分辨率的变化而变化。
2、选择系统标准刻度定义:
除了缺省的twips坐标系外,用户还可以通过对象的scalemode属性来设置其它的坐标刻度:(共有8种设置),现将这些设置列表如下:
scalemode值 表示 说明
0 user 用户自定义
1 twip 缇,系统缺省设置
2 point 磅,每英寸约为72磅
3 pixel 像素,像素是监视器或打印机分率的最小单位。每英寸里像素的数目由系统设备的分辨率决定。
4 character 字符,打印时,一个字符高 1/6 英寸,宽1/12 英寸
5 inch 英寸,每英寸为2.54厘米
6 millimeter 毫米
7 centimeter 厘米
在上述设置值中,除了 0 和 3以外,其它所有模式都是打印机所打印的单位长度。例如,某对象长为4个单位,当 scalemode 设为 5 时,打印时就是4英寸长。在程序中设定scalemode值的代码如下:
'设窗体的刻度单位为厘米。
scalemode = 7
'设 picture1 的刻度单位为像素。
picture1.scalemode = 3
3、创建自定义坐标系统:
当scalemode=0时,即为用户自定义模式,可采用设置对象的相应属性,来创建所需的坐标系统,这些属性是:
scaleleft: 设置对象左边距值
scaletop: 设置对象上边距值
scalewidth: 设置对象宽度
scaleheight: 设置对象高度
下面给出如下设置代码:
scaleleft=100
scaletop=100
scalewidth=300
scaleheight=200
picture1.scaleleft=50
picture1.scaletop=50
则所定义的坐标系如下图所示:
scaletop=100
picture1.scaleleft=50
以上代码定义窗体左上角坐标为(100,100),定义窗体内图形对象picture1距窗体左边距离为50,上边距离为50。scalewidth 和 scaleheight 语句定义窗体内部宽度的 1/300 为水平坐标单位;当前窗体内部高度的 1/200 为垂直坐标单位。如果窗体的大小以后被调整,这些单位保持原状。也就是说:scalewidth 和 scaleheight 是按照对象的内部尺寸来定义单位的,并且这些尺寸不包括边框厚度或菜单标题的高度。scalewidth 和 scaleheight 是指对象内的可用空间的大小。它们决定了对象本身的坐标系统。这有别于内部尺寸和外部尺寸(由 width 和 height属性指定)定义,width 和 height 总是按照容器的坐标系统来表示。另外以上刻度属性都可包括分数,也可是负数。如果将 scalewidth 和 scaleheight 属性设置值为负数即改变坐标系统的方向。
4.使用scale方法定义坐标系统:
一个更简洁的改变坐标系统的途径是使用 scale 方法。定义形式如下:
[object.]scale (x1, y1) – (x2, y2)
x1 和 y1 的值,决定了 scaleleft 和 scaletop 属性的设置值。x2-x1的差值和y2-y1的差值,分别决定了 scalewidth 和 scaleheight 属性的设置值。若指定 x1 > x2 或 y1 > y2 的值,与设置 scalewidth 或 scaleheight 为负值的效果相同。例如:设定窗体坐标系统如下:
scale (100, 100)-(200, 200)
该语句定义等同于以下属性设置:
scaletop=100:scaleleft=100:scalewidth=100:scaleheight=100
如何恢复缺省坐标系统:
在定义了其它坐标系后,如果需要将坐标系统恢复为缺省的twips坐标系,可以使用不含参数的scale方法,如语句:
picture1.scale
将图形对象的坐标系统恢复为缺省,其左上角坐标为(0,0)。
满意请采纳,谢谢。
⑻ VB6.0利用Access数据库怎么画坐标图
最简单的不是用VB6,而是在Access2003中导出为Excel格式,你可以看下Access2003的VBA的导出代码,非常简单
⑼ VB6.0中DATAGRID控件怎么设置几行几列
这个控件不能设置行列,他的行列与数据库中数据表行列相同,在表格的DATASOURCE属性中设置数据源,之后在控件中点击右键,选择检测结构,数据表的列数就出来了,至于行数,在程序运行时候,数据表中有多少行就会显示多少行。明白了吗?
⑽ 怎样在vb6.0里建坐标系
创建一个窗口,在窗口中添加一个中添加:
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Scale (0, 0)-(100, 10) '自定义窗口坐标系如果需要在窗口内部分区域作曲线,可以用PictureBox
Me.Line (0, 0)-(20, 5), vbBlack '画一条白色直线
'如果需要在窗口内部分区域作曲线,可以用PictureBox
Picture1.BackColor = vbWhite
Picture1.AutoRedraw = True
Picture1.Scale (0, 0)-(100, 10)
Picture1.DrawWidth = 3 '线宽
Picture1.Line (0, 0)-(20, 5), vbBlack '画线
End Sub
补充:
画弧线参考这个帖子
http://wenwen.soso.com/z/q125537362.htm