Results 1 to 3 of 3

Thread: [RESOLVED] can my.settings be made neater???????

  1. #1

    Thread Starter
    Fanatic Member
    Join Date
    Dec 2009
    Posts
    547

    Resolved [RESOLVED] can my.settings be made neater???????

    since property binding is not working with radio buttons well i am manually writing the code.

    seems messy though

    vb Code:
    1. Private Sub UpdateRadioButtonsDocumentationSettings()
    2.         If rbMsdnDocumentation.Checked Then
    3.             My.Settings.MsdnDocumentation = True
    4.             My.Settings.VbForumsDocumentation = False
    5.             My.Settings.XtremeVbDocumentation = False
    6.             My.Settings.GoogleDocumentation = False
    7.         ElseIf rbForums.Checked Then
    8.             My.Settings.MsdnDocumentation = False
    9.             My.Settings.XtremeVbDocumentation = False
    10.             My.Settings.VbForumsDocumentation = True
    11.             My.Settings.GoogleDocumentation = False
    12.         ElseIf rbXtremeVbTalk.Checked Then
    13.             My.Settings.MsdnDocumentation = False
    14.             My.Settings.XtremeVbDocumentation = True
    15.             My.Settings.VbForumsDocumentation = False
    16.             My.Settings.GoogleDocumentation = False
    17.         Else
    18.             My.Settings.GoogleDocumentation = True
    19.             My.Settings.MsdnDocumentation = False
    20.             My.Settings.XtremeVbDocumentation = False
    21.             My.Settings.VbForumsDocumentation = False
    22.         End If
    23.     End Sub

    can it be cleaned up?

  2. #2
    I'm about to be a PowerPoster! kleinma's Avatar
    Join Date
    Nov 2001
    Location
    NJ - USA (Near NYC)
    Posts
    23,373

    Re: can my.settings be made neater???????

    How about this:
    Code:
        Private Sub UpdateRadioButtonsDocumentationSettings()
    
            My.Settings.MsdnDocumentation = rbMsdnDocumentation.Checked
            My.Settings.VbForumsDocumentation = rbForums.Checked
            My.Settings.XtremeVbDocumentation = rbXtremeVbTalk.Checked
            My.Settings.GoogleDocumentation = Not (rbMsdnDocumentation.Checked Or rbForums.Checked Or rbXtremeVbTalk.Checked)
    
        End Sub

  3. #3

    Thread Starter
    Fanatic Member
    Join Date
    Dec 2009
    Posts
    547

    Re: can my.settings be made neater???????

    /silly face. Superflousing my statements like that

    should hang my head in shame. thanks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width