|
|
|
2012/5/10(Thu) 15:56:33|NO.46570
buffer 2,1024,768
boxf
;XPの場合
;celload "C:\\WINDOWS\\Web\\Wallpaper\\Windows XP.jpg",2
;Vistaの場合
;celload "C:\\Windows\\Web\\Wallpaper\\img24.jpg",2
#module
#deffunc Window int id,int wx,int wy,str te
randomize
bgscr id,wx,wy,0,rnd(300),rnd(300)
title ""+te
objsize 45,25
pos wx-50,2:button "×",*win_owari
onclick gosub *win_click
mx=5:my=30:px=3:py=3
color 255,255,255:boxf
pos -ginfo(4),-ginfo(5):gmode 3,,,200:gcopy 2,0,0,1000,800
boxf 5,30,wx-5,wy-5
color ginfo_r,ginfo_g,ginfo_b:pos 5,5:mes ""+te+" ID:"+id
stop
*win_click
if (mousex>5)and(mousex<395)and(mousey>30)and(mousey<295){
return
} else {
if wparam=1 : sendmsg hwnd,$00A1,2,0
return
}
*win_owari
gsel id,-1
stop
#global
gsel 0
color 255,255,255
;ID1
Window 1,400,300,"ウィンドウ"
;ID3
Window 3,300,400,"ウィンドウ"
上記を実行すると、IDが１の方は出ますが、IDが３の方は表示されません。
どうしたらID３のウィンドウがでますか？
|
|
|
2012/5/10(Thu) 16:23:34|NO.46572
/*とりあえず動くだけの変更部分です� 銑�。*/
buffer 2,1024,768
boxf
;XPの場合
;celload "C:\\WINDOWS\\Web\\Wallpaper\\Windows XP.jpg",2
;Vistaの場合
;celload "C:\\Windows\\Web\\Wallpaper\\img24.jpg",2
#module
#deffunc Window int id,int wx,int wy,str te
randomize
bgscr id,wx,wy,0,rnd(300),rnd(300)
title ""+te
objsize 45,25
pos wx-50,2:button "×",*win_owari
onclick gosub *win_click
mx=5:my=30:px=3:py=3
color 255,255,255:boxf
pos -ginfo(4),-ginfo(5):gmode 3,,,200:gcopy 2,0,0,1000,800
boxf 5,30,wx-5,wy-5
color ginfo_r,ginfo_g,ginfo_b:pos 5,5:mes ""+te+" ID:"+id
return ;変更��(stop)
*win_click
if (mousex>5)and(mousex<395)and(mousey>30)and(mousey<295){
return
} else {
gsel ginfo_act ;追加��
if wparam=1 : sendmsg hwnd,$00A1,2,0
return
}
*win_owari
gsel ginfo_act,-1 ;変更��
stop
#global
gsel 0
color 255,255,255
;ID1
Window 1,400,300,"ウィンドウ"
;ID3
Window 3,300,400,"ウィンドウ"
|
|
|
2012/5/10(Thu) 16:25:23|NO.46573
>Screen系の命令でID1は基本的に使用禁止
過去ログに
>ウインドゥID1が使用できないのは、HSP2.6まで
って書いてあります。
|
|
|
2012/5/10(Thu) 16:31:04|NO.46574
>fortunehill様
ありがとうございます。
returnにしないとそこで処理が止まってしまいますね。。
いわれるまで気づきませんでした。。
|
|
|
2012/5/10(Thu) 21:44:30|NO.46575
>GrapeColor(DION)さん
ID1は使用禁止でもなんでもない
と言うかいつも思うんだけどちゃんと自分で調べてからレスしてる？
|
|
|
2012/5/10(Thu) 23:36:20|NO.46584
なんか...今回のスレとべつの回答が行われている...
|
|
|
2012/5/11(Fri) 00:35:49|NO.46590
大富豪Aさんには大変失礼なことをしてしまいました。
申し訳ありません。
>>てれてれさん
私も何も調べずに言ったわけでなく、HSP3.1のプログラミング入門にそう書いてあったのでそう思ってました。
何の理由も無く言ったわけではないということをどうか理解していただけたらと思います。
|
|
Window
