VB.NET質問ｽﾚ (Part10)

VB.NET質問ｽﾚ (Part10)at TECH

VB.NET質問ｽﾚ (Part10) - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

400:デフォルトの名無しさん
 05/03/24 10:50:52 
仕様。

401:デフォルトの名無しさん
 05/03/24 11:41:14 
>>400 
ﾄﾝｸｽ

402:デフォルトの名無しさん
 05/03/24 12:30:08 
>>393です。 
みなさんありがとうございます。 
結果、下記のようになりました。 
    Private Function GetButton(ByVal a_str As String) As Button 
        Dim objControl As Control 
        Dim btn As Button 
        Dim strWork As String 
        For Each objControl In Me.Controls 
            If objControl.GetType Is GetType(Button) Then 
                btn = CType(objControl, Button) 
                strWork = btn.Name 
                If strWork = a_str Then 
                    GetButton = objControl 
                    Exit For 
                End If 
            End If 
        Next 
    End Function

403:デフォルトの名無しさん
 05/03/24 16:59:07 
俺のやり方が正しいかわかんないけど､ 
ボタンコントロールがたくさんあるなら､デザイナからも設定できるけど､プロパティにTagってのがあるでしょ。 
そこに、1とか、2とか番号振っといて､ 
For Each C as Control In Me.Controls 
　　　If TypeOf C Is Button Then 
　　　　　　If C.Tag.ToString = "1" Then 
　　　　　　　　Btn=DirectCast(C,Button) 
　　　　　　End If 
　　　End If 
Next 
試してはいないです。

次ページ