マウスポインター形状の変更

VB,VBA
2010-12-17 - 更新:2012-03-23

ACCESS VBAにてマウスポインターの形状を変更するには

通常の砂時計などは、用意されたプロパティ・メソッドで変更可能

例）

DoCmd.Hourglass True    '砂時計ポインターにする
Screen.MousePointer = 9 '左右の矢印にする

Screen.MousePointerに設定できるその他の値
既定値	0
矢印	1
I字型	3
上下の矢印	7
左右の矢印	9
砂時計	11

上記以外の形状に変更したい場合

Win32 APIを使用

General部分にAPI関数を定義（モジュールに書く場合はPublicを使用）

Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
　　(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" _
　　(ByVal hCursor As Long) As Long

ハンドカーソルの定数を定義

Private Const IDC_HAND = 32649& 'ハンドカーソル

マウスカーソルの戻り値（形状）格納用

Private mCursor As Long

フォーム起動時に、ハンドカーソルを取得

Private Sub Form_Load(Cancel As Integer)
　　'マウスポインターを手の形にするためのマウスカーソルを取得
　　mCursor = LoadCursor(0&, IDC_HAND)
End Sub

マウスオーバー時、マウスポインターをハンドカーソルにしたいコントロールの「マウスボタン移動時」イベントに以下の処理を記述

Private Sub Label_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　'ラベル上でマウスを手の形にする
　　Call SetCursor(mCursor)
End Sub

LoadCursorの第2引数の値
APIでの値（定数）	VBAでの値	マウスカーソルの形
IDC_APPSTARTING	32650&	小さい砂時計付の矢印カーソル
IDC_ARROW	32512&	標準の矢印カーソル
IDC_CROSS	32515&	十字カーソル
IDC_HAND	32649&	ハンドカーソル
IDC_HELP	32651&	疑問符付の矢印カーソル
IDC_IBEAM	32513&	I（縦線）カーソル
IDC_NO	32648&	禁止カーソル
IDC_SIZEALL	32646&	4方向の矢印カーソル
IDC_SIZENESW	32643&	右斜め上の両方向き矢印カーソル
IDC_SIZENS	32645&	上下の両方向き矢印カーソル
IDC_SIZENWSE	32642&	右斜め下の両方向き矢印カーソル
IDC_SIZEWE	32644&	左右の両方向きカーソル
IDC_UPARROW	32516&	上向きの垂直矢印カーソル
IDC_WAIT	32514&	砂時計カーソル
Win32 APIの定数はVBAではそのまま使用できないので、定数として宣言して使用します。例） `Public Const IDC_APPSTARTING = 32650&`

24,229 views

OUTLOOKエラー

Windows
2010-12-10 - 更新:2012-03-23

Archive等の個人用pstを切断しようとすると、「この操作は失敗しました。オブジェクトが見つかりませんでした。」というエラーが出て切断できない。

【環境】
OS：Windows XP
Office：2000

【解決方法】
HKEY_USERS内にWindows Messaging Subsystem\Profiles\Microsoft Outlook Internet Settingsを探す。
その中に古い個人用フォルダーのエントリを含むのレジストリキーを見つけて、キー、右側のウィンドウでを右クリックして [ 削除 ] をクリックします

4,386 views

SMTPポートブロック

Linux
2010-12-09 - 更新:2012-03-23

iptablesにPREROUTINGチェインを追加し、PORT25（SMTP）をPORT587（SUBMISSION）へリダイレクト
ルータも587番を開放

$ iptables -N PREROUTING

$ iptables -t nat -A PREROUTING -p tcp --dport 587 -j REDIRECT --to-ports 25

1,937 views

キーボードを正常に認識しない場合

Windows
2010-12-09 - 更新:2012-11-01

「半角/全角」キーを押すとバッククォートが入力される。
その場合、キー配列がおかしくなっているので、
Alt+半角/全角キーで切り替えることが可能。

2,190 views

ユーザーディレクトリの公開の設定について

Linux
2010-12-09 - 更新:2012-03-23

各ユーザーのホームディレクトリに公開用のディレクトリ(public_html)を置いて、
ドメイン名の後に~(チルダ)とユーザー名をつけてアクセスできるようにする。

例）http://www.example.co.jp/~username/

apacheのデフォルトではユーザーディレクトリは公開されないようになっているので、
公開する場合にはhttpd.confを編集して設定を変更します。

設定ファイルhttpd.confの中の＜IfModule mod_userdir.c＞ディレクティブのUserDir disableの行頭に＃を加えてコメントアウト。
次に、その下の行の＃UserDir public_htmlという記載の先頭の＃を削除。

続いて、/home/usernameディレクトリのアクセス権を700から705に変更します。
すると、public_html内のホームページのトップページがindex.htmlになります。

以上の設定によりhttp://www.example.co.jp/~username/でユーザーディレクトリの公開が可能になります。

1,778 views