tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 解決しました。
投稿日: 2008/03/13(Thu) 14:25
投稿者tea
花ちゃんさん、注意していただいてありがとうございます。
私の熟慮が足りませんでした。
申し訳ありません。

以下のコードで解決しました。
FrmMain(フォームモジュール)
Private Sub CmbDeffenceStyle_Click(index As Integer)
Dim i As Integer
Dim PlayerUniformNumber As Long
PlayerUniformNumber = -1
Dim TopicParam2 As Variant
TopicParam2 = "ディフェンスを開始"

On Error GoTo ErrHandle
        
        If Game.Team(index).DeffenceStyleChoice(1) = 0 Then
            Exit Sub
            
        ElseIf Game.Team(index).DeffenceStyleChoice(1) = -1 Then
            If index = 0 Then
                 If CmbDeffenceStyle(0).ListIndex > 1 Then
                    
                    Call Game.Team(index). _
            DeffenceStyleAddTopic(PlayerUniformNumber, _
                        bbDeffenceStyleTopic, CmbDeffenceStyle(0).Text, _
            TopicParam2)
                End If
            ElseIf index = 1 Then
                If CmbDeffenceStyle(1).ListIndex > 1 Then
                    
                    Call Game.Team(index). _
            DeffenceStyleAddTopic(PlayerUniformNumber, _
                        bbDeffenceStyleTopic, CmbDeffenceStyle(1).Text, _
            TopicParam2)
                End If
            End If
        End If

Exit Sub
ErrHandle:
    CommanErrMsg
    Exit Sub
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

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