uwsc スクリプト

質問

uwscでの質問です
エクセル入力時に処理が追いつかずマウスポインタがグルグル回った状態で次の処理に移り入力ミスが発生して困っています
現在細かくウェイトを入れていますが、時折ランダムで同じ状態になりどんどん ウェイト時間が長くなり処理に時間が掛かってしまいます。
そこで質問何ですが、ウェイトは最小限にしてマウスポインタがグリグリしている時だけ待機する。この様なスクリプトをぜひご教授願いたいと思います
初心者に毛が生えた程度の私にもすぐ使えるスクリプトを教えて頂きたいです。
お願いします

回答No.2

ballville · ベストアンサー

>マウスカーソルのグルグルした状態は認識出来ない？
認識できます
ヘルプの砂時計云々がそれです。
最近のOSでは、処理待ちのマウスカーソルは回る円盤ですが、昔は砂時計のアイコンでした。
//待機カーソルの間処理待ち
while musucur()=CUR_WAIT
　sleep(0.1)
wend
//ここから下に実際にやりたい処理を書く

お礼

ありがとうございます！！！
昨日色々調べなおして試してみたのですが半分諦めていました。
結果、スクリプトもグルグルの意味も理解出来ておらず大変困っておりましたが、ballville様のおかげなんとか解決出来そうです
感謝、感謝です

回答No.1

ballville

スクリプトを書いてくれれば、対処法もかけるのですが。
抽象的な質問なので、組み込み関数の「MUSCUR( )」を使ってカーソル種別を判別し、処理を分岐すればいい、というアドバイスになります。

ヘルプの関連関数を以下に貼っておきます。
//　マウスカーソル種別を返す
戻値 = MUSCUR( )
引数 なし
戻値
　　CUR_APPSTARTING （1）　// 砂時計付き矢印カーソル
　　CUR_ARROW （2）　　　　// 標準矢印カーソル
　　CUR_CROSS （3）　　　　// 十字カーソル
　　CUR_HAND （4）　　　　 // ハンドカーソル
　　CUR_HELP （5）　　　　 // クエスチョンマーク付き矢印カーソル
　　CUR_IBEAM （6）　　　　// アイビーム（縦線）カーソル
　　CUR_NO （8）　　　　　 // 禁止カーソル
　　CUR_SIZEALL （10）　　 // ４方向矢印カーソル
　　CUR_SIZENESW （11）　　// 斜め左下がりの両方向矢印カーソル
　　CUR_SIZENS （12）　　　// 上下両方向矢印カーソル
　　CUR_SIZENWSE （13）　　// 斜め右下がりの両方向矢印カーソル
　　CUR_SIZEWE （14）　　　// 左右両方向矢印カーソル
　　CUR_UPARROW （15）　　 // 垂直の矢印カーソル
　　CUR_WAIT （16）　　　　// 砂時計カーソル

　※ ユーザー定義カーソルはハンドル値をマイナスにして返す（起動毎に変化）

補足

抽象的な質問に対して丁寧な回答ありがとうございます。

マウスカーソルのグルグルした状態は認識出来ない？みたいなのでその他の条件で
MUSCURを使ったスクリプトについてですが

マウスカーソルの状態が

【標準矢印or十字矢印の場合だけ次処理に移る、それ以外は待機】

と言うスクリプトを書くとしたら

WHILE CHKIMG MUSCUR CUR_ARROW(2) or MUSCUR CUR_CROSS(3) = false
WEND

こんな感じでよろしいのでしょうか？

再度の質問で大変申し訳ありませんが、ぜひご教授のほどよろしくお願い致します。