VB.NET中设置my.setting 值是变量怎样设置?
项目--属性--设置里面：
名称：ConnectionString
类型：链接支付串
范围：应用程序
值：？？？？（如何设置变量）

值--我希望是一个函数的返回值getconn（varea）

函数

VB.NET code

 
  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 
 

[解决办法]
可以“项目--属性--设置”里面添加，也可在配置文件中添加，如
名称 类型 范围 值
Shanghai Shanghai Shanghai Data Source=1pos;Persist Security Info=True;User ID=1pos;Password=1pos;Unicode=True
获取My.Settings.Shanghai的值
[解决办法]
范围：应用程序 这种setting是只读的，要是用User的类型才可以。
这个setting保存在C:\Documents and Settings下对应的用户目录下。
[解决办法]
对了，光赋值不行，还要调用Save才可以，这样关闭程序后，下次同一个用户运行还可以取得内容。
[解决办法]
在代码里面修改它的属性为可读的。
在setting.setting 页面的左上脚点击查看代码，
下面代码参考

VB.NET code

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