PictureBox 怎么连续画线呢 就是第二条线的起点坐标 是第一条线的终点坐标Picture1.Line -(3000, 2000)Picture1.Line -(1500, 2000) Picture1.Line -(1500, 500)请指教谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 先用pset画第一个点,再用line画线 我还不怎么会用API 能否解释详细一点吗 具体一个怎么使用呢 谢谢 简单例子 Picture1.PSet (0, y(0)), vbBlue For i = 1 To 3 Picture1.Line -(i, y(i)), vbBlue Next 能写个用到LineToMoveTo的列子吗sorry 我真的不怎么会API Line 方法示例这个示例用 Line 方法在窗体上画了几个同心矩形。要运行这个示例,将此代码放入窗体的 General 部分。按 F5 并单击窗体。Sub Form_Click () Dim CX, CY, F, F1, F2, I ' 声明变量。 ScaleMode = 3 ' 设置 ScaleMode 为像素。 CX = ScaleWidth / 2 ' 水平中点。 CY = ScaleHeight / 2 ' 垂直中点。 DrawWidth = 8 ' 设置 DrawWidth。 For I = 50 To 0 Step -2 F = I / 50 ' 执行中间步骤。 F1 = 1 - F: F2 = 1 + F ' 计算。 Forecolor = QBColor(I Mod 15) ' 设置前景颜色。 Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF Next I DoEvents ' 做其它处理。 If CY > CX Then ' 设置 DrawWidth。 DrawWidth = ScaleWidth / 25 Else DrawWidth = ScaleHeight / 25 End If For I = 0 To 50 Step 2 ' Set up loop. F = I / 50 ' 执行中间。 F1 = 1 - F: F2 = 1 + F ' 计算。 Line (CX * F1, CY)-(CX, CY * F1) ' 画左上角。 Line -(CX * F2, CY) ' 画右上角。 Line -(CX, CY * F2) ' 画右下角。 Line -(CX * F1, CY) ' 画左下角。 Forecolor = QBColor(I Mod 15) ' 每次改变颜色。 Next I DoEvents ' 进行其它处理。End Sub [求助]摄像头取数据后处理的问题! 为什么自己发出去的帖子 不能编辑修改呢? 把RichTextBox中的文本保存到access中 请问VB中定义变量的时候会加一个$的符号,这是什么作用,不加和加的区别是什么啊? VB 中用datagrid 无法显示access数据库内容,为什么? 数据显示在flexgrid中,怎么实现!!! 一个非夷所思的问题!!!? MSHFlexgrid 的问题 请问怎么缩小VB窗体上的网点的间距啊?? 如何使用pagecount 散尽所有分 截取字符串
Picture1.PSet (0, y(0)), vbBlue
For i = 1 To 3
Picture1.Line -(i, y(i)), vbBlue
Next
MoveTo的列子吗sorry 我真的不怎么会API
这个示例用 Line 方法在窗体上画了几个同心矩形。要运行这个示例,将此代码放入窗体的 General 部分。按 F5 并单击窗体。Sub Form_Click ()
Dim CX, CY, F, F1, F2, I ' 声明变量。
ScaleMode = 3 ' 设置 ScaleMode 为像素。
CX = ScaleWidth / 2 ' 水平中点。
CY = ScaleHeight / 2 ' 垂直中点。
DrawWidth = 8 ' 设置 DrawWidth。
For I = 50 To 0 Step -2
F = I / 50 ' 执行中间步骤。
F1 = 1 - F: F2 = 1 + F ' 计算。
Forecolor = QBColor(I Mod 15) ' 设置前景颜色。
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
DoEvents ' 做其它处理。
If CY > CX Then ' 设置 DrawWidth。
DrawWidth = ScaleWidth / 25
Else
DrawWidth = ScaleHeight / 25
End If
For I = 0 To 50 Step 2 ' Set up loop.
F = I / 50 ' 执行中间。
F1 = 1 - F: F2 = 1 + F ' 计算。
Line (CX * F1, CY)-(CX, CY * F1) ' 画左上角。
Line -(CX * F2, CY) ' 画右上角。
Line -(CX, CY * F2) ' 画右下角。
Line -(CX * F1, CY) ' 画左下角。
Forecolor = QBColor(I Mod 15) ' 每次改变颜色。
Next I
DoEvents ' 进行其它处理。
End Sub