VB.NET質問ｽﾚ (Part10)at TECHVB.NET質問ｽﾚ (Part10) - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト404:デフォルトの名無しさん 05/03/24 18:25:27 >>403 あーTagですか。 他社製品のコンポーネントでtagを使用してたのに Windows標準のコンポーネントでのTagの存在、 全く気づきませんでした。 軽く見ると、もしかしてコントロールには すべてTagがついてそうで、 そのやり方の方が短くていいかも。 やってみたら、５行も短くなりました。 さんくす。 Private Function GetButton(ByVal a_str As String) As Button Dim objControl As Control Dim btn As Button For Each objControl In Me.Controls If objControl.Tag = a_str Then GetButton = objControl Exit For End If Next End Function 405:デフォルトの名無しさん 05/03/24 19:11:53 ここはバカが結構いるインターネッツですよね？ 406:デフォルトの名無しさん 05/03/24 19:12:29 そんなに自分を責めるなよ。 407:デフォルトの名無しさん 05/03/24 21:00:36 いや、実際バカばかりだよな。 全員がそうではないけど。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch