数列の計算後
前に質問したのですが、
文字列を数列として扱う関数は分かりました。
その数字を計算し、変数に格納する所までは出来たのですが、
SetDlgItemText関数で、EditBox4にその変数を表示することが出来ません。
変数内には、きちんと数字が入ってます。
MessageBox関数を用いて変数内をテストで表示させようとすると、
アクセスエラーが出ます。
小数点も扱いたいので、Double型を指定しているのですが・・・
どう対処したら良いか分かりません。
すみませんが、ご教授願います・・・
↓問題のコードです
'EditBoxの内容を取得
Dim Buffer As BytePtr
Dim Length As Long
Length = GetWindowTextLength(GetDlgItem(hMainWnd,EditBox1))
Buffer = calloc(Length+1)
GetWindowText(GetDlgItem(hMainWnd,EditBox1),Buffer,Length+1)
SaishoKazu=Val(Buffer)
Length = GetWindowTextLength(GetDlgItem(hMainWnd,EditBox3))
Buffer = calloc(Length+1)
GetWindowText(GetDlgItem(hMainWnd,EditBox3),Buffer,Length+1)
AtoKazu=Val(Buffer)
free(Buffer)
'計算処理
If Kigo="+" Then
Ans=SaishoKazu+AtoKazu
End If
SetDlgItemText(hMainWnd,EditBox4,Ans)