易截截图软件、单文件、免安装、纯绿色、仅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 - VB / 基础类

vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......

vb生成EXE - VB / 基础类

form1中有text1-8， 和command1 
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题 ......

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

挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号