Access VBA質問箱 IV

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

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


1848 / 2272 ツリー ←次へ | 前へ→

【4981】メインフォームと別フォーム うさこ 05/5/5(木) 16:57 質問[未読]
【4982】Re:メインフォームと別フォーム 小僧 05/5/6(金) 10:23 回答[未読]
【4984】Re:メインフォームと別フォーム うさこ 05/5/6(金) 16:11 お礼[未読]

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

引用なし
パスワード
   よろしくお願いします。2つの質問があります。

1.メインフォームのリストボックスからあるデータをダブルクリックすると、
そのデータが持っている3つのハイパーリンクアドレスを別フォームで表示して、
ハイパーリンクアドレスを選択させるというプログラムをつくっています。
マウスでクリックする時に、マウスをそのアドレス上に持ってきたら(指マークが出る)、色を変えるとかできますか?。
(矢印キーでカーソルを動かす時は、条件付き書式設定でできました。)

2.別フォームを表示している時に、別フォームの方が小さいので、
後ろにあるメインフォームをクリックすると、別フォームが後ろに行ってしまいます。
それを避ける方法はありますか?

説明が不十分かもしれませんが、よろしくお願いします。

【4982】Re:メインフォームと別フォーム
回答  小僧  - 05/5/6(金) 10:23 -

引用なし
パスワード
   ▼うさこ さん:
おはようございます。

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

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

各ラベルに対して
背景スタイル:透明
背景色: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

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

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

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

【4984】Re:メインフォームと別フォーム
お礼  うさこ  - 05/5/6(金) 16:11 -

引用なし
パスワード
   ▼小僧 さん:

お答え、ありがとうございます!
質問の1番2番とも、教えていただいた通りにしたら、
ばっちりうまくできました!
本当にありがとうございましたm(_ _)m
またよろしくお願いします!

1848 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078263
(SS)C-BOARD v3.8 is Free