項目の実装メモ②
前回の続き

実装は完了。
メソッドを新規にひとつ追加。

新規追加
Private Function radioBukiJadge(flg As Boolean) As Integer
    Dim listNum As Integer
    If flg Then
        listNum = Item_cbx.ListIndex
    Else
        listNum = Item_cbx.ListIndex + ITEMBUKI_INT
    End If
    radioBukiJadge = listNum
End Function

しかしちょっと悩んだのが引数のbool型を渡すときの処理。
武器にチェックがついているときは武器=True
武器にチェックがついていないときは武器=False
これで判別をしているけど防具のチェックはしていない。
ラジオボタンのつくりとして、武器or防具のどちらか一方にチェックがついているのが当然だと思っているので
両方チェックする必要はないけど厳密にはチェックしたほうがいいのかもしれない。

あとは内部のメソッドのつくりが杜撰。
メソッドは本来ひとつの処理を実装するものだと認識しているけれどしていない場所がある。
これは修正したほうがソース管理をする上で楽になるのでそのうち修正予定。

NAME:

MAIL:

URL:

COLOR:
Black LimeGreen SeaGreen Teal FireBrick Tomato IndianRed BurlyWood SlateGray DarkSlateBlue LightPink DeepPink DarkOrange Gold DimGray Silver
SUBJECT:

COMMENT:

PASS:

トラックバックURL