- 733 名前：最凶VB厨房 mailto:sage [2005/10/22(土) 20:51:25 ]
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const kome As String = "*"
Dim c As Control
For Each c In Me.Controls'フォームのコントロール全部に対して
If c.GetType() Is GetType(TextBox) Then'テキストボックス型のものなら
Dim t As TextBox
t = CType(c, TextBox)'コントロールをテキストボックスとして扱って
t.Text = kome'テキストプロパティに*をセット
End If
Next'していく
End Sub'とかネ
