Excel VBA質問箱 IV

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

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


52001 / 76738 ←次へ | 前へ→

【29585】Re:フォーム内のテキストボックスを増やす
発言  ichinose  - 05/10/8(土) 16:48 -

引用なし
パスワード
   かみちゃん さん、snoopy さん、こんばんは。

>最初から6つ用意しておいて、4つめ、5つめ、6つめのテキストボックスの
>Visible プロパティをFalseにしておいてはいけませんか?
増える数が3つで終わりなら、私も↑に賛成です。
しかし、このような増加を繰り返し行う仕様なら・・・、

'==========================================================
Private crt_txt As Boolean
Private txt(1 To 3) As MSForms.TextBox
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  
  If KeyCode = 13 Then
    If crt_txt = False Then
     For idx = 1 To 3
      Set txt(idx) = Controls.Add("Forms.TextBox.1", "txt" & idx, True)
      With txt(idx)
       .Top = 25 * (idx - 1) + 50
       .Height = 24
       .Left = 150
       '位置の値は適当に変更してください
       End With
      Next idx
     crt_txt = True
     End If
    End If
      
End Sub

一例としては、こんな方法がありますが・・・。
作成したテキストボックスのイベントプロシジャーも必要ですよね!!

その場合は、クラスモジュールの使用も考えなければなりません。
かみちゃん さんの方法なら、通常のイべントプロシジャーの
記述でいけそうですね!!

繰り返しますが、テキストボックスの増加が一回だけなら
予めテキストボックスを作成しておいて
>Visible プロパティをFalse
の方法だと思います。
0 hits

【29583】フォーム内のテキストボックスを増やす snoopy 05/10/8(土) 16:14 質問
【29584】Re:フォーム内のテキストボックスを増やす かみちゃん 05/10/8(土) 16:22 発言
【29585】Re:フォーム内のテキストボックスを増やす ichinose 05/10/8(土) 16:48 発言
【29663】Re:フォーム内のテキストボックスを増やす snoopy 05/10/11(火) 0:51 お礼

52001 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free