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


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
0127
MitukiButton命令で buttonの文字のフォントは変えられますか?4解決


Mituki

リンク

2015/1/27(Tue) 17:26:46|NO.67117

これを作りたいのですが


title "押押PonPonPon! Ver 1.1"
/* 変えた場合はVerをあげてください。 例 Ver 1.1 から Ver 1.2 title "押押PonPonPon! Ver 1.1" → title "押押PonPonPon! Ver 1.2" これを消さないでください。 */ screen 0,900,900 font "メイリオ",50 mes "押す" pos 50,50 mes "1" pos 80,60 objsize 50,50 button goto "1" , *o1 pos 50,110 mes "2" pos 80,120 button goto "2" , *o2 pos 50,170 mes "3" pos 80,180 button goto "3" , *o3 pos 50,230 mes "4" pos 80,240 button goto "4" , *o4 pos 100,390 objsize 100,50 button goto "Program End" , *pe stop *o1 dialog "[1]が押されました" stop *o2 dialog "[2]が押されました" stop *o3 dialog "[3]が押されました" stop *o4 dialog "[4]が押されました" stop *pe end stop


タイトルと同じで Button命令で buttonの文字のフォントは変えられますか?
お願いします。
もしなかったら

この機能を3.5にUpしてください。 おにたま&読んでいるみんなへ



この記事に返信する


UEA

リンク

2015/1/27(Tue) 17:37:06|NO.67119

「font "メイリオ",50」の上に「objmode 2」と1行追加してみてください。
objmode命令の詳細についてはヘルプを見ればわかります。



Mituki

リンク

2015/1/27(Tue) 18:08:55|NO.67122

UEAさん,ありがとうございました!
解決しました!
本当にありがとうございました!

==解決==



Mituki

リンク

2015/1/27(Tue) 18:10:36|NO.67123

結局作ってみましたw Ver1.2

*osiosiponpon title "押押PonPonPon! Ver 1.2" /* 変えた場合はVerをあげてください。 例 Ver 1.1 から Ver 1.2 title "押押PonPonPon! Ver 1.2" → title "押押PonPonPon! Ver 1.3" これを消さないでください。 */ /* Ver 1.1を使ってください。*/ screen 0,900,900 font "メイリオ",50 mes "押す" pos 50,50 mes "1" pos 80,50 objmode 2 font "",50 objsize 200,50 button goto "sys1tem" , *o1 pos 50,110 mes "2" pos 80,120 button goto "sys2tem" , *o2 pos 50,170 mes "3" pos 80,180 button goto "sys3tem" , *o3 pos 50,230 mes "4" pos 80,240 button goto "sys4tem" , *o4 pos 100,390 objsize 280,50 button goto "Program End" , *pe button "Net につなぐ" , *netz ; ; デジタル時計サンプル その2 ; #include "hsp3util.as" ; gettimestr,getdatestrを使うため screen 1,320,80 ; 画面サイズ指定 font msgothic,30,1 ; 文字サイズを指定 t1="":t2="" *tmprt gettimestr t1 ; 時刻を取得 getdatestr t2 ; 日付を取得 redraw 0 color 255,255,255:boxf ; 白い色で背景を塗りつぶす color 0,0,0 ; 文字の色 pos 0,0:mes t1 ; 時刻を表示 pos 0,40:mes t2 ; 日付を表示 redraw 1 wait 10; 1秒ウエ goto *tmprt ; 無限ループ stop *o1 screen 0,900,900 title " 1 プッシュ " cls mes "[1]が押されました" wait 100 goto *osiosiponpon stop *o2 screen 0,900,900 title " 2 プッシュ " cls mes "[2]が押されました" wait 100 goto *osiosiponpon stop *o3 screen 0,900,900 title " 3 プッシュ " cls mes "[3]が押されました" wait 100 goto *osiosiponpon stop *o4 screen 0,900,900 title " 4 プッシュ " cls mes "[4]が押されました" wait 100 goto *osiosiponpon stop *pe end stop *netz cls screen 2,600,500 mes "Internet Network" mes "Networkに接続しています・・・" mes "Nets,接続中" wait 100 cls mes "接続のアクセス確認・・・" wait 10 mes "URLを確認・・・" wait 10 mes "接続 =IE6+= ,URL:http://yahoo.co.jp/ ." wait 20 goto *net stop *net ; ; IEコンポーネントを使ったブラウザ ; screen 2,1500,1000 #define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}" #define DISPID_NAVIGATECOMPLETE2 252 cls 1 sdim url,512 url="http://yahoo.co.jp/" objsize 600,24 pos 0,2:mes "URL先:" pos 0,26:mes "Internet Explorer 6+ 2015" pos 40,0:input url objsize 120,24 pos 520,24:button "移動",*wow pos 400,24:button "進む",*go_f pos 280,24:button "戻る",*go_b pos 700,0 :button "終了",*ba_ck pos 700,24:button "HSPTVに移動",*hi pos 0,48 axobj ie, "Shell.Explorer.2",1500,1000-48 num=stat comevent ie_event, ie, "{34A715A0-6587-11D0-924A-0020AFC7AC4D}",*event ; DIID_DWebBrowserEvents2 ie->"Navigate" url *main stop *event ; COMイベント処理 dispid = comevdisp(ie_event) if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2 return *OnNavigateComplete2 name = ie("LocationURL") objprm 0,name pDoc = ie("Document") name = pDoc("Title") title name delcom pDoc return *wow ie->"Navigate" url goto *main *go_f ie->"GoForward" goto *main *go_b ie->"GoBack" goto *main stop *ba_ck end stop *hi cls 1 sdim url,512 url="http://hsp.tv" objsize 600,24 pos 0,2:mes "URL先:" pos 0,26:mes "Internet Explorer 6+ 2015" pos 40,0:input url objsize 120,24 pos 520,24:button "移動",*wow pos 400,24:button "進む",*go_f pos 280,24:button "戻る",*go_b pos 700,0 :button "終了",*ba_ck pos 700,24:button "HSPTVに移動",*hi pos 0,48 pos 0,48 axobj ie, "Shell.Explorer.2",1500,1000-48 num=stat comevent ie_event, ie, "{34A715A0-6587-11D0-924A-0020AFC7AC4D}",*event ; DIID_DWebBrowserEvents2 ie->"Navigate" url stop
こういうの作ったwwwwwwwww



Mituki

リンク

2015/1/27(Tue) 18:13:14|NO.67124

これ
http://jh7ubc.web.fc2.com/hsp/hsp.html
でいろんなものを見ていいです。
僕のサイトではないけど



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