HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0316
M,H別ウィンドウで4解決


M,H

リンク

2008/3/16(Sun) 10:12:00|NO.14303

テキストエディタもどきを作っています
いままでの記事を参考にして作成しているのですが
開くなどのものを別ウィンドウにすることにしました
しかし、いざ開こうとすると・・・
たぶんobjprmでボタンを書き換えてしまっているのだと思いますが
解決方法がわかりません^^;
どなたか教えてください

あと、メインウィンドウの初期位置を決める方法も教えてください!

お願いします
↓はスクリプトです


font "MSゴシック",20,1 color 0,0,255 mes "テスト" a = "" #uselib "user32" #func ShowScrollBar "ShowScrollBar" int, int, int #define SB_BOTH 3 pos 2,20 mesbox a, 630, 400, 5,1000 mesbox_hwnd = objinfo(stat, 2) ShowScrollBar objinfo (stat, 2), SB_BOTH, 3 screen 1,300,60,8,200,600 button "開く", *load pos 65,0 button "保存", *hozon pos 130,0 button "時刻", *label pos 195,0 button "終わる",*owari pos 0, 30 button gosub "切り取り", *cut pos 65, 30 button gosub "コピー", *copy pos 130, 30 button gosub "貼り付け", *paste pos 195, 30 button gosub "削除", *clear stop *cut sendmsg mesbox_hwnd, 0x0300 return *copy sendmsg mesbox_hwnd, 0x0301 return *paste sendmsg mesbox_hwnd, 0x0302 return *clear sendmsg mesbox_hwnd, 0x0303 return *load dialog "txt", 16, "テキスト" if stat = 0 : stop notesel a noteload refstr objprm 0, a stop *hozon dialog "txt", 17, "テキスト" if stat = 0 : stop notesel a notesave refstr stop *owari dialog "終了しますか?",3, "終了" if stat = 6 { end } else { } stop *label youbi="日","月","火","水","木","金","土" time =""+gettime(0)+"年" time+=""+gettime(1)+"月" time+=""+gettime(3)+"日" time+=""+youbi(gettime(2))+"曜日" time+="\n" time+=""+gettime(4)+"時" time+=""+gettime(5)+"分" time+=""+gettime(6)+"秒" time+="\n" a+=""+time objprm 0,a stop



この記事に返信する


f

リンク

2008/3/16(Sun) 10:27:56|NO.14305

objprmで0を指定するから、一番最初に作ったオブジェクトが指定されてるだけでね。

windowの初期位置?

>screen 1,300,60,8,200,600

コレができて、何故わからないのか?



f

リンク

2008/3/16(Sun) 10:34:11|NO.14306

・・・・ああ、そうか。
windowが二つできているんだな。

オブジェクトIDの連番のカウントは、windowごとに独立してるからな。

スクリーンID0番の0番目のオブジェクトを指定するには、
gsel辺りでスクリーンのIDを0にしてからでないと駄目だ。



M,H

リンク

2008/3/16(Sun) 11:13:30|NO.14307

すいません!fさん gselの使い方を詳しく教えてください!
初心者ですので・・・



M,H

リンク

2008/3/16(Sun) 11:17:29|NO.14308

本当にすいません、、、HELP見ていじくったらわかりました



ONION software Copyright 1997-2023(c) All rights reserved.