Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3510 / 9994

←次へ　｜　前へ→


	【9743】新規作成フォームにOnMouseDownプロシジャを発生させる

小僧 - 07/8/9(木) 10:49 -


	引用なし

	パスワード

▼たくゾ～さん：]
こんにちは。

まず…。
こちらの掲示板では容認されておりますが、
他所掲示板ではマルチポストを認めていない事もあります。

掲示板を利用する上でのマナーですので
こちらか、向こうかどちらかを削除、またはCloseする形にしましょう。

> 題名：フォームを新規作成し、フォーム詳細のOnMouseDownに
> イベントプロシージャを入れてXYを取得したい

こちらについてですが、

Sub Make_Form2()
Const F_Name = "test"
Dim Temp_Name As String

　　With CreateForm()
　　　　Temp_Name = .Name
　　　　.HasModule = True
　　　　.Caption = F_Name
　　　　.Width = 11907　　　　　　　'[twip]
　　　　.Section(acDetail).Height = 8505
　　　　.Section(acDetail).OnMouseDown = "[Event Procedure]"
　　End With
　　
　　With VBE.ActiveVBProject.VBComponents.Item("Form_" & Temp_Name).CodeModule
　　　　.InsertLines 4, "Private Sub 詳細_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)"
　　　　.InsertLines 5, ""
　　　　.InsertLines 6, "Msgbox ""座標X："" & x & ""　座標Y："" & y "
　　　　.InsertLines 7, ""
　　　　.InsertLines 8, "End Sub"
　　End With
　　
　　DoCmd.Save acForm, Temp_Name
　　DoCmd.Close acForm, Temp_Name
　　DoCmd.Rename F_Name, acForm, Temp_Name
　　DoCmd.OpenForm F_Name, acNormal
　　DoCmd.Restore
　　
End Sub

のようなコードで新規に作成したフォームの
OnMouseDown イベントが発生する事が確認できるかと思われます。

> ３）新規フォームの詳細で、マウスボタンを押した場所に、ラベルを移動する

についてはご自身で工夫されてみて下さい。

963 hits

▼

【9742】フォームを新規作成し、フォーム詳細のOnMouseDownにイベントプロシージャを... たくゾ～ 07/8/8(水) 22:53