■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#15872-0せつらさん いつもありがとうございます。あみ2001-04-28(土) 03:02
     #15880-0RE#15872:せつらさん いつもありがとうございます。せつら2001-04-28(土) 16:08
     #15882-0RE#15880:せつらさん いつもありがとうございます。あみ2001-04-29(日) 02:55
#15872-0
せつらさん いつもありがとうございます。
いつもお世話になります。
再度インストールしたらヘルプが使えるようになりました。

最初私は、テキストボックスに入力時に評価なので、Changeイベント?に書いてましたが、おしえていただいた
KeyPressを調べたところ、こういう時につかうんだっということはなんとなくですが分りました。
ですが...まだ使いこなせそうにありません。(多分、初心者の本に慣れすぎて応用が利かないのかも)

以前、おしえていただいた下記の文がようやく理解できたようなきがします。
For i = 1 To Len(cw)
        If Mid(cw, i, 1) <> Mid(Text2.Text, i, 1) Then
            Text1.Text = Mid(cw, i)
            Exit Sub
        End If
    Next i

1つ分らないことがあるのですが、上記の文をChangeイベントなどに書いた場合、
3行目のText1.Text=Mid(cw,i)は、先頭から順に比較して最後の文字になった時に一番最後の文字を
Text1に表示するということになり、次の問題に進めません。

For〜Nextの文の下に下記のように書いて次の問題に進ようとしました。
If txtMondai = txtKotae Then
            Data1.Recordset.MoveNext

最初にせつらさんにおしえていただいたように、問題の表示はラベルにします。
また、KeyPressも理解できるように努力します。
いつも超初心者の私の質問にもお答えいただきありがとうございます。
#15880-0
RE#15872:せつらさん いつもありがとうございます。
サービスです。 前のをもう少し発展させてみます。 あ、タイトルは、最初のを継続してもらった方が、
後から同じ内容を調べる方の為になるので、次回からは気を付けてくださいね。

まず、正解だったら MoveNext というのは、あまりお薦めできません。 データベースに限らず、誰でも
読み書きできる共有資源は、さっさと使って、とっとと開放すべきですから。 今回はひとつのプログラ
ムですけど、他に例えばデータを追加する人がいた場合、ゲームオーバーになるまでデータの読み書きが
できなくなってしまいますよぉ。 予め、必要な分を読みこんでおくべきでしょうね。

フォームに、TextBox の他にラベルとボタン、ListBox をひとつ貼っておいてください。

Dim cMondai As String
Dim iNo As Integer

Private Sub Command1_Click()
    iNo = 0
    Call sDispMondai
End Sub

Private Sub Form_Load()
    With List1
        .AddItem "mondai1"
        .AddItem "mondai2"
        .AddItem "mondai3"
    End With
End Sub

Private Sub Text1_Change()
    Dim i As Integer

    '判定
    For i = 1 To Len(cMondai)
        If Mid(cMondai, i, 1) <> Mid(Text1.Text, i, 1) Then
            Label1.Caption = Mid(cMondai, i)
            Exit Sub
        End If
    Next i

    '正解時
    iNo = iNo + 1

    If List1.ListCount <= iNo Then
        Label1.Caption = "終了!"
    Else
        Call sDispMondai
    End If
End Sub

Sub sDispMondai()
    cMondai = List1.List(iNo)
    Label1.Caption = cMondai
    Text1.Text = ""
    Text1.SetFocus
End Sub

こんな感じですかねぇ。 データを読みこむ部分を工夫して、毎回 ListBox の内容がランダムになる
ように工夫してみてくださいね。(どちらかと言うと、読みこんだ後にまぜる…)
#15882-0
RE#15880:せつらさん いつもありがとうございます。
> タイトルは、最初のを継続してもらった方が、
> 後から同じ内容を調べる方の為になるので、次回からは気を付けてくださいね。

はい分りました。 
> まず、正解だったら MoveNext というのは、あまりお薦めできません。 データベースに限らず、誰でも
> 読み書きできる共有資源は、さっさと使って、とっとと開放すべきですから。 今回はひとつのプログラ
> ムですけど、他に例えばデータを追加する人がいた場合、ゲームオーバーになるまでデータの読み書きが
> できなくなってしまいますよぉ。 予め、必要な分を読みこんでおくべきでしょうね。

せつらさんに教えて頂いたものを必ず理解できるように頑張ります。
また見なくても一人で書けるようになるよう頑張ります。

> データを読みこむ部分を工夫して、毎回 ListBox の内容がランダムになる
> ように工夫してみてくださいね。(どちらかと言うと、読みこんだ後にまぜる…)

目標としてまず、教えていただいたものを理解し、一人で書けるようになることを第1の目標とし、
アドバイスを頂いたListBoxの内容をランダムに表示することが出来るようになって、
せつらさんにもご報告ができるよう張ります。
本当に何から何までご丁寧にありがとうございました。
またお世話になると思いますがよろしくお願いします。
このページと関連する記事:
#7406-0タイピング練習ソフト2000-04-16(日) 16:48
#402-4リストボックスにデータを表示させたい2003-08-18(月) 14:04
#1692-2駅スパートの文字入力のような前方検索2002-07-15(月) 01:47
#16080-0List1の英文とList2の日本語を連携?したいのですが。お願いします。2001-05-14(月) 01:21
#10058-0RE#10055:早速質問ですが2000-05-02(火) 03:01
#3552-0TextBoxのイベント共通化1999-08-20(金) 12:03
#2048-0画像のサイズを調整したいのですが1999-10-05(火) 09:45
#29560-0ファイルの読み込み・書き出しについて2002-06-24(月) 14:50
#28548-0リストボックス2000-08-24(木) 10:09
#574-1桁数の読み方を教えて下さい2002-08-30(金) 04:36
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)