VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： まったく解決していませんでした。

投稿日： 2008/03/13(Thu) 10:17

投稿者： tea

琴さんやるしぇさんに回答をいただきましたが、私の間違いでまったく解決してい
ませんでした。

実行するとFor i = 0 To 1の「0」のfrmMain.CmbDeffenceStyle(i).Textを選択し
た場合は正しく表示されるんですが、その後にFor i = 0 To 1の「1」の
frmMain.CmbDeffenceStyle(i).Textを選択すると「0」の時の
frmMain.CmbDeffenceStyle(i).Textが２度表示されてしまいます。

ブレークポイントを置いてF8で順に追ってみても、frmMain.CmbDeffenceStyle(i).Text
には何も表示されないのでわかりませんでした。

申し訳ありませんが、教えてください。
よろしくお願いします。

Public Sub DeffenceStyle()
Dim i As Integer
Dim PlayerUniformNumber As Long
PlayerUniformNumber = -1
Dim TopicParam2 As Variant
TopicParam2 = "ディフェンスを開始"

        If mp.DeffenceStyleChoice(1) = 0 Then
            '0なら抜ける
            Exit Sub

        ElseIf mp.DeffenceStyleChoice(1) = -1 Then
            'チーム
            For i = 0 To 1
                If frmMain.CmbDeffenceStyle(i).ListIndex > 1 Then
                    Call DeffenceStyleAddTopic(PlayerUniformNumber, _
                        bbDeffenceStyleTopic, _
            frmMain.CmbDeffenceStyle(i).Text,  TopicParam2)
                End If
            Next
        End If
End Sub

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

まったく解決していませんでした。

tea

No.11760

Re: まったく解決していませんでした。 - 花ちゃん 08/03/13-10:21 No.11761
- 見直します。 - tea 08/03/13-11:24 No.11766
  - 解決しました。 - tea 08/03/13-14:25 No.11768

タイトル	：まったく解決していませんでした。
投稿日	： 2008/03/13(Thu) 10:17
投稿者	： tea

古いスレッドにレスはつけられません。