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


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
1123
テンクスショートカットキーの作り方9解決


テンクス

リンク

2013/11/23(Sat) 21:02:14|NO.58399

ショートカットキーってどうやったらつくれますか?
モジュールとかがあるなら教えてください。
ないならサンプルを誰か作って欲しいです。
よろしくお願いします!!



この記事に返信する


KA

リンク

2013/11/23(Sat) 21:11:00|NO.58400

>>ショートカットキーってどうやったらつくれますか?

「作る」のではなくて「定義する」だと思いますが、キー入力の処理はソフト
側の問題です、もう少し具体的に書いて下さい。



テンクス

リンク

2013/11/23(Sat) 22:02:01|NO.58405

ガジェットソフトを作るのですが、ctrtと1を同時押ししたら、設定されたファイルを読み込むみたいな感じにしたいです。



テンクス

リンク

2013/11/23(Sat) 22:03:46|NO.58406

Ctrlと1でした。



check

リンク

2013/11/23(Sat) 22:30:16|NO.58408

Ctrlキーと1キーの入力を検出して、どちらも押されていたらファイルを読み込む、
という流れでいけるはず。



頑張ってください

リンク

2013/11/23(Sat) 23:10:05|NO.58409

僕もまだまだ勉強中ですが、こちらが参考になりますでしょうか?
googleで HSP キー入力 で検索しました。
http://lhsp.s206.xrea.com/command/onkey.html



掘木

リンク

2013/11/23(Sat) 23:20:14|NO.58410

思っているものとは違うかもしれないが、
アクセラレータ で調べると過去ログが出てきた。

http://hsp.tv/play/pforum.php?mode=pastwch&num=5896

過去ログのhspwikiへリンクは切れていますが、
HSP開発wikiにて"キーボードアクセラレータ"
で調べると該当のページらしきものが見つかりますよ。



774

リンク

2013/11/24(Sun) 00:14:14|NO.58412

サンプルとしてこんな感じでどうでしょうか?

//ショートカットキー登録用配列 scKey.0 = $44 ;[D] 各キーはキーコード指定 scKey.1 = $53|$100 ;[s+S] Shift併用は +$100 scKey.2 = $31|$200 ;[c+1] Ctrl併用は +$200 Repeat Length(scKey) ;参考出力 Mes StrF("scKey.%02d = $%03x",cnt,scKey.cnt) Loop //キー押下時にショートカットチェック oncmd gosub *sys_KeyDown, $100 ;WM_KeyDown Stop *sys_KeyDown Dim i :k = wParam&$ff If(k==0)||(lParam>>30)||((k<19)&&(k>15)){Return} GetKey i, 16 :k|=i<<8 ;Shift併用チェック +$100 GetKey i, 17 :k|=i<<9 ;Ctrl併用チェック +$200 ;Getkey i, 18 :k|=i<<10 ;Alt併用チェック(困難なので除外) LogMes StrF("KEY:$%03x",k) ;キー値確認用 i = Length(scKey)-1 Repeat If(i<0){Break} If(k==scKey(i)){Break} i-- Loop //この時点で i=該当ショートカットのインデックス If(i<0){Return} ;i = -1 なら該当無し Title StrF("ショートカット#%d押した",i) Return



(’’

リンク

2013/11/24(Sun) 16:42:17|NO.58440

Windowsソフトのキーボードショートカットは大抵アクセラレータを使って作られてます。
アクセラレーターは設定ファイルをexeに埋め込むの物なんですが、
それができないHSPではけっこう無駄になります。(それとTranslateAcceleratorに送るメッセージ情報の偽装とか)
なので上の774さんのように自前で判別するのが一番です。



テンクス

リンク

2013/11/24(Sun) 21:56:57|NO.58451

ありがとうございました
なんとか頑張って見ます!



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