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的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
数据库里有一个字段的内容是二进制,怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的,也进来蹭分……
佛山的行吗,广州的行吗?
友情支持
回复内容太短了!
帮顶 ......
我想用VB做一个OCX(纯菜鸟,临时需要用VB做点东西,特来请教),A用户(IP:192.168.0.1)与B用户(IP:192.168.0.2)进行点对点的发送接收消息
要求采用OCX方式,比如A用户知道B用户IP,我直接传参(B的IP)至OCX ......