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没变,只是它在不停刷新。 只画要显示的部分,不画不显示的部分。 《计算机图形学》窗口、裁剪引用 只画要显示的部分,不画不显示的部
相关问答:
我想把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 ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
现在有个xml文件是<?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xm ......
挺繁琐,之前发的帖子,分值太低现在重发一个。欢迎各位大侠~~ #include "stdlib.h" #include "math.h" #include "stdio.h" float objfx(float x[]); void constraint(float x[] ......
用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本 例如:读取短信后(华为900C或TC35i),串口得到如下数据: +CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......