WindowsXPを簡易にVista風テーマへ 【Universal UXTheme Patcher v1.2】をダウンロードし解凍し一度起動させロックを外します。（１度起動させればもういりません） 【VistaCG】をダウンロードし解凍 中の「VistaCG32」フォルダを「VistaCG」フォルダと名前変更します その変更した「VistaCG」フォルダを C:\WINDOWS\Resources\Themes の中に入れます １度ログオフもしくは再起動し完了 デスクトップ右クリック→プロパティ→デザイン→ウィンドウとボタンで VistaCGを選択してOK 自己責任でお願いします。

各種検定用タイマー 手前にでしゃばるタイマーなので透明にして使って下さい Downlord(15.8k)

Accessでスクロールをさせない

マウスのスクロールボタンでレコードが動くのを防ぐ
マイクロソフトのサポートに載っていた物です

Download(4.16k)　←これ（LZH圧縮してあります）

方法

Accessで Alt+F11　でVBEを開く

上部ツールバーの　ツール　→　参照設定　　→　参照　で

ダウンロード　解凍した　MouseWheel.dll　を参照

 

スクロールボタンでレコード移動させたくないフォーム名を
ダブルクリックして開く

天辺の　 Option Compare Database　の下にでも

Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

を記述

あと適当な所に下記記述

Private Sub Form_Load()
Set clsMouseWheel = New MouseWheel.CMouseWheel
Set clsMouseWheel.Form = Me
clsMouseWheel.SubClassHookForm

End Sub

Private Sub Form_Close()
clsMouseWheel.SubClassUnHookForm
Set clsMouseWheel.Form = Nothing
Set clsMouseWheel = Nothing
End Sub

Private Sub clsMouseWheel_MouseWheel(cancel As Integer)
cancel = True
End Sub

これでだけでロック

気になる所といえば他でエラーなどで終了した場合
clsMouseWheelの終了エラーが出る　編集中は仕方が無いけど

2002と2003で試してロックかかりました
（※自己責任でお願いします）

マイクロソフトサポートページ
http://support.microsoft.com/default.aspx?scid=kb%3Bja%3B308636

VBEのエディタでマウスのスクロールを有効にする

VBA Mouse Wheel（Giorgio Brausiさん作成）　アドインをVBEに組み込んで、ホイールスクロールを有効にします

VBA IDE Mouse Wheel add-in をダウンロード、解凍

その中のVBAIDEMouseWheelAddin.dll　だけをシステムフォルダに入れます

[スタート] ボタンをクリックし、[ファイル名を指定して実行] をクリックします。

regsvr32 C:\WINDOWS\system\VBAIDEMouseWheelAddin.dll　と入力し、[OK] をクリックします。

Visual Basic 6.0 を起動します。

[アドイン] メニューをクリックし、[アドイン マネージャ] をクリックします。

[アドイン マネージャ] ボックスの一覧で、[MouseWheel Fix] をクリックします。

[ロード/アンロード] チェック ボックスをオンにし、[起動時にロード] チェック ボックスをオンにします。

[OK] をクリックします。