Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1124 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【76288】frameの上のボタン ふめい 14/10/28(火) 13:18 質問[未読]
【76294】Re:frameの上のボタン ichinose 14/10/28(火) 19:35 発言[未読]
【76296】Re:frameの上のボタン ふめい 14/10/29(水) 9:34 質問[未読]
【76308】Re:frameの上のボタン ichinose 14/10/30(木) 6:25 発言[未読]
【76320】Re:frameの上のボタン ふめい 14/10/30(木) 12:21 お礼[未読]
【76288】frameの上のボタン
質問  ふめい  - 14/10/28(火) 13:18 -
引用なし
パスワード
   動的に作成されたフレームの上に
動的に作成されたボタンを載せると

フレームが上になってボタンが隠れます。

Set fm = Controls.add("Forms.Frame.1", "Frame" & 1)
　　　　　With fm
　　　　　　.Height = 200
　　　　　　.Top = 50
　　　　　End With
　
　
Set moji = Controls.add("Forms.CommandButton.1", "CommandButton" & 1)
　　　　　With moji
　　　　　　.Height = 14
　　　　　　.Top = 30
　　　　　　
　　　　　　.Left = 280
　　　　　　.Width = 60
　　　　　　.Value = "abc"
　　　　　　.BackColor = 10
　　　　　End With

どうしたらいいでしょう？
【76294】Re:frameの上のボタン
発言  ichinose  - 14/10/28(火) 19:35 -
引用なし
パスワード
   ▼ふめい さん：
>動的に作成されたフレームの上に
>動的に作成されたボタンを載せると
>
>フレームが上になってボタンが隠れます。
Private Sub UserForm_Initialize()
　　Dim fm As MSForms.Frame
　　Dim moji As MSForms.CommandButton
　　Set fm = Controls.Add("Forms.Frame.1", "Frame" & 1)
　　With fm
　　　　.Height = 200
　　　　.Top = 50
　　End With
　　Set moji = fm.Controls.Add("Forms.CommandButton.1", "CommandButton" & 1)
　　With moji
　　　　.Height = 28
　　　　.Top = 30
　　　　.Left = 20
　　　　.Width = 60
　　　　.Caption = "abc"
　　　　.BackColor = 10
　　　　.ForeColor = vbWhite
　　End With
End Sub


このようにFrameのプロパティとして、処理してみては？
【76296】Re:frameの上のボタン
質問  ふめい  - 14/10/29(水) 9:34 -
引用なし
パスワード
   ▼ichinose さん：

感謝です。
fm.controlsはまったく思いつかなかったです。

Private Sub OptionButton10_Change()

　　　　If OptionButton10.Value = True Then
　　　　　　'動的にcheckboxを生成
　　　　Else
　　　　　　'作ったcheckboxを消す。(隠すではなく消したい)
　　　　End If

End Sub


こういったケースではどうしたらいいのでしょう？
【76308】Re:frameの上のボタン
発言  ichinose  - 14/10/30(木) 6:25 -
引用なし
パスワード
   ▼ふめい さん：
>▼ichinose さん：
>
>感謝です。
>fm.controlsはまったく思いつかなかったです。
>
>Private Sub OptionButton10_Change()
>
>　　　　If OptionButton10.Value = True Then
>　　　　　　'動的にcheckboxを生成
>　　　　Else
>　　　　　　'作ったcheckboxを消す。(隠すではなく消したい)
　　　　　　 controls.remove "Checkbox1" '←消したいコントロール名
>　　　　End If
>
>End Sub
>

これらは、Helpに出ていますよ
【76320】Re:frameの上のボタン
お礼  ふめい  - 14/10/30(木) 12:21 -
引用なし
パスワード
   ▼ichinose さん：
　ありがとうございます。

helpを調べてみます。


>▼ふめい さん：
>>▼ichinose さん：
>>
>>感謝です。
>>fm.controlsはまったく思いつかなかったです。
>>
>>Private Sub OptionButton10_Change()
>>
>>　　　　If OptionButton10.Value = True Then
>>　　　　　　'動的にcheckboxを生成
>>　　　　Else
>>　　　　　　'作ったcheckboxを消す。(隠すではなく消したい)
>　　　　　　 controls.remove "Checkbox1" '←消したいコントロール名
>>　　　　End If
>>
>>End Sub
>>
>
>これらは、Helpに出ていますよ
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1124 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free