VB6でマウスポインタを砂時計にする。

この記事は2018年10月22日に投稿しました。

f:id:paveway:20190914064630j:plain

1. はじめに

こんにちは、iOSのエディタアプリPWEditorの開発者の二俣です。
今回は業務で使用しているVB6のお話です。

目次へ

2. マウスポインタ設定

VB6でマウスポインタを砂時計表示するには、ScreenオブジェクトのMousePointerプロパティに、vbHourglass定数を設定します。

マウスポインタを規定値に戻すには、vbDefault定数を設定します。

以下にMousePointerプロパティに設定できる定数を一覧にまとめました。
(VB6のオブジェクトブラウザで表示されるMousePointerConstantsのメンバーをまとめました)

表示確認をしましたが、いくつか規定値のまま変更されない定数がありました。
おそらく環境によって表示されない定数があると思われます。

定数名	定数値	形状	備考
vbDefault	0	規定値
vbArrow	1	矢印	規定値のまま変更されない
vbCrosshair	2	クロス
vbIBeam	3	Iビーム
vbIconPointer	4	アイコン	規定値のまま変更されない
vbSizePointer	5	サイズ(上下左右の矢印)
vbSizeNESW	6	サイズ(右上-左下の矢印)
vbSizeNS	7	サイズ(上下の矢印)
vbSizeNWSE	8	サイズ(左上-右下の矢印)
vbSizeWE	9	サイズ(左右の矢印)
vbUpArrow	10	上矢印
vbHourglass	11	砂時計(待機)
vbNoDrop	12	ドロップ禁止
vbArrowHourglass	13	矢印と砂時計
vbArrowQuestion	14	矢印と疑問符
vbSizeAll	15	サイズ(すべて)
vbCustom	99	MouseIconプロパティで指定された、ユーザ定義のマウスポインタアイコン	MouseIconプロパティを指定しない場合、規定値のまま

実装例

' マウスポインタを砂時計にします。
Screen.MousePointer = vbHourglass

'時間のかかる処理

' マウスポインタを規定値に戻します。
Screen.MousePointer = vbDefault

目次へ

4. おわりに

業務で元にしたコードではMousePointerプロパティに即値(11)を設定していため、最初何をしたいのかわかりませんでした。
こういった設定は用意された定数を使用してもらいたいです。

お仕事決まれば全額キャッシュバック！転職特化型Ruby実践研修【ポテパンキャンプ】

Visual Basic 6.0 300の技

作者: 松田猛
出版社/メーカー: 技術評論社
発売日: 1999/11/25
メディア: 大型本
この商品を含むブログ (1件) を見る

紹介している一部の記事のコードはGitlabで公開しています。
興味のある方は覗いてみてください。

目次へ

私が勤務しているニューラルでは、主に組み込み系ソフトの開発を行っております。
弊社製品のハイブリッドOS Bi-OSは高い技術力を評価されており、特に制御系や通信系を得意としています。
私自身はiOSモバイルアプリやウィンドウズアプリを得意としております。
ソフトウェア開発に関して相談などございましたら、お気軽にご連絡ください。

また一緒に働きたい技術者の方も随時募集中です。
興味がありましたらご連絡ください。

EMAIL : info-nr@newral.co.jp / m-futamata@newral.co.jp
TEL : 042-523-3663
FAX : 042-540-1688

目次へ