| |
▼たくゾ〜 さん：]
こんにちは。
まず…。
こちらの掲示板では容認されておりますが、
他所掲示板ではマルチポストを認めていない事もあります。
掲示板を利用する上でのマナーですので
こちらか、向こうかどちらかを削除、または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 イベントが発生する事が確認できるかと思われます。
> ３）新規フォームの詳細で、マウスボタンを押した場所に、ラベルを移動する
についてはご自身で工夫されてみて下さい。
|
|
小僧
- 07/8/9(木) 10:49 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
