Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1830 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71789】userformの位置について pell 12/4/8(日) 18:53 質問[未読]
【71791】Re:userformの位置について UO3 12/4/8(日) 19:17 発言[未読]
【71789】userformの位置について
質問  pell  - 12/4/8(日) 18:53 -
引用なし
パスワード
   現在表示されている親userformの位置を取得して必ず子userformを親の隣に表示させるにはどうしたらいいですか？

親にあるトグルボタンを押したら子が表示させるようにしているのですが。
親が移動していたら隣に表示されません。

わかる方よろしくお願いします。
【71791】Re:userformの位置について
発言  UO3  - 12/4/8(日) 19:17 -
引用なし
パスワード
   ▼pell さん：

子フォームが UserForm2 だとして、親フォームに

Private Sub ToggleButton1_Click()
　　With UserForm2
　　　　.StartUpPosition = 0
　　　　.Left = Me.Left + Me.Width + 5 '+5 は好みで調整してください
　　　　.Top = Me.Top
　　　　.Show
　　End With
End Sub

で、いかがでしょう。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1830 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free