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

VB text

timer1_timer()
col = 0
For i = 0 To 300  
If Y(i) > max1 Then  
  max1 = Y(i)
  col = col + 1
  timecount(col) = i
  End If
Text1.text = timecount(col)
end sub


timer2_timer()
col = 0
For i = 0 To 300  
If Y1(i) > max1 Then  
  max1 = Y1(i)
  col = col + 1
  timecount1(col) = i
  End If
Text2.text = timecount1(col)
end sub
请问怎么求Text1.text 和Text2.text 的值到Text3.text ,即Text3.text = Abs(time(col) - time1(col))
我试过放在timer1或者timer2下都不行。请大家帮帮忙,急急急,最好附上源码

1、lz写的太乱,文字描述部分和上面代码部分不一致;
2、text3结果的计算放到text1和text2控件的change事件中。

不好意思,我next忘记打上去了

{{


相关问答:

【急求】VB中使用WScript调用外部命令 - VB / 基础类

在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

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 / 基础类

数据库里有一个字段的内容是二进制,怎么才能把这个二进制读出来
使用字节流对象可以实现

例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

中山的VB程序员进来看一下 - VB / 非技术类

刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的,也进来蹭分……

佛山的行吗,广州的行吗?

友情支持
回复内容太短了! 

帮顶 ......

VB下OCX可否实现如下功能? - VB / 网络编程

我想用VB做一个OCX(纯菜鸟,临时需要用VB做点东西,特来请教),A用户(IP:192.168.0.1)与B用户(IP:192.168.0.2)进行点对点的发送接收消息
要求采用OCX方式,比如A用户知道B用户IP,我直接传参(B的IP)至OCX ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号