この記事は2018年10月22日に投稿しました。
目次
かんたんプログラミング Visual Basic 6 応用編
- 作者: 川口輝久,河野勉
- 出版社/メーカー: 技術評論社
- 発売日: 1999/07/09
- メディア: 大型本
- クリック: 5回
- この商品を含むブログ (1件) を見る
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実践研修【ポテパンキャンプ】
- 作者: 松田猛
- 出版社/メーカー: 技術評論社
- 発売日: 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