|
■No85878 (てーと さん) に返信
> 簡略化していますが上記の処理を行うとiNum = GetNum()の時点で例外がスローされます。
その「簡略化」しているところ、すなわち質問に書いてない部分が問題を起こしているのではないですか?
コンソールアプリで以下のようにして期待通り iNum=29 と出力されます。
Option Strict On
Module Module1
Sub Main()
Dim iNum As Short
iNum = GetNum()
Console.WriteLine("iNum={0}", iNum)
End Sub
Private Function GetNum() As Short
GetNum = 29
Return GetNum
End Function
End Module
|