INI file

[BT]

Hi Dave,

    This is what I posted earlier this week but took out the Combobox init.
Example:
Section Key = myVoiceName, 
Key = "Tone", 
Default = "L"


    Case "btn_combo_save"
     If dEvent = buttonClicked Then
     ' Do this to iniFile directly:
      Dim letter: letter = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
      INIFile(myINIFile).Text( myVoiceName, "Tone", "L") = Mid( letter, 
dObj.Control( "cmb_tone").SelectedItem, 1)
      INIFile(myINIFile).Number( myVoiceName, "Rate", 62) = dObj.Control( 
"cmb_rate").SelectedItem
      INIFile(myINIFile).Number( myVoiceName, "Pitch", 3) = dObj.Control( 
"cmb_pitch").SelectedItem - 1
      INIFile(myINIFile).Number( myVoiceName, "Volume", 9) = dObj.Control( 
"cmb_volume").SelectedItem - 1
      dObj.Close 'Triggers closing process.
     End If
     VoiceDialogProc = True
     Exit Function

  Sub SetComboBox()
   ' Set focus or check each appropriate comboBox id here.
   myVoiceDialog.Control( "cmb_tone").SelectedItem = Instr( letter, 
INIFile(myINIFile).Text( myVoiceName, "Tone", "L"))
   myVoiceDialog.Control( "cmb_rate").SelectedItem = INIFile(myINIFile).Number( 
myVoiceName, "Rate", 62)
   myVoiceDialog.Control( "cmb_pitch").SelectedItem = 
INIFile(myINIFile).Number( myVoiceName, "Pitch", 2) + 1
   myVoiceDialog.Control( "cmb_volume").SelectedItem = 
INIFile(myINIFile).Number( myVoiceName, "Volume", 9) + 1
  End Sub