輸入System.Collections.Generic
輸入System.Textの
インポートSystem.Runtime.InteropServices
パブリック・クラスをIniFile
文字列などの公共filePathに
<DLLIMPORT（ "kernel32の"）> _
プライベート共有機能WritePrivateProfileString（ByValの文字列、列、列、列としてByVal filePathにとしてByValヴァルとしてByValキーとしてセクション）限り
エンド機能
<DLLIMPORT（ "kernel32の"）> _
プライベート共有機能のGetPrivateProfileString（文字列としてByValセクション、文字列としてByValキー、BYVAL DEF文字列、StringBuilderのとしてByVal RETVAL、整数としてByValサイズ、文字列としてByVal filePathにとして）整数として
エンド機能
ます。Public Sub新（文字列としてByVal iniPath）
filePathに= iniPath
End Subの
公共のサブWriteIniValue（文字列、文字列としてByValキー、文字列としてByVal値としてByVal節）
WritePrivateProfileString（セクション、キー、値、Me.filePath）
End Subの
公共機能ReadIniValue（文字列としてByVal節、文字列としてByValキー）文字列として
新しいStringBuilderのとして暗いTEMP（255）
私は整数=のGetPrivateProfileString（セクション、キー、 ""、一時、255、Me.filePath）として暗いです
リターンtemp.ToString（）
エンド機能
エンドクラス
プライベートサブbt_read_Click（System.ObjectのとしてByVal送信者、System.EventArgsとしてByVal e）はbt_read.Clickを処理します
OpenFileDialog.Filter = "この文件（* .INI）| * .INI"
OpenFileDialog.ShowDialog = DialogResult.OK場合、
文字列= OpenFileDialog.FileNameとしてfilePathに薄暗いです
未filePath.EndsWith（ "iniファイル"）場合は、
MsgBox（「INIの最後にファイルを選択してください」）
場合終了
「設定ファイルを読み込みます
fileIni =新をIniFile（filePathに）
cmb_id.Text = fileIni.ReadIniValue（ "インプラント"、 "ID"）
cmb_use.Text = fileIni.ReadIniValue（ "インプラント"、 "使用"）
cmb_chnum.Text = fileIni.ReadIniValue（ "インプラント"、 "CHNUM"）
tb_mark.Text = fileIni.ReadIniValue（ "インプラント"、 "マーク"）
tb_devid.Text = fileIni.ReadIniValue（ "インプラント"、 "DEVID"）
tb_modid.Text = fileIni.ReadIniValue（ "インプラント"、 "MODID"）
cmb_timenum.Text = fileIni.ReadIniValue（ "インプラント"、 "Timenum"）
文字列=「CH」として薄暗いセクション
'（this.Controls [ "LABEL1" + s.ToString（）]ラベルなど）.XXX
fileIni.ReadIniValue（ "インプラント"、 "CHNUM"）= 1〜整数としてiが用
Me.Controls（ "gb_implantsChannleSetting" ＆I）.Controls（ "cmb_gain" ＆I）の.text = fileIni.ReadIniValue（セクション＆I、 "ゲイン"）
Me.Controls（ "gb_implantsChannleSetting" ＆I）.Controls（ "cmb_pole" ＆I）の.text = fileIni.ReadIniValue（セクション＆I、 "ポール"）
Me.Controls（ "gb_implantsChannleSetting" ＆I）.Controls（ "tb_zero" ＆I）の.text = fileIni.ReadIniValue（セクション＆I、 "ゼロ"）
Me.Controls（ "gb_implantsChannleSetting" ＆I）.Controls（ "tb_range" ＆I）は.text = fileIni.ReadIniValue（セクション＆I、 "範囲"）
Me.Controls（ "gb_implantsChannleSetting" ＆I）.Controls（ "tb_clear" ＆I）は.text = fileIni.ReadIniValue（セクション＆I、 "クリア"）
Me.Controls（ "gb_implantsChannleSetting" ＆I）.Controls（ "tb_v_u" ＆I）の.text = fileIni.ReadIniValue（セクション＆I、 "V / U"）
次
場合終了
End Subの
プライベートサブbt_save_Click（System.ObjectのとしてByVal送信者、System.EventArgsとしてByVal e）はbt_save.Clickを処理します
「コンフィギュレーション・ファイルを保存します
薄暗いfilePathにとして文字列=「setting.ini」
FolderBrowserDialog.ShowDialog = DialogResult.OK場合、
filePathに= FolderBrowserDialog.SelectedPath＆ "\" ＆filePathに
fileIni =新をIniFile（filePathに）
fileIni.WriteIniValue（ "インプラント"、 "ID"、cmb_id.Text）
fileIni.WriteIniValue（ "インプラント"、 "使用"、cmb_use.Text）
fileIni.WriteIniValue（ "インプラント"、 "CHNUM"、cmb_chnum.Text）
fileIni.WriteIniValue（ "インプラント"、 "マーク"、 "ox55"）
fileIni.WriteIniValue（ "インプラント"、 "DEVID"、tb_devid.Text）
fileIni.WriteIniValue（ "インプラント"、 "MODID"、tb_modid.Text）
fileIni.WriteIniValue（ "インプラント"、 "Timenum"、cmb_timenum.Text）
fileIni.WriteIniValue（ "CH1"、 "ゲイン"、cmb_gain1.Text）
fileIni.WriteIniValue（ "CH1"、 "ポール"、cmb_pole1.Text）
fileIni.WriteIniValue（ "CH1"、 "ゼロ"、tb_zero1.Text）
fileIni.WriteIniValue（ "CH1"、 "範囲"、tb_range1.Text）
fileIni.WriteIniValue（ "CH1"、 "クリア"、tb_clear1.Text）
fileIni.WriteIniValue（ "CH1"、 "V / U"、tb_v_u1.Text）
fileIni.WriteIniValue（ "CH2"、 "ゲイン"、cmb_gain2.Text）
fileIni.WriteIniValue（ "CH2"、 "ポール"、cmb_pole2.Text）
fileIni.WriteIniValue（ "CH2"、 "ゼロ"、tb_zero2.Text）
fileIni.WriteIniValue（ "CH2"、 "範囲"、tb_range2.Text）
fileIni.WriteIniValue（ "CH2"、 "クリア"、tb_clear2.Text）
fileIni.WriteIniValue（ "CH2"、 "V / U"、tb_v_u2.Text）
fileIni.WriteIniValue（ "CH3"、 "ゲイン"、cmb_gain3.Text）
fileIni.WriteIniValue（ "CH3"、 "ポール"、cmb_pole3.Text）
fileIni.WriteIniValue（ "CH3"、 "ゼロ"、tb_zero3.Text）
fileIni.WriteIniValue（ "CH3"、 "範囲"、tb_range3.Text）
fileIni.WriteIniValue（ "CH3"、 "クリア"、tb_clear3.Text）
fileIni.WriteIniValue（ "CH3"、 "V / U"、tb_v_u3.Text）
fileIni.WriteIniValue（ "CH4"、 "ゲイン"、cmb_gain4.Text）
fileIni.WriteIniValue（ "CH4"、 "ポール"、cmb_pole4.Text）
fileIni.WriteIniValue（ "CH4"、 "ゼロ"、tb_zero4.Text）
fileIni.WriteIniValue（ "CH4"、 "範囲"、tb_range4.Text）
fileIni.WriteIniValue（ "CH4"、 "クリア"、tb_clear4.Text）
fileIni.WriteIniValue（ "CH4"、 "V / U"、tb_v_u4.Text）
場合終了