您可以在这里快速查找：

文章分类

---

Java技术
2005: 03 04 05 06 07 08
09 10 11 12
2006: 01 02

Asp.net
2005: 07 08 09 10 11 12
2006: 01 02

VB编程
2006: 02

Asp编程
2005: 11 12
2006: 01 02

C++/VC
2005: 10 11 12
2006: 01 02

Delphi
2005: 12
2006: 01 02

其它

 本文章适合所有读者

[初学VB.net]如何通过控件的名称来控制控件

usersmj

     Imports System.Reflection

   Dim i As Integer
        Dim namestr As String
        For i = 0 To dataset_system.Tables("Company").Columns.Count - 1
            namestr = ""
            namestr = "Txt_Company_" & dataset_system.Tables("Company").Columns.Item(i).Caption
            Dim t As Type = Me.GetType
            Dim f As FieldInfo = t.GetField("_" & namestr, BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.Public)
            If dataset_system.Tables("Company").Columns.Item(i).Caption = "国际社" Then
                Dim MyControl As CheckBox = CType(f.GetValue(Me), CheckBox)
                MyControl.Enabled = chg
            Else
                Dim MyControl As TextBox = CType(f.GetValue(Me), TextBox)
                MyControl.Enabled = chg
            End If
        Next

---------------------------------------------------------------------------------

FieldInfo 概述

公共属性