有如下ui和代码,每次运行程序后还需要去系统变量设置的地方按下确定才能生效
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim variable_name As String = "UGII_LANG"
Dim variable_value As String = "simpl_chinese"
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", variable_name, variable_value)
'My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Environment", variable_name, variable_value)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim variable_name As String = "UGII_LANG"
Dim variable_value As String = "english"
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", variable_name, variable_value)
End Sub
End Class