[リストへもどる]
一括表示

投稿時間:2004/07/26(Mon) 17:24
投稿者名:basic初心者
Eメール:
URL :
タイトル:
文字を1字1字を書き出すには
 こんにちは始めまして、タイトルのままですが、参考書に載っていなかったのでこの場で質問させて
ください!もちろん私もやってみましたけど、無駄な処理が多いのか?文字が何回か点滅して見づらく
なります。これよりも効率の良い文字の書き出し方があったら返答お願いします!

(*この文は私の作った文です、重要な所だけ書き出します)

   ms="もじれつの例"
---------------------
private sub timer1_timer()      'タイマーの時間は0,1秒毎です
   if mh=0 then
   label1.caption=left(ms,1)
   else mh=1 then
   label1.caption=left(ms,2)
              .
              .           '実際133までいきました
              .
end if
    mh=mh+1
end sub

投稿時間:2004/07/26(Mon) 17:48
投稿者名:nanashi
Eメール:
URL :
タイトル:
Re: 文字を1字1字を書き出すには
    Label1.Caption = Left$(ms, mh)

If文なんか使わなくても、この一行で済むと思うんだけど。

Labelを使ってたら多少のチラつきはしょうがないかと思います。
PictureBoxに描画すればチラつきは無くなりますよ。
まァ改行とかを自分で制御しなくてはなりませんが。

投稿時間:2004/07/26(Mon) 22:56
投稿者名:basic初心者
Eメール:
URL :
タイトル:
Re^2: 文字を1字1字を書き出すには
nanashiさん返信ありがとうございます。
さっそくやってみようかと思います。

投稿時間:2004/07/28(Wed) 15:01
投稿者名:basic初心者
Eメール:
URL :
タイトル:
解決!

> まァ改行とかを自分で制御しなくてはなりませんが。
 nanasiさんのおっしゃった制御ですが、たった今、mid(ms,16,mh)の形で解決しました。
いつも思う事なんですが、プログラムというものはは奇跡の産物ですね。
拝啓
nanasiさんに感謝です