HSPTV!掲示板

OSビスタ、HSP3.2β3、intuos3のタブレットを使用しています。
getkeyでテストしたのですが、ペンのサイドスイッチ（設定は右クリック）が反応しませんorz
右クリックしたままぺんを少し動かすと反応します。

HSP以外での動作だと正常のようなので、HSPが問題ではないかと・・・

同じ環境のひとは試していただけないでしょうか？

以下のコードで実験してみましたが、特に問題はありませんでした。
ペンタブの設定のような気がします。

repeat
	getkey k,2
	if k:title "!":else:title""
	wait 5
loop

HSP: Ver 3.1
OS: Windows XP SP3
PenTab: WACOM BAMBOO MTE-450

私も Windows Vista + Intuos3(PTZ-631W) ですが、getkey では反応しませんでした。

#define WM_RBUTTONDOWN 0x0201

oncmd gosub *ON_WM_RBUTTONDOWN, WM_RBUTTONDOWN

stop

*ON_WM_RBUTTONDOWN
	dialog
return

ただ、このようにすると右クリックを取得できました。
本格的なペンタブアプリケーションを作るならば、wintab32.dll を利用するとよいと思います。

VISTA>コントロールパネル>ペンと入力デバイス
ペンのオプションという設定があるのですが
ペンボタンのチェックを2つともオンにする事で
右クリツクが反応するようになるようです

早朝No.25837で投降したスクリプトをVistaで実行してみたところ
２６℃さんやhspailさんと同じくgetkeyでは反応しませんでした。

Vistaが原因？なのかもしれません。

hspailさんのスクリプトは
定数を間違っているようですね

報告ありがとうございます、どうやら
ビスタ、HSP3、タブレットを使うとクリック判定に不具合があるようですね。

>locさん
初めてビスタを使った時に、この設定が分からず苦労しました。
チェックを2つともオンにしてますが、この問題とは関係ないようです。

wintab32.dll を利用してみます。

サイトThe Realm of Reveryで公開されている、タブレットのプログラムを使っていてきづきました
ttp://r-revery.hp.infoseek.co.jp/index2.html
ttp://r-revery.hp.infoseek.co.jp/hsp/pentab.html

#uselib "wintab32.dll"

#const TRUE 1

#func global WTInfoA "WTInfoA" int,int,var

#func global WTOpenA "WTOpenA" int,var,int
#const WTI_DEFSYSCTX 4

dim LogContext ,43
WTInfoA WTI_DEFSYSCTX,0,LogContext

WTOpenA hwnd,LogContext,TRUE

repeat
getkey k,2
if k:title "!":else:title""
wait 5
loop

inoviaさんのソースに加えてみまたのですが右クリックが機能しました。
動きましたが、なぜ動くか理解できてないのですが
#uselib "wintab32.dll"

#const TRUE 1

#func global WTInfoA "WTInfoA" int,int,var

#func global WTOpenA "WTOpenA" int,var,int
#const WTI_DEFSYSCTX 4

dim LogContext ,43
WTInfoA WTI_DEFSYSCTX,0,LogContext

WTOpenA hwnd,LogContext,TRUE

これはタブレットを初期化してるんでしょうか？