投稿日 | : 2007/01/28(Sun) 21:44 |
投稿者 | : FR |
Eメール | : |
URL | : |
タイトル | : 型が一致しないというエラーで困っています。 |
実行するとダミーデータを表示させるようにしていますが、ダミーデータを表示
する段階で「型が一致しない」というエラーで困っています。型はLong型でいい
はずなんですが、どう解決したらよいかわかりません・・・。
"PG"、などの"",の部分が問題で最初の1行目の"PG",を「DummyPlayerPosition(0, 1)」
に変えてみても駄目なんです。
どうか教えてください。よろしくお願いします。
'標準モジュール内
Private Sub Main()
setDummyData
'ダミーデータの表示。
Public Sub setDummyData()
setDummyData_Player .Player(1), 4, "PG", DummyPlayerName(0, 1), True
setDummyData_Player .Player(2), 5, "SG", DummyPlayerName(0, 2), False
setDummyData_Player .Player(3), 6, "GF", DummyPlayerName(0, 3), True
setDummyData_Player .Player(4), 7, "SF", DummyPlayerName(0, 4), True
setDummyData_Player .Player(5), 8, "PF", DummyPlayerName(0, 5), False
setDummyData_Player .Player(6), 9, "FC", DummyPlayerName(0, 6), True, True
setDummyData_Player .Player(7), 10, "C", DummyPlayerName(0, 7), False
'ダミーデータの選手のコード'
Private Sub setDummyData_Player(ByVal Player As Player, _
ByVal UniformNumber As Long, _
ByVal Position As Long, _
ByVal Name As String, _
ByVal IsStartingMember As Boolean, _
Optional ByVal IsCaptain As Boolean = False)
With Player
.UniformNumber = UniformNumber
.Position = Position
.Name = Name
.IsStartingMember = IsStartingMember
.IsCaptain = IsCaptain
End With
End Sub
'ダミーデータのDummyPlayerPosition'
Public Function DummyPlayerPosition(ByVal TeamIndex As Long, ByVal PlayerIndex As Long)
'Aの場合'
If TeamIndex = 0 Then
DummyPlayerPosition = Choose(PlayerIndex, "PG", "SG", "GF", "SF", "PF", "CF", "C", "PG", "SG", "GF", "SF", "PF", "CF", "C", "PG", "SG", "GF", "SF")
'Bの場合'
Else
DummyPlayerPosition = Choose(PlayerIndex, "PG", "SG", "GF", "SF", "PF", "CF", "C", "PG", "SG", "GF", "SF", "PF", "CF", "C", "PG", "SG", "GF", "SF")
End If
End Function