Excel VBA質問箱 IV

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

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


24812 / 76732 ←次へ | 前へ→

【57267】Re:複数のClickを1つのプログラムに集約したい 追伸の追伸
発言  ichinose  - 08/8/4(月) 8:25 -

引用なし
パスワード
   おはようございます。



新規ブックのユーザーフォームに(Userform1)に
テキストボックスを3つ配置してください。

  TextBox1、TextBox2、TextBox3

配置するコントロールは上記の3つでよいです。

クラスモジュールを作成してください(挿入----「クラスモジュール」)

クラス名は、既定の名前の Class1 とします。

このClass1のモジュールに

'=============================================================
Option Explicit
Public id As Long
Public WithEvents txt As MSForms.TextBox
Private Sub txt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  MsgBox "Textbox" & id & " = " & txt.Text
  Cancel = True
End Sub


Userform1のモジュールには、

'===============================================================
Option Explicit
Private t_class(1 To 3) As Class1
Private Sub UserForm_Initialize()
  Dim g0 As Long
  For g0 = 1 To 3
    With Controls("textbox" & g0)
     .PasswordChar = "*"
     .Text = Array("aaaa", "bbbb", "cccc")(g0 - 1)
     .Locked = True
     End With
    Set t_class(g0) = New Class1
    With t_class(g0)
     .id = g0
     Set .txt = Controls("textbox" & g0)
     End With
    Next
End Sub


標準モジュールには

'===========================================================
Sub main()
  UserForm1.Show
End Sub


でmainを実行してみてください

それぞれのテキストボックスには何か入力されていますが、

「***」 で隠されています。

各テキストボックスをダブルクリックすることでその内容が
表示される

という仕様です。

この例で クラスモジュールの使用でコードがまとめられることが
確認できますか?

試してみてください。
0 hits

【57237】複数のClickを1つのプログラムに集約したい takao 08/8/2(土) 16:50 質問
【57238】Re:複数のClickを1つのプログラムに集約し... kanabun 08/8/2(土) 17:01 発言
【57241】Re:複数のClickを1つのプログラムに集約し... takao 08/8/2(土) 17:24 お礼
【57242】Re:複数のClickを1つのプログラムに集約し... kanabun 08/8/2(土) 17:33 発言
【57243】Re:複数のClickを1つのプログラムに集約し... takao 08/8/2(土) 17:58 発言
【57246】Re:複数のClickを1つのプログラムに集約し... kanabun 08/8/2(土) 18:42 発言
【57240】Re:複数のClickを1つのプログラムに集約し... kanabun 08/8/2(土) 17:14 発言
【57248】Re:複数のClickを1つのプログラムに集約し... ichinose 08/8/2(土) 19:04 発言
【57249】Re:複数のClickを1つのプログラムに集約し... ichinose 08/8/2(土) 19:46 発言
【57250】Re:複数のClickを1つのプログラムに集約し... ichinose 08/8/2(土) 19:53 発言
【57266】Re:複数のClickを1つのプログラムに集約し... takao 08/8/4(月) 7:28 お礼
【57267】Re:複数のClickを1つのプログラムに集約し... ichinose 08/8/4(月) 8:25 発言
【57280】Re:複数のClickを1つのプログラムに集約し... takao 08/8/4(月) 20:32 お礼

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