VB.NET中设置my.setting 值是变量怎样设置?
项目--属性--设置里面：
名称：ConnectionString
类型：链接支付串
范围：应用程序
值：？？？？（如何设置变量）
值--我希望是一个函数的返回值getconn（varea）
函数
Public Function getconn(ByVal area As String)
Dim iOraDB As String
Select Case area
Case "上海"
iOraDB = "Data Source=1pos;Persist Security Info=True;User ID=1pos;Password=1pos;Unicode=True"
Case "南京"
iOraDB = "Data Source=2pos;Persist Security Info=True;User ID=2pos;Password=2pos;Unicode=True"
Case Else
iOraDB = ""
End Select
Return iOraDB
End Function
Namespace My
'This class allows you to handle specific events on the settings class:
' The SettingChanging event is raised before a setting's value is changed.
' The PropertyChanged event is raised after a setting's value is changed.
' The SettingsLoaded event is raised after the setting values are loaded.
' The SettingsSaving event is raised before the setting values are saved.
Partial Friend NotInheritable Class MySettings
'这个事件是在保存的时候触发的事件，将定义的一个属性赋值给另一个
Private Sub SettingsSavingEventHandler(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Me.SettingsSaving
Me("ConnectionString") = My.Settings.StrConn 'ConnectionString 只读 ， StrConn 可读，也可以是全局变量
End Sub
'加载的时候将值赋给只读的 ConnectionString
Private Sub Settings_SettingsLoaded(ByVal sender As Object, ByVal e As System.Configuration.SettingsLoadedEventArgs) Handles Me.SettingsLoaded
Me("ConnectionString") = My.Settings.StrConn 'StrConn 赋值给只读的ConnectionString
End Sub
End Class
End Namespace
