用vb中Pset函数画点

答案:2 悬赏:50 手机版

解决时间 2021-01-28 21:38

提问者网友：不爱我么
2021-01-28 14:42

我用vb的Pset（）函数画点，但是都是一个一个的点，怎么才能够画出的图是像素图那样的呢？请各位大侠指教啊！谢谢！

最佳答案

五星知识达人网友：西风乍起
2021-01-28 15:09

Private Sub Command1_Click() '确定按钮单击事件
Dim x, y As Single '定义x,y两个变量
Picture1.Scale (-10, 25)-(10, -25) '定义坐标系
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) '画横坐标轴，颜色为蓝色
Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255) '画纵坐标轴，颜色为蓝色
'用循环语句描点画函数图像
For x = -10 To 10 Step 0.0001 'x值从-10变化到10，每次增量为0.0001
y = x ^ 2 '根据表达式y=x2来计算y值
Picture1.PSet (x, y), RGB(255, 0, 0) '根据x,y的值用红色描点
Next x '取下一个增量后的x值
End Sub '结束程序

这个编码应该可以吧

全部回答

1楼网友：笑迎怀羞
2021-01-28 16:16

object.pset [step] (x, y), [color]pset 方法的语法有如下对象限定符和部分：部分描述object可选的。对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。step可选的。关键字，指定相对于由 currentx 和 currenty 属性提供的当前图形位置的坐标。(x, y)必需的。 single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。color可选的。long （长整型数），为该点指定的 rgb 颜色。如果它被省略，则使用当前的 forecolor 属性值。可用 rgb 函数或 qbcolor 函数指定颜色。可以用来清除制定位置点或画出一个点。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息