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

タイトル ： コンボボックスのリストから1つを選択した場合の表示
投稿日： 2008/03/11(Tue) 09:52
投稿者： tea
またお世話になります。
コンボボックスに以下のリストインデックスを作成して、その中から1つを
選択してDeffenceStyleAddTopicのbbDeffenceStyleTopicに持たせたいので
す。
bbDeffenceStyleTopic As bbTopicTypeが問題点なのはわかるんですが、
現状では標準モジュール内に17として宣言しているので、bbDeffenceStyleTopic
は17となります。

どうか教えてください。
よろしくお願いします。


Public Enum bbTopicType
    bb2PShotTTopic = 1
    bb2PShotTopic = 2
    bb3PShotTTopic = 3
    bb3PShotTopic = 4
    bbFreeThrowTTopic = 5
    bbFreeThrowTopic = 6
    bbOffReboundTopic = 7
    bbDefReboundTopic = 8
    bbAssistTopic = 9
    bbSteelTopic = 10
    bbTurnOvertopic = 11
    bbBlockshotTopic = 12
    bbFoulTopic = 13
    bbPlayInTopic = 14
    bbPlayOutTopic = 15
    bbTimeOutTopic = 16
    'ディフェンススタイルの選択
    bbDeffenceStyleTopic = 17
End Enum

FrmMainフォーム
Form_load
For i = 0 To 1
        With CmbDeffenceStyle(i)
            .Clear
            .AddItem "abc", 0
            .AddItem "def", 1
            .AddItem "ghi", 2
            .AddItem "jkl", 3
            .AddItem "mno", 4
            .AddItem "pqr", 5
            .ListIndex = 0
        End With
    Next

Teamクラス
Public Function DeffenceStyleAddTopic(ByVal PlayerUniformNumber As Long, _
                                ByVal bbDeffenceStyleTopic As bbTopicType, _
                                ByVal TopicParam1 As Variant, _
                                ByVal TopicParam2 As Variant)


    '---ココが問題点でディフェンスの種類を選択させる---
    DeffenceStyleAddTopic = bbDeffenceStyleTopic
        
    With mp
        '追加するトピックの各項目'
        .Parent.Journal.AddTopic .Parent.Quarter, .Parent.TimeOnQuarter, _
        .TeamIndex, .TeamChar, PlayerUniformNumber, _
                    DeffenceStyleAddTopic, TopicParam1, TopicParam2
    End With
End Function
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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