投稿日 | : 2003/06/13(Fri) 16:25 |
投稿者 | : まさと |
Eメール | : |
URL | : |
タイトル | : Callでのタイマー呼出し |
こんにちは。
只今渡しはCommandボタンでタイマーイベントを呼び出そうとしているのですが、なかなくうまくいきません。
どちら様か下記にソースを書きますので、ヒント等をいただけないでしょうか?
Private Sub Command3_Click()
Call Timer1_Timer(1000)
End Sub
Private Sub Timer1_Timer(interval As Integer)
For i = 0 To 186
lRet = ActQCPUQUSB1.ReadDeviceBlock(plcAddress(i), 1, senBit(i))
If senBit(i) = 0 Then
sen(i).BackColor = &HFFFFFF
Else
sen(i).BackColor = &HFF&
End If
Next i
End Sub