Access VBA質問箱 IV

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

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


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

3511 / 9994

←次へ　｜　前へ→


	【9742】フォームを新規作成し、フォーム詳細のOnMouseDownにイベントプロシージャを入れて

たくゾ～ - 07/8/8(水) 22:53 -


	引用なし

	パスワード

はじめて投稿させていただきます。よろしくお願い致します。

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

【やりたい事】
１）フォームを作る　：　Set ctl_frm = CreateForm()
２）ラベルを作る　　：　CreateControl("test", acLabel, acDetail, , , 100 , 100, 100, 100)
３）新規フォームの詳細で、マウスボタンを押した場所に、ラベルを移動する
　　ctl_frm.Section(acDetail).OnMouseDown = "= Detail_MouseDown(Button,Shift,X,Y)"

１）２）は動作するのですが、３）が動きません。

◆標準モジュール

１）３）

Sub make_Form()
Dim ctl_frm As Form
　　Set ctl_frm = CreateForm()
　　With ctl_frm
　　　　.Caption = "test"
　　　　.Width = 11907　　　　　　　'[twip]
　　　　.Section(acDetail).Height = 8505
（省略）
　　　　.Section(acDetail).OnMouseDown = "= Detail_MouseDown(Button,Shift,X,Y)"
　　　　　　　　　　　　　　　　　　　　　　　　　↑３）【上手に動かした】
　　End With
　　DoCmd.Save , ctl_frm.Caption
　　DoCmd.OpenForm ctl_frm.Name, acNormal
　　DoCmd.Restore
End Sub

-------------------------------------------------------------------

２）

Sub make_Label()
Dim ctl_Label As Label
Dim i, L_max As Integer

DoCmd.OpenForm "test", acDesign
L_max = 1
For i = 0 To L_max
　　Set ctl_Label = CreateControl("test", acLabel, acDetail, , , 100 + 200 * i, 100, 100, 100)
　　ctl_Label.Name = "L" & Format(i, "000")
　　With ctl_Label
　　　　.SpecialEffect = 1
　　　　.BackStyle = 1
（省略）
　　　　.OnClick = "= Label_onClick()"
　　　　.OnMouseDown = "= Label_OnMouseDown()"
　　　　.OnMouseUp = "= Label_OnMouseUp()"
　　End With
Next
　　DoCmd.Save , ctl_frm.Caption
　　DoCmd.OpenForm ctl_frm.Name, acNormal
　　DoCmd.Restore
End Sub

-------------------------------------------------------------------

971 hits

▼

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