How to reset Windows Application's default programmaticall y?

[Nina]

Hi Everyone,

I have made a windows application using vb.net 2003. When user opens this
application it will display a default location in a textbox. This
application has to allow user to change the default location and set their
desired location as application’s new default. For instance, if the
application’s default location is Chicago, every time user launches this
program Chicago will be displayed in the textbox. If user changes the
default location to Toronto, then click a button to set Toronto as default.
Later when user opens this application again, it should display Toronto
instead of Chicago. How can I achieve this? Please help.

Thank you in advance.

Nina

[IdleBrain]

Hey Nina,
You might want to use windows registry to do this.
Use SaveSetting() to store the setting into registry and GetSetting to
retreive it back.

Use SaveSetting("Ap plicationName", "FolderName ", "City", "Chicago") to
store after user selects a different city.

Use txtboxCityName. text = GetSetting("App licationName", "FolderName ",
"City", "DefaultVal ue") when you load the form to fill up the textbox

Hope it helps.

[rowe_newsgroups]

Another option is to use XML files. Check out the XML document object
model. Be warned that this approach is more difficult to set up and
requires more code to use. Just throwing in my 2 cents :-)

Thanks,

Seth Rowe

IdleBrain wrote:

Hey Nina,
You might want to use windows registry to do this.
Use SaveSetting() to store the setting into registry and GetSetting to
retreive it back.

Use SaveSetting("Ap plicationName", "FolderName ", "City", "Chicago") to
store after user selects a different city.

Use txtboxCityName. text = GetSetting("App licationName", "FolderName ",
"City", "DefaultVal ue") when you load the form to fill up the textbox

Hope it helps.

[Izzy]

I agree with rowe_newsgroups , XML is how I would do it.

Using XML isn't hard either. I use the code below to do exactly this.

Private Sub LoadSettings()

Dim dsSettings as new Dataset
Dim dtSettings as Datatable
Dim SettingsPath As String = Application.Sta rtupPath & "\" &
My.Settings.Ser verSettingsFile

dsSettings.Data SetName = "ServerSettings "

If IO.File.Exists( SettingsPath) Then
dsSettings.Read Xml(SettingsPat h)
dtSettings = dsSettings.Tabl es("HardDriveSe ttings")

Else

Dim dcSN As New DataColumn 'Server Name
Dim dcDTM As New DataColumn 'Drive to monitor.
Dim dcFSTH As New DataColumn 'Free Space Threshhold in GBs
Dim drSettings As DataRow

dcSN.ColumnName = "ServerName "
dcSN.DataType = GetType(System. String)
dcDTM.ColumnNam e = "DriveLeter "
dcDTM.DataType = GetType(System. String)
dcFSTH.ColumnNa me = "FreeSpaceThres hHold"
dcFSTH.DataType = GetType(System. Int32)

dtSettings = New DataTable
dtSettings.Tabl eName = "HardDriveSetti ngs"

dtSettings.Colu mns.Add(dcSN)
dtSettings.Colu mns.Add(dcDTM)
dtSettings.Colu mns.Add(dcFSTH)

drSettings = dtSettings.NewR ow
drSettings(0) = "stc-dc"
drSettings(1) = "D:"
drSettings(2) = 15
dtSettings.Rows .Add(drSettings )

End If

End Sub

In the above example I created a settings file for a program which
monitors hard drive space on production servers. Using XML to store the
list of servers to be monitored along with the dirve letter and free
space setting.

In your case after you load the settings using dsSettings.Read Xml(Path)
and after your users make a change you would then call
dsSettings.Writ eXml(Path) to write the change to disk.

Izzy

rowe_newsgroups wrote:

Another option is to use XML files. Check out the XML document object
model. Be warned that this approach is more difficult to set up and
requires more code to use. Just throwing in my 2 cents :-)

Thanks,

Seth Rowe

IdleBrain wrote:

Hey Nina,
You might want to use windows registry to do this.
Use SaveSetting() to store the setting into registry and GetSetting to
retreive it back.

Use SaveSetting("Ap plicationName", "FolderName ", "City", "Chicago") to
store after user selects a different city.

Use txtboxCityName. text = GetSetting("App licationName", "FolderName ",
"City", "DefaultVal ue") when you load the form to fill up the textbox

Hope it helps.

[Izzy]

I agree with rowe_newsgroups , XML is how I would do it.

Using XML isn't hard either. I use the code below to do exactly this.

Private Sub LoadSettings()

Dim dsSettings as new Dataset
Dim dtSettings as Datatable
Dim SettingsPath As String = Application.Sta rtupPath & "\" &
My.Settings.Ser verSettingsFile

dsSettings.Data SetName = "ServerSettings "

If IO.File.Exists( SettingsPath) Then
dsSettings.Read Xml(SettingsPat h)
dtSettings = dsSettings.Tabl es("HardDriveSe ttings")

Else

Dim dcSN As New DataColumn 'Server Name
Dim dcDTM As New DataColumn 'Drive to monitor.
Dim dcFSTH As New DataColumn 'Free Space Threshhold in GBs
Dim drSettings As DataRow

dcSN.ColumnName = "ServerName "
dcSN.DataType = GetType(System. String)
dcDTM.ColumnNam e = "DriveLeter "
dcDTM.DataType = GetType(System. String)
dcFSTH.ColumnNa me = "FreeSpaceThres hHold"
dcFSTH.DataType = GetType(System. Int32)

dtSettings = New DataTable
dtSettings.Tabl eName = "HardDriveSetti ngs"

dtSettings.Colu mns.Add(dcSN)
dtSettings.Colu mns.Add(dcDTM)
dtSettings.Colu mns.Add(dcFSTH)

drSettings = dtSettings.NewR ow
drSettings(0) = "stc-dc"
drSettings(1) = "D:"
drSettings(2) = 15
dtSettings.Rows .Add(drSettings )

End If

End Sub

In the above example I created a settings file for a program which
monitors hard drive space on production servers. Using XML to store the
list of servers to be monitored along with the dirve letter and free
space setting.

In your case after you load the settings using dsSettings.Read Xml(Path)
and after your users make a change you would then call
dsSettings.Writ eXml(Path) to write the change to disk.

Izzy

rowe_newsgroups wrote:

Another option is to use XML files. Check out the XML document object
model. Be warned that this approach is more difficult to set up and
requires more code to use. Just throwing in my 2 cents :-)

Thanks,

Seth Rowe

IdleBrain wrote:

Hey Nina,
You might want to use windows registry to do this.
Use SaveSetting() to store the setting into registry and GetSetting to
retreive it back.

Use SaveSetting("Ap plicationName", "FolderName ", "City", "Chicago") to
store after user selects a different city.

Use txtboxCityName. text = GetSetting("App licationName", "FolderName ",
"City", "DefaultVal ue") when you load the form to fill up the textbox

Hope it helps.

[Nina]

Thank you IdleBrain, rowe_newsgroups , and Izzy for all your help. Now I know
where to start. Have a nice day!

Nina

"Izzy" wrote:

I agree with rowe_newsgroups , XML is how I would do it.

Using XML isn't hard either. I use the code below to do exactly this.

Private Sub LoadSettings()

Dim dsSettings as new Dataset
Dim dtSettings as Datatable
Dim SettingsPath As String = Application.Sta rtupPath & "\" &
My.Settings.Ser verSettingsFile

dsSettings.Data SetName = "ServerSettings "

If IO.File.Exists( SettingsPath) Then
dsSettings.Read Xml(SettingsPat h)
dtSettings = dsSettings.Tabl es("HardDriveSe ttings")

Else

Dim dcSN As New DataColumn 'Server Name
Dim dcDTM As New DataColumn 'Drive to monitor.
Dim dcFSTH As New DataColumn 'Free Space Threshhold in GBs
Dim drSettings As DataRow

dcSN.ColumnName = "ServerName "
dcSN.DataType = GetType(System. String)
dcDTM.ColumnNam e = "DriveLeter "
dcDTM.DataType = GetType(System. String)
dcFSTH.ColumnNa me = "FreeSpaceThres hHold"
dcFSTH.DataType = GetType(System. Int32)

dtSettings = New DataTable
dtSettings.Tabl eName = "HardDriveSetti ngs"

dtSettings.Colu mns.Add(dcSN)
dtSettings.Colu mns.Add(dcDTM)
dtSettings.Colu mns.Add(dcFSTH)

drSettings = dtSettings.NewR ow
drSettings(0) = "stc-dc"
drSettings(1) = "D:"
drSettings(2) = 15
dtSettings.Rows .Add(drSettings )

End If

End Sub

In the above example I created a settings file for a program which
monitors hard drive space on production servers. Using XML to store the
list of servers to be monitored along with the dirve letter and free
space setting.

In your case after you load the settings using dsSettings.Read Xml(Path)
and after your users make a change you would then call
dsSettings.Writ eXml(Path) to write the change to disk.

Izzy

rowe_newsgroups wrote:

Another option is to use XML files. Check out the XML document object
model. Be warned that this approach is more difficult to set up and
requires more code to use. Just throwing in my 2 cents :-)

Thanks,

Seth Rowe

IdleBrain wrote:

Hey Nina,
You might want to use windows registry to do this.
Use SaveSetting() to store the setting into registry and GetSetting to
retreive it back.
>
Use SaveSetting("Ap plicationName", "FolderName ", "City", "Chicago") to
store after user selects a different city.
>
Use txtboxCityName. text = GetSetting("App licationName", "FolderName ",
"City", "DefaultVal ue") when you load the form to fill up the textbox
>
Hope it helps.

[GhostInAK]

Hello Izzy,

I don't like this approach. Datasets dont feel right for storing application
settings. A custom object would be a better approach. It feels better.
It also allows your settings to take advantage of strongly typed data, and
intellisense within the IDE.

-Boo

I agree with rowe_newsgroups , XML is how I would do it.

Using XML isn't hard either. I use the code below to do exactly this.

Private Sub LoadSettings()

Dim dsSettings as new Dataset
Dim dtSettings as Datatable
Dim SettingsPath As String = Application.Sta rtupPath & "\" &
My.Settings.Ser verSettingsFile
dsSettings.Data SetName = "ServerSettings "

If IO.File.Exists( SettingsPath) Then
dsSettings.Read Xml(SettingsPat h)
dtSettings = dsSettings.Tabl es("HardDriveSe ttings")
Else

Dim dcSN As New DataColumn 'Server Name
Dim dcDTM As New DataColumn 'Drive to monitor.
Dim dcFSTH As New DataColumn 'Free Space Threshhold in GBs
Dim drSettings As DataRow
dcSN.ColumnName = "ServerName "
dcSN.DataType = GetType(System. String)
dcDTM.ColumnNam e = "DriveLeter "
dcDTM.DataType = GetType(System. String)
dcFSTH.ColumnNa me = "FreeSpaceThres hHold"
dcFSTH.DataType = GetType(System. Int32)
dtSettings = New DataTable
dtSettings.Tabl eName = "HardDriveSetti ngs"
dtSettings.Colu mns.Add(dcSN)
dtSettings.Colu mns.Add(dcDTM)
dtSettings.Colu mns.Add(dcFSTH)
drSettings = dtSettings.NewR ow
drSettings(0) = "stc-dc"
drSettings(1) = "D:"
drSettings(2) = 15
dtSettings.Rows .Add(drSettings )
End If

End Sub

In the above example I created a settings file for a program which
monitors hard drive space on production servers. Using XML to store
the list of servers to be monitored along with the dirve letter and
free space setting.

In your case after you load the settings using
dsSettings.Read Xml(Path) and after your users make a change you would
then call dsSettings.Writ eXml(Path) to write the change to disk.

Izzy

rowe_newsgroups wrote:

>Another option is to use XML files. Check out the XML document
object model. Be warned that this approach is more difficult to set
up and requires more code to use. Just throwing in my 2 cents :-)

Thanks,

Seth Rowe

IdleBrain wrote:

>>Hey Nina,
You might want to use windows registry to do this.
Use SaveSetting() to store the setting into registry and GetSetting
to
retreive it back.
Use SaveSetting("Ap plicationName", "FolderName ", "City", "Chicago")
to store after user selects a different city.

Use txtboxCityName. text = GetSetting("App licationName",
"FolderName ", "City", "DefaultVal ue") when you load the form to fill
up the textbox

Hope it helps.