/// <summary>
/// 设置app.config中的Language的value.
/// </summary>
/// <param name="AppKey">key</param>
/// <param name="AppValue">value</param>
public void SetLanguageValue(string AppKey, string AppValue)
{
XmlDocument xDoc = new XmlDocument()
string configpath = System.Reflection.Assembly.GetExecutingAssembly().CodeBase + ".config"
string path = configpath.Substring(8)
//此处配置文件在程序目录下
xDoc.Load(path)
XmlNode xNode
XmlElement xElem1
XmlElement xElem2
xNode = xDoc.SelectSingleNode("//appSettings")
xElem1 = (XmlElement)xNode.SelectSingleNode("//add[@key='" + AppKey + "']")
if (xElem1 != null)
{
xElem1.SetAttribute("value", AppValue)
}
else
{
xElem2 = xDoc.CreateElement("add")
xElem2.SetAttribute("key", AppKey)
xElem2.SetAttribute("value", AppValue)
xNode.AppendChild(xElem2)
}
xDoc.Save(path)
}
public void SetCurrentLanguageIMG()
{
设置调用的资源文件语言包
switch (OctoSTPNet.Method.Language.LanguageType)
{
case "zh-CHS":
{
menuSChinese1.Checked = Janus.Windows.UI.InheritableBoolean.True
menuEnglish.Checked = Janus.Windows.UI.InheritableBoolean.False
menuTChinese.Checked = Janus.Windows.UI.InheritableBoolean.False
// menuSChinese.Image = OctoSTPNet.Properties.Resources.Tip
//menuEnglish.Image = null
//menuTChinese.Image = null
}
break
case "zh-TW":
{
menuSChinese1.Checked = Janus.Windows.UI.InheritableBoolean.False
menuEnglish.Checked = Janus.Windows.UI.InheritableBoolean.False
menuTChinese.Checked = Janus.Windows.UI.InheritableBoolean.True
}
break
default:
{
menuSChinese1.Checked = Janus.Windows.UI.InheritableBoolean.False
menuEnglish.Checked = Janus.Windows.UI.InheritableBoolean.True
menuTChinese.Checked = Janus.Windows.UI.InheritableBoolean.False
}
break
}
}
private void englishToolStripMenuItem_Click_1(object sender, Janus.Windows.UI.CommandBars.CommandEventArgs e)
{
SetLanguageValue("LanguageType", "EN")
menuSChinese1.Checked = Janus.Windows.UI.InheritableBoolean.False
menuEnglish.Checked = Janus.Windows.UI.InheritableBoolean.True
menuTChinese.Checked = Janus.Windows.UI.InheritableBoolean.False
MessageBoxManager.Show("Please Re-Start OctO to view new Language!", "OctO-Change Language")
}
private void chinaCHSToolStripMenuItem_Click_1(object sender, Janus.Windows.UI.CommandBars.CommandEventArgs e)
{
SetLanguageValue("LanguageType", "zh-CHS")
menuSChinese1.Checked = Janus.Windows.UI.InheritableBoolean.True
menuEnglish.Checked = Janus.Windows.UI.InheritableBoolean.False
menuTChinese.Checked = Janus.Windows.UI.InheritableBoolean.False
MessageBoxManager.Show("Please Re-Start OctO to view new Language!", "OctO-Change Language")
}
private void chinaTWToolStripMenuItem_Click_1(object sender, Janus.Windows.UI.CommandBars.CommandEventArgs e)
{
SetLanguageValue("LanguageType", "zh-TW")
menuSChinese1.Checked = Janus.Windows.UI.InheritableBoolean.False
menuEnglish.Checked = Janus.Windows.UI.InheritableBoolean.False
menuTChinese.Checked = Janus.Windows.UI.InheritableBoolean.True
MessageBoxManager.Show("Please Re-Start OctO to view new Language!", "OctO-Change Language")
}
#endregion
private void Form3_KeyPress(object sender, KeyPressEventArgs e){
if (e.KeyChar>=(char)48 &&e.KeyChar<=(char)58)
{
MessageBox.Show("数字:" + e.KeyChar)
}
else
{
MessageBox.Show("字符:" + e.KeyChar)
}
}
强制类型转换在VB.NET中用Ctype()函数实现的。Dim drv As DataRowView = CType(comboBox1.SelectedItem, DataRowView)
另外:comboBox1.SelectedItem 不是 string 类型,而是 object 类型。ComboBox 下拉显示文字是通过调用 Object.ToString() 方法实现的。