Access VBA質問箱 IV

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

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


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

8192 / 9994

←次へ　｜　前へ→


	【4982】Re:メインフォームと別フォーム

小僧 - 05/5/6(金) 10:23 -


	引用なし

	パスワード

▼うさこさん：
おはようございます。

１．について
別フォームが開いた際にどういった方法でハイパーリンクが
表示されてるのかが解りませんが…。

仮にフォームの「詳細」上に「選択ラベルA」「選択ラベルB」
「選択ラベルC」の３つラベルを用意し、ラベルをクリックする事で
ハイパーリンクを起動させるとします。

各ラベルに対して
背景スタイル：透明
背景色：255(任意)

を設定して

Private Sub 詳細_MouseMove _
　　　　(Button As Integer, S As Integer, X As Single, Y As Single)
　　Me.選択ラベルA.BackStyle = 0
　　Me.選択ラベルB.BackStyle = 0
　　Me.選択ラベルC.BackStyle = 0
End Sub

Private Sub 選択ラベルA_MouseMove _
　　　　(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Me.選択ラベルA.BackStyle = 1
　　Me.選択ラベルB.BackStyle = 0
　　Me.選択ラベルC.BackStyle = 0
End Sub

Private Sub 選択ラベルB_MouseMove _
　　　　(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Me.選択ラベルA.BackStyle = 0
　　Me.選択ラベルB.BackStyle = 1
　　Me.選択ラベルC.BackStyle = 0
End Sub

Private Sub 選択ラベルC_MouseMove _
　　　　(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Me.選択ラベルA.BackStyle = 0
　　Me.選択ラベルB.BackStyle = 0
　　Me.選択ラベルC.BackStyle = 1
End Sub

のようにして、背景を「透明」⇒「普通」に切り替えることで
視覚上の変化をつけてみてはいかがでしょうか？

２．について
リストボックスをダブルクリックした際に、別フォームをダイアログで
開いてみてはいかがでしょうか？

DoCmd.OpenForm "別フォーム名", acNormal, , , , acDialog

469 hits

▼

【4981】メインフォームと別フォーム うさこ 05/5/5(木) 16:57