数列の計算後

質問

前に質問したのですが、
文字列を数列として扱う関数は分かりました。
その数字を計算し、変数に格納する所までは出来たのですが、
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)

回答No.1

redfox63 · ベストアンサー

AnsがDouble型なら Str$関数で文字列にしてから StrPtr関数で文字ポインタを取得して SetDlgItemTextに渡しましょう

Dim ss as String
Dim ssPtr As BytePtr

ss = Str$( Ans )
ssPtr = StrPtr( ss )

SetDlgItemText( hMainWnd, EditBox4, ssPtr )
といった具合でしょう
# 開発環境など 何を使っているのかを明記するようにしましょう
# たぶん ActiveBasicだろうと思い回答しています