タイトル : Re: 質問の続きですが・・ 投稿日 : 2008/04/15(Tue) 16:25 投稿者 : リル
ComboBoxに入力した内容をiniファイルに書き込みたいということでしょうか? Combo1を作成後、以下のソースを試してみてください。 ※iniファイルのバックアップ(コンボに入力された内容で書き換えるので)はとっておいてください。 Private priIndex As Integer Private Sub Form_Load() Combo1.AddItem "Key1" Combo1.AddItem "Key2" Combo1.AddItem "Key3" Combo1.ListIndex = 0 End Sub Private Sub Combo1_Click() priIndex = Combo1.ListIndex End Sub Private Sub Combo1_Change() Select Case priIndex Case 0 Call WritePrivateProfileString("Section1", "Key1", Combo1.Text, App.Path & "\File.ini") Case 1 Call WritePrivateProfileString("Section1", "Key2", Combo1.Text, App.Path & "\File.ini") Case 2 Call WritePrivateProfileString("Section1", "Key3", Combo1.Text, App.Path & "\File.ini") End Select End Sub |