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

タイトル 自己解決しました。
投稿日: 2008/03/11(Tue) 13:15
投稿者tea
以下のコードで自己解決しました。

Public Sub DeffenceStyle()
Dim i As Integer
Dim PlayerUniformNumber As Long
PlayerUniformNumber = -1

Dim TopicParam1(2 To 6) As Variant
Dim TopicParam2 As Variant

TopicParam1(2) = "abc"
TopicParam1(3) = "def"
TopicParam1(4) = "ghi"
TopicParam1(5) = "jkl"
TopicParam1(6) = "mno"

TopicParam2 = "pqr"
    
        If mp.DeffenceStyleChoice(1) = 0 Then
            Exit Sub
            
        ElseIf mp.DeffenceStyleChoice(1) = -1 Then
            
            For i = 0 To 1
                If frmMain.CmbDeffenceStyle(i).ListIndex = 2 Then
                    Call DeffenceStyleAddTopic(PlayerUniformNumber, _
            bbDeffenceStyleTopic, TopicParam1(2), TopicParam2)
            
                ElseIf frmMain.CmbDeffenceStyle(i).ListIndex = 3 Then
                    Call DeffenceStyleAddTopic(PlayerUniformNumber, _
            bbDeffenceStyleTopic, TopicParam1(3), TopicParam2)
            
                ElseIf frmMain.CmbDeffenceStyle(i).ListIndex = 4 Then
                    Call DeffenceStyleAddTopic(PlayerUniformNumber, _
            bbDeffenceStyleTopic, TopicParam1(4), TopicParam2)
            
                ElseIf frmMain.CmbDeffenceStyle(i).ListIndex = 5 Then
                    Call DeffenceStyleAddTopic(PlayerUniformNumber, _
            bbDeffenceStyleTopic, TopicParam1(5), TopicParam2)
            
                ElseIf frmMain.CmbDeffenceStyle(i).ListIndex = 6 Then
                    Call DeffenceStyleAddTopic(PlayerUniformNumber, _
            bbDeffenceStyleTopic, TopicParam1(6), TopicParam2)
            End If
            Next
        End If
End Sub

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

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