> 用vb画图的疑问啊？我现在有一个数组，里面有很多数据，现在我要把这些数据画到picturebox上
用vb画图的疑问啊？我现在有一个数组，里面有很多数据，现在我要把这些数据画到picturebox上
wanggang1130 & &
发布时间： & &
浏览：16 & &
回复：2 & &
悬赏：0.0希赛币
用vb画图的疑问啊？我现在有一个数组，里面有很多数据，现在我要把这些数据画到picturebox上，请问该怎么画呢？谢谢！
picture1.pset
这个方法即可以了。
将对象上的点设置为指定颜色。
object.PSet [Step] (x, y), [color]
PSet 方法的语法有如下对象限定符和部分：
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。
(x, y) 必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。
color 可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
所画点的尺寸取决于 DrawWidth 属性值。当 DrawWidth 为 1，PSet 将一个像素的点设置为指定颜色。当 DrawWidth 大于 1，则点的中心位于指定坐标。
画点的方法取决于 DrawMode 和 DrawStyle 属性值。
执行 PSet 时，CurrentX 和 CurrentY 属性被设置为参数指定的点。
想用 PSet 方法清除单一像素，规定该像素的坐标，并用 BackColor 属性设置作为 color 参数。
这个方法不能用在 With匛nd With 语句块中。
wanggangqiang & &
& & （0）（0）以下代码是在数组被赋值后的画线代码,其中每个线条达叉或画三角等来区分:
Picture1.DrawStyle = 0
For j = 0 To zsl - 2
If Int(j / 40) - j / 40 = 0 Then
Picture1.DrawWidth = 1
' = dash
Picture1.Line (j * 10.8 + 470, quexian(6, j) * -150 + 7900)-(j * 10.8 + 530, quexian(6, j) * -150 + 7900), vbGreen
Picture1.Line (j * 10.8 + 500, quexian(6, j) * -150 + 7935)-(j * 10.8 + 500, quexian(6, j) * -150 + 7865), vbGreen
Picture1.Line (j * 10.8 + 470, quexian(7, j) * -150 + 7935)-(j * 10.8 + 470, quexian(7, j) * -150 + 7865), vbBlue
Picture1.Line (j * 10.8 + 470, quexian(7, j) * -150 + 7935)-(j * 10.8 + 530, quexian(7, j) * -150 + 7935), vbBlue
Picture1.Line (j * 10.8 + 530, quexian(7, j) * -150 + 7935)-(j * 10.8 + 530, quexian(7, j) * -150 + 7865), vbBlue
Picture1.Line (j * 10.8 + 470, quexian(7, j) * -150 + 7865)-(j * 10.8 + 530, quexian(7, j) * -150 + 7865), vbBlue
Picture1.DrawWidth = 2
' = dash
Picture1.Line (j * 10.8 + 475, quexian(4, j) * -150 + 7930)-(j * 10.8 + 525, quexian(4, j) * -150 + 7870), vbBlack
Picture1.Line (j * 10.8 + 475, quexian(4, j) * -150 + 7870)-(j * 10.8 + 525, quexian(4, j) * -150 + 7930), vbBlack
Picture1.DrawWidth = 1
' = dash
Picture1.Line (j * 10.8 + 500, quexian(3, j) * -150 + 7865)-(j * 10.8 + 469, quexian(3, j) * -150 + 7917), vbCyan
Picture1.Line (j * 10.8 + 500, quexian(3, j) * -150 + 7865)-(j * 10.8 + 531, quexian(3, j) * -150 + 7917), vbCyan
Picture1.Line (j * 10.8 + 469, quexian(3, j) * -150 + 7917)-(j * 10.8 + 531, quexian(3, j) * -150 + 7917), vbCyan
Picture1.DrawWidth = 1
' = dash
Picture1.Line (j * 10.8 + 490, quexian(2, j) * -150 + 7880)-((j + 1) * 10.8 + 510, quexian(2, j + 1) * -150 + 7920), vbRed, BF
Picture1.DrawWidth = 1
' = dash
'Picture1.Circle (j * 10.8 + 500, quexian(6, j) * -150 + 7900), 30, vbGreen
Picture1.Circle (j * 10.8 + 500, quexian(5, j) * -150 + 7900), 35, vbMagenta
'-((j + 1) * 10.8 + 500, quexian(6, j + 1) * -150 + 7900), vbGreen
Picture1.DrawWidth = 1
' = dash
Picture1.Line (j * 10.8 + 500, quexian(2, j) * -150 + 7900)-((j + 1) * 10.8 + 500, quexian(2, j + 1) * -150 + 7900), vbRed
Picture1.Line (j * 10.8 + 500, quexian(3, j) * -150 + 7900)-((j + 1) * 10.8 + 500, quexian(3, j + 1) * -150 + 7900), vbCyan
Picture1.Line (j * 10.8 + 500, quexian(4, j) * -150 + 7900)-((j + 1) * 10.8 + 500, quexian(4, j + 1) * -150 + 7900), vbBlack
Picture1.Line (j * 10.8 + 500, quexian(5, j) * -150 + 7900)-((j + 1) * 10.8 + 500, quexian(5, j + 1) * -150 + 7900), vbMagenta
Picture1.Line (j * 10.8 + 500, quexian(6, j) * -150 + 7900)-((j + 1) * 10.8 + 500, quexian(6, j + 1) * -150 + 7900), vbGreen
', BFwanggangking & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&君，已阅读到文档的结尾了呢~~
VB实现画图小工具画图,vb,绘图..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
VB实现画图小工具
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口VB2010-painting 利用VB画图，简单的代码可以清晰地展示 的基本原理 Windows Develop 238万源代码下载-
&文件名称: VB2010-painting
& & & & &&]
&&所属分类:
&&开发工具: Visual Basic
&&文件大小: 68 KB
&&上传时间:
&&下载次数: 0
&&提 供 者:
&详细说明：利用VB画图，简单的代码可以清晰地展示VB画图的基本原理-Using VB painting a simple picture， which is a good code to learning the painting function of VB
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&huatu&&.....\huatu&&.....\.....\Form1.Designer.vb&&.....\.....\Form1.resx&&.....\.....\Form1.vb&&.....\.....\My Project&&.....\.....\..........\Application.Designer.vb&&.....\.....\..........\Application.myapp&&.....\.....\..........\AssemblyInfo.vb&&.....\.....\..........\Resources.Designer.vb&&.....\.....\..........\Resources.resx&&.....\.....\..........\Settings.Designer.vb&&.....\.....\..........\Settings.settings&&.....\.....\bin&&.....\.....\...\Debug&&.....\.....\...\.....\WindowsApplication1.exe&&.....\.....\...\.....\WindowsApplication1.pdb&&.....\.....\...\.....\WindowsApplication1.vshost.exe&&.....\.....\...\.....\WindowsApplication1.vshost.exe.manifest&&.....\.....\...\.....\WindowsApplication1.xml&&.....\.....\...\Release&&.....\.....\huatu.vbproj&&.....\.....\huatu.vbproj.user&&.....\.....\obj&&.....\.....\...\x86&&.....\.....\...\...\Debug&&.....\.....\...\...\.....\DesignTimeResolveAssemblyReferences.cache&&.....\.....\...\...\.....\DesignTimeResolveAssemblyReferencesInput.cache&&.....\.....\...\...\.....\TempPE&&.....\.....\...\...\.....\......\My Project.Resources.Designer.vb.dll&&.....\.....\...\...\.....\WindowsApplication1.Form1.resources&&.....\.....\...\...\.....\WindowsApplication1.Resources.resources&&.....\.....\...\...\.....\WindowsApplication1.exe&&.....\.....\...\...\.....\WindowsApplication1.pdb&&.....\.....\...\...\.....\WindowsApplication1.vbproj.FileListAbsolute.txt&&.....\.....\...\...\.....\WindowsApplication1.vbproj.GenerateResource.Cache&&.....\.....\...\...\.....\WindowsApplication1.xml&&.....\.....\...\...\Release&&.....\huatu.sln&&.....\huatu.suo
&输入关键字，在本站238万海量源码库中尽情搜索：共有 4801 人关注过本帖
标题：如何调整WINDOWS画图程序的分辨率？
等　级：新手上路
结帖率：100%
&&已结贴√
&&问题点数：0&&回复次数：6&&&
如何调整WINDOWS画图程序的分辨率？
我是一名初学者，请问如何用VB6调整WINDOWS画图程序的分辨率？谢谢各位？
搜索更多相关主题的帖子:
等　级：贵宾
威　望：66
帖　子：1310
专家分：5312
&&得分:10&
WINDOWS画图程序的分辨率？
再清楚说明吧。
等　级：新手上路
就是打开WINDOWS画图程序后，点击图像/属性,调整其中的宽度和高度。
等　级：贵宾
威　望：66
帖　子：1310
专家分：5312
哦，就是扩大或缩小图片宽度和长度呀。
嗯，还是自己做吧。实在没能搞懂的才问。
还是没发开头？
等　级：版主
威　望：77
帖　子：3907
专家分：26473
&&得分:10&
sendkeys模拟操作
等　级：新手上路
我的需求是：点击一个按钮，打开WINDOWS中的画图程序，并且宽度和高度由我来定。
这个能实现吗？复杂吗？
等　级：版主
威　望：77
帖　子：3907
专家分：26473
以下是引用公里21在 20:26:25的发言：
我的需求是：点击一个按钮，打开WINDOWS中的画图程序，并且宽度和高度由我来定。
这个能实现吗？复杂吗？
不要说需求，说问题。
版权所有，并保留所有权利。
Powered by , Processed in 0.024213 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reservedvb画图_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
你可能喜欢}