同一プロシージャを簡単にコーディングするには？ (ID:100291)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

とりあえずの逃げ道としては：

==================================================================
(案1) コードの書き換えを減らすために、ActiveControl を併用する。
------------------------------------------------------------------
Private Sub EnterTemplate()
  ActiveControl.SelStart = 0
  ActiveControl.SelLength = ActiveControl.MaxLength
End Sub

Private Sub TextBox1_Enter()
  EnterTemplate
End Sub
  ：
Private Sub TextBox100_Enter()
  EnterTemplate
End Sub

==================================================================
(案2) コードそのものを生成するツールを作成する。
------------------------------------------------------------------
下記のコードを実行すると、sample.txt にソースコードが
生成されるので、それをフォームに貼りつける。
(100 個分を手で書くよりは、間違いが減るかと)

Open "C:\sample.txt" For Output As #256
Dim i As Integer
For i = 1 To 100
    Print #256,
    Print #256, "Private Sub TextBox" & CStr(i) & "_Enter()"
    Print #256, vbTab; "TextBox" & CStr(i) & ".SelStart = 0"
    Print #256, vbTab; "TextBox" & CStr(i) & ".SelLength = TextBox" & CStr(i) & ".MaxLength"
    Print #256, "End Sub"
Next

←解決時は質問者本人がここをチェックしてください。

戻る