投稿日 | : 2004/09/01(Wed) 20:35 |
投稿者 | : 中年プログラマー |
Eメール | : |
URL | : |
タイトル | : テキストボックスが表示されない |
下記のプログラムで、配列コントロールtext1(posi)とが表示されません。
ステップで実行すると 計測中 → 測定値 → 変化した測定値 と
ちゃんと変わってくれるのですが、Runすると表示せずにループを抜けた
後で最後の測定値を表示します。
Text1(posi).Text = "******" の前後にウェイトを咬ませてみたりしまし
たが結果は同じでした。
どなたか原因がわかる方、予測のつく方はご教示願います。
Do
If (Timer - starttime) < wait_time Then 'wait中
If Text1(posi).Text = "" Then
Text1(posi).Text = "計測中"
End If
Else
If Text1(posi).Text = "計測中" Then
Text1(posi).Text = CurVal
End If
If Val(Text1(posi).Text) > CurVal Then
Text1(posi).Text = CurVal
End If
End If
Loop While (GetSW = ON)