タイトル : Re^2: xmlファイル作成 投稿日 : 2005/01/21(Fri) 16:25 投稿者 : るしぇ
面白いコードだw 名前の付け方とかに制限は残るけど、↓こんな考え方でカバーできそうかな? Dim comboBoxi As ComboBox Dim textBoxi As TextBox Dim wCtrl As Control For Each wCtrl In Me.Controls If wCtrl.Name.StartsWith("comboBox") Then comboBoxi = DirectCast(wCtrl, ComboBox) ElseIf wCtrl.Name.StartsWith("textBox") Then textBoxi = DirectCast(wCtrl, TextBox) End If Next …あー、でも↑だと comboBoxi に対応する textBoxi を探さないといけないのか… もう一工夫必要だねぇ… |