开发的一些系统，经常要求支持多语言（例如日文，英文等），以前大部分做法是创建一个资源文件，

将每一个标签，按钮等标题文字预先用各种语言设定保存好，

在程序中根据选择的语言来显示对应文字。

这样做的缺点是如果每次改动或增加一个控件，都需要程序开发人员刻意做多语言对应，

如果用户想要改某些标题的描述，还需要开发人员改动资源文件并替换到程序发布目录。

经过调查实验，最终想了一个办法来较好地对应此问题：

在每一个web页面，设定一个只有最高级的管理权限才能看到的一个按钮（例如叫“设定”），

来负责画面上各固定标题的设置，只要点击这个按钮，就通过控件遍历的方法来显示该页面上所有希望控制的

控件（比如Label，button，gridview，linkbutton等）， 将其各种语言的内容显示到一个小页面上，让用户自己设定，

然后保存到DB。下次打开时就按照DB设定好的内容初期化页面控件的标题。

最终用户可自由设定，也无需开发人员不停修改。

画面效果如下：

点击“设定”

下面举例，循环设定页面中控件（TextBox，DropDownList等）不可用的代码：

复制代码 代码如下:

Public Shared Sub LoopingControlsDisabled(ByVal oControl As Control)

Dim frmCtrl As Control

Dim btn As Button

For Each frmCtrl In oControl.Controls

If TypeOf frmCtrl Is TextBox Then

DirectCast(frmCtrl, TextBox).Enabled = False

End If

If TypeOf frmCtrl Is DropDownList Then

DirectCast(frmCtrl, DropDownList).Enabled = False

End If

If TypeOf frmCtrl Is CheckBox Then

DirectCast(frmCtrl, CheckBox).Enabled = False

End If

If TypeOf frmCtrl Is RadioButton Then

DirectCast(frmCtrl, RadioButton).Enabled = False

End If

If TypeOf frmCtrl Is FileUpload Then

DirectCast(frmCtrl, FileUpload).Enabled = False

End If

If TypeOf frmCtrl Is Button Then

btn = DirectCast(frmCtrl, Button)

'If btn.Text.Equals("关闭") OrElse btn.ID.Equals("btnClose") Then

If btn.ID.Equals("btnClose") Then

'仅关闭按钮可用

btn.Enabled = True

Else

btn.Enabled = False

End If

End If

If frmCtrl.HasControls Then

LoopingControlsDisabled(frmCtrl)

End If

Next

End Sub