タイトル : 自己解決しました。 投稿日 : 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 |