ＳＲＣ質問掲示板Mk2
(現在 過去ログ102 を表示中)

HOME HELP 新規作成 新着記事 トピック表示 検索 掲示板新着情報RSS配信新着情報 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■18582 / inTopicNo.1) 　同時文字表示について
  ▼■
□投稿者/ 風間 -(2006/06/07(Wed) 13:58:55) [ID:RWzg88IT]
    今回、SRC.HLPに記載されているPaintStringコマンドの例２を使って、↓の風にシナリオに使っています。

    文章:
    Font 12pt Ｐ明朝 Regular 通常
    PaintString 10 Args(1) "";
    For i = 1 To Len(Args(2))
    PaintString Mid(Args(2),i,1);
    Refresh
    Wait 0.50
    Next
    Wait 10
    Return

    ですが、これだと「同時に文字」を表示できません。
    つまり、「あいうえお」と「かきくけこ」を同時に一文字ずつ表示するには、
    どうすればいいのでしょうか？色々と弄ってみましたが全然上手く行きません。
    ご指導宜しくお願いします。
    本体のバージョンは2_2_9です。
引用返信/返信 削除キー/
■18584 / inTopicNo.2) 　Re[1]: 同時文字表示について
□投稿者/ ハク -(2006/06/07(Wed) 22:05:28) [ID:pgxyArqb]
    2006/06/07(Wed) 22:06:46 編集(投稿者)

    ハクというものです。

    X, Yの指定を省略する使い方は「前回書き込んだところの続きに書く」ものなので
    今回のように二箇所に交互に文字を書く場合はやめておいたほうがいいでしょう。

    とりあえずYだけ指定できればよいのであれば

    文章表示:
    Local i
    Font 12pt Ｐ明朝 Regular 通常
    For i = 1 To Max(Len(Args(2)) , Len(Args(4)))
    　PaintString 10 Args(1) Left(Args(2),i);
    　PaintString 10 Args(3) Left(Args(4),i);
    　Refresh
    　Wait 0.50
    Next
    Wait 10
    Return

    とすればよいかと思います。
    呼び出すときは以下のようにして下さい。

    Call 文章表示 50 何だってー 100 何だって

    まだ荒削りなので改良の余地はあるかと思いますが
    作成の参考になれば幸いです。それでは。
引用返信/返信 削除キー/
■18587 / inTopicNo.3) 　どうもありがとうございます
□投稿者/ 風間 -(2006/06/08(Thu) 15:05:54) [ID:RWzg88IT]
    ハクさん、どうもありがとうございます。
    これを参考にして、関数なども弄って頑張りたいと思います。
    ありがとうございます。
解決済み!
引用返信/返信 削除キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

Pass/

HOME HELP 新規作成 新着記事 トピック表示 検索 掲示板新着情報RSS配信新着情報 過去ログ

- Child Tree -
- Antispam Version -