by かと » 2005年6月19日(日) 10:40
コード: 全て選択
'----------------------------------------
Sub test( c As BytePtr)
Select Case c
Case "a"
Case Else
End Select
End Sub
test("b")
'----------------------------------------
↑のコードを実行するとアクセス違反で落ちます
Case Elseを抜くと正常動作します
testの引数がBytePtr型以外の場合も正常動作します
AB4.01.02
98、2000、XPで確認しました
よろしくお願いします
[code]
'----------------------------------------
Sub test( c As BytePtr)
Select Case c
Case "a"
Case Else
End Select
End Sub
test("b")
'----------------------------------------
[/code]
↑のコードを実行するとアクセス違反で落ちます
Case Elseを抜くと正常動作します
testの引数がBytePtr型以外の場合も正常動作します
AB4.01.02
98、2000、XPで確認しました
よろしくお願いします