开发的一些系统,经常要求支持多语言(例如日文,英文等),以前大部分做法是创建一个资源文件,
将每一个标签,按钮等标题文字预先用各种语言设定保存好,
在程序中根据选择的语言来显示对应文字。
这样做的缺点是如果每次改动或增加一个控件,都需要程序开发人员刻意做多语言对应,
如果用户想要改某些标题的描述,还需要开发人员改动资源文件并替换到程序发布目录。
经过调查实验,最终想了一个办法来较好地对应此问题:
在每一个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
新闻热点
疑难解答
图片精选