易截截图软件、单文件、免安装、纯绿色、仅160KB

vb中用picture做曲线碰到的问题? - VB / 基础类

我想做的程序是这样的:我将接收的数据存在文本里,然后想观察曲线的时候,从文本里读出来,然后绘制成曲线;我用的是picture控件,因为数据比较多(3万多条,甚至更多),现在碰到的问题是:
1、画线时两个点之间的横坐标间隔是20(再小的话曲线就挤在一起),我的数据有3万多,计算出来的需要的横坐标是:733640(相当大,但有可能比这还要大),但我发现picture的最大宽度只能到:245745,所以后面的曲线显示的非常拥挤,已看不出效果。
2、我用的是两个picture控件,原因是为了加个滚动条,但是HScroll控件的max最大只能设到32767,但我画出图后,picture2的宽度有733640,用HScroll控件托不到最右边。
望各位大侠指教,看怎么解决,或者有什么其他思路。我要看曲线的连续性,所以最好是在一个界面,用滚到条托动

2.可以用一个比例值cint(733640/32767),每拖动scroll的时候,其都在其value上*这个比例

回复问2:
VB code:
Private Sub Form_Load()
Picture2.Width = 245745
HScroll1.SmallChange = 100
End Sub

Private Sub HScroll1_Change()
Picture2.Left = -10# * HScroll1
End Sub



谢谢楼上两位的回答,问题2已解决,现在问题1还是没有头绪,希望大家能给支个招,解决后就给分,望楼上的两位耐心等待

按段显示,拖动scroll,比如值为0-10时显示部分,值为11-20显示第二部分……,注意:Picture没变,只是它在不停刷新。

只画要显示的部分,不画不显示的部分。
《计算机图形学》窗口、裁剪


引用
只画要显示的部分,不画不显示的部


相关问答:

vb - VB / 基础类

我想把word另存为xml之后,用vb读取这个xml的内容,请问如何实现?
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb读取用word转换成的xml里的数据 - VB / 基础类

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' 读入所有字符到变量中 ......

vb读取xml - VB / 基础类

现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

求助:C代码change toVB代码 - VB / 基础类

挺繁琐,之前发的帖子,分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......

vb中unicode码,如何转换成文本 - VB / 基础类

用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号