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

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

例）

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

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

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

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

【環境】
OS：Windows XP
Office：2000

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

フォームの値をCGIやPHPなどのプログラムに送信するとき、
name属性に「inq[]」という風に設定する。
その際、JavaScriptでの値チェックの方法。

JavaScript関数を定義

<script type="text/javascript">
<!--//
    var check = function()
    {
        var n = 0;

        for(i = 0; i < document.frm.elements["inq[]"].length; i++)
        {
            // document.frm.elements["inq[]"][i].checked //チェックを判別
            // document.frm.elements["inq[]"][i].value;  //値を取り出す

            if(document.frm.elements["inq[]"][i].checked)
            {
                // IDを利用してラベルのテキストを取得
                // document.getElementById("label_" + document.frm.elements["inq[]"][i].id).innerText
                n++;
            }
        }

        if(n == 0)
        {
            alert("チェックが１つもありません！");
            return false;
        }
        else
        {
            return true;
        }
    }
//-->
</script>

続きを読む…»

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

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