🚀 go-pugleaf

>Me.MousePointer = 11$B!!$K$7$F!":=;~7W$N%"%$%3%s$K$7$^$7$?$,!"%\%?%sEy$N%/(B
$B%j%C(B
>$B%/$OM-8z$K$J$C$F$$$^$9!#$=$3$G!"$3$N(BMouse$B$N%/%j%C%/%$%Y%s%H$rL58z$K$9$kJ}K!(B
>$B$O$J$$$b$N$+$HD4$Y$F$*$j$^$9!#(B
>
>$B%\%?%sEy$N(B Enabled = False $B$9$kJ}K!$O;EMM>eIT2D$G$9!#(B
>$B%U%)!<%`$N(B Enabled = False $B$H$9$k$H%^%&%9%]%$%s%?!<$O85$KLa$C$F$7$^$$$^$9!#(B


$B%\%?%s$N%/%j%C%/%$%Y%s%H$N:G=i$K(B(Command1_Click$B%$%Y%s%H$J$I!K(B

if me.mousepointer=11 then exit sub

$B$H=q$-%^%&%9$,:=;~7W$J$i$P6/@)E*$K%/%j%C%/%$%Y%s%H$+$iH4$1$k$H$$$&$N$O$I$&$G(B
$B$7$g$&!)!J$A$g$C$H:#<j85$K(BVB$B$,$J$$$N$G3NG'$O$7$F$^$;$s!#!K(B
-----------------------------------------------------------
from        $B$_$#!<$/$s(B
e-mail      akimotom@anet.ne.jp
Homepage http://www.speed.co.jp/aki/index.htm

Reありがとうございます。

|ボタンのクリックイベントの最初に(Command1_Clickイベントなど）
|
|if me.mousepointer=11 then exit sub
|
|と書きマウスが砂時計ならば強制的にクリックイベントから抜けるというのはどう
で
|しょう？（ちょっと今手元にVBがないので確認はしてません。）

コマンドボタンをクックするとへこんでしまうので、それも防ぐにはどうしたらよい
でしょうか？

>$B%3%^%s%I%\%?%s$r%/%C%/$9$k$H$X$3$s$G$7$^$&$N$G!"$=$l$bKI$0$K$O$I$&$7$?$i$h(B
$B$$(B
>$B$G$7$g$&$+!)(B
$B%3%^%s%I%\%?%s$r$X$3$^$;$?$/$J$$$H$$$&$3$H$O%/%j%C%/%$%Y%s%H<+BN$r5/$3$5$;$F(B
$B$O(B
$B$$$1$J$$$H$$$&$3$H$G$9$,!"$+$D%3%^%s%I%\%?%s$N(BEnable$B$r(BFalse$B$K$G$-$J$$$H$$$&(B
$B$3(B
$B$H$G$O$`$:$+$7$$$G$9$M!#$?$V$sL5M}$G$O$J$$$G$7$g$&$+!)(B
$B%T%/%A%c!<%\%C%/%9Ey$G%\%?%s$r<+:n$9$k$0$i$$$7$+$J$$$N$G$O(B.........
-----------------------------------------------------------
from        $B$_$#!<$/$s(B
e-mail      akimotom@anet.ne.jp
Homepage http://www.speed.co.jp/aki/index.htm

System wrote in message <6flm18$iej$1@news3.osk.3web.ne.jp>...

>|ボタンのクリックイベントの最初に(Command1_Clickイベントなど）
>|
>|if me.mousepointer=11 then exit sub
>|
>|と書きマウスが砂時計ならば強制的にクリックイベントから抜けるというのはどう
>で
>|しょう？（ちょっと今手元にVBがないので確認はしてません。）
>
>コマンドボタンをクックするとへこんでしまうので、それも防ぐにはどうしたらよ
い
>でしょうか？

　コマンドボタンをピクチャボックスの子にして、
　ピクチャのEnabledをFalseにするのも仕様上不可ですか？

　フォームのEnabledをFalseにするのがＯＫなら、
　ピクチャをフォームと同じ大きさにして、
　フォーム上のコントロールすべてをピクチャの
　子としてしまうとどうでしょう？

--
-----------------------
WolfRider 斉藤　雄太
E-mail:y_saitoh@kk.pct.co.jp
-----------------------

Systemさんの<6fghdh$67k$1@news3.osk.3web.ne.jp>から
|Me.MousePointer = 11　にして、砂時計のアイコンにしましたが、ボタン等のクリッ
|クは有効になっています。そこで、このMouseのクリックイベントを無効にする方法
|はないものかと調べております。
|
|ボタン等の Enabled = False する方法は仕様上不可です。

「ボタン等」に含まれてしまうので、却下でしょうか。

Frame に ボタンを配置し、Frame.Enabled = False とする。
VB4.0でボタン等のクリックができないのを確認しました。

Fame.Caption ="" にしてあれば、デザイン的にも問題ないと思うのですが。

---
国分 mailto:kokubun@ffc.co.jp

Reありがとうございます。
さて、

|Frame に ボタンを配置し、Frame.Enabled = False とする。
|VB4.0でボタン等のクリックができないのを確認しました。
|
|Fame.Caption ="" にしてあれば、デザイン的にも問題ないと思うのですが。


VB5.0で Frame.Enbled = False　とすると確かにクリックはできないのですが、マウ
スポインターを時計のままにする事ができません。この点を改良できればいいのです
が、何か良い案ありませんでしょうか？

Systemさんの<6g07jj$ih6$1@news3.osk.3web.ne.jp>から
|VB5.0で Frame.Enbled = False　とすると確かにクリックはできないのですが、マウ
|スポインターを時計のままにする事ができません。

だから最初の質問だったのですね。(_ _)
VB5.0は持ってないので、<system@tksoft.office.ne.jp> の悩みが分からず失礼
しました。

なぜでしょ。 VB4 ならできるのに。
---
国分 mailto:kokubun@ffc.co.jp

>VB5.0で Frame.Enbled = False　とすると確かにクリックはできないのです
が、マウ
>スポインターを時計のままにする事ができません。この点を改良できればい
いのです
>が、何か良い案ありませんでしょうか？
>


Screen.MousePointer = 11 ではいかがでしょう？

|Screen.MousePointer = 11 ではいかがでしょう？
|
ありがとうございます。 Screen.MousePointer で無事解決いたしました。

感謝いたします。

複数のディスクを一気に検索するソフト
まい　ほーむぺーじ　：  http://www.geocities.co.jp/SiliconValley/4378/
まい  めーるあどれす ： system@tksoft.office.ne.jp