Windwos8でHSPを使用しているのですが、ウィンドウ関係のある操作をすると、
「Microsoft Visual C++ Runtime Library」
というタイトルで、下記のようなエラーメッセージが出てきます。
Runtime Error! Program : 〜
This application has requested …
問題が発生するのは下記のソースコードです。
動作についてですが、Nextボタンで数字が増え、Resetで数字が1になり、
Windowボタンでサブウィンドウが表示されるというものです。
サブウィンドウを表示したままNextもしくはResetを押すと、
メインとサブウィンドウ両方の数字が変化します。
ここで、サブウィンドウをonexit処理で非表示にしてからNextもしくはResetを押すと、
上記のようなエラーが出ます。
使用しているOSは、Windwos8 Pro(64bit)、HSPのバージョンは、3.32β2です。
(それに加え、番号NO.51416でおにたま(管理人)さんがご提示くださった、
「終了処理の対応を行なったhsp3.exe(通常ランタイム)」もダウンロードして上書きしています。)
HSPのインストールディレクトリは、"C:\hsp332\"です。
作成したプログラムは、"C:\Users\[UserName]\HSP\"というフォルダを作成して、そこに保存しています。
他の質問で、HSPがまだWindows8に対応していない部分もあるというような書き込みもありましたので、
解決は難しいかもしれませんが、もし同じような症状が出て、
解決に至った方がいらっしゃいましたら、ご助言いただけると幸いです。
以下、ソースコードです。
screen 0,256,128,2 : screen 1,256,128,2 *Start point = 0 *NextP point += 1 : gsel 0,2 *Draw gsel 0,0 : redraw 0 : cls 0 : clrobj : mes point : redraw 1 pos 20,20 : button goto "Next", *NextP pos 20,40 : button goto "Reset", *Start pos 20,60 : button gosub "Window", *Window_Call *Window_Back gosub *Window_Draw onexit :gosub *exit stop *Window_Call gsel 1,2 : goto *Window_Back *Window_Draw gsel 1,0 : redraw 0 : cls 0 : mes point : redraw 1 onexit :gosub *exit return *exit if wparam=0 : end : else : gsel wparam,-1 : stop return