mviop.blogg.se

If FolderBrowserDialog.ShowDialog = DialogResult.OK ThenįilePath = FolderBrowserDialog.SelectedPath & "\" & filePathįileIni.WriteIniValue("Implants", "id", cmb_id.Text)įileIni.WriteIniValue("Implants", "use", cmb_use.Text)įileIni.WriteIniValue("Implants", "Chnum", cmb_chnum.Text)įileIni.WriteIniValue("Implants", "Mark", "ox55")įileIni.WriteIniValue("Implants", "DevId", tb_devid.Text)įileIni.WriteIniValue("Implants", "ModId", tb_modid.Text)įileIni.WriteIniValue("Implants", "Timenum", cmb_timenum.Text)įileIni.WriteIniValue("CH1", "gain", cmb_gain1.Text)įileIni.WriteIniValue("CH1", "pole", cmb_pole1.Text)įileIni.WriteIniValue("CH1", "Zero", tb_zero1.Text)įileIni.WriteIniValue("CH1", "Range", tb_range1.Text)įileIni.WriteIniValue("CH1", "Clear", tb_clear1.Text)įileIni.WriteIniValue("CH1", "V/U", tb_v_u1.Text)įileIni.WriteIniValue("CH2", "gain", cmb_gain2.Text)įileIni.WriteIniValue("CH2", "pole", cmb_pole2.Text)įileIni.WriteIniValue("CH2", "Zero", tb_zero2.Text)įileIni.WriteIniValue("CH2", "Range", tb_range2.Text)įileIni.WriteIniValue("CH2", "Clear", tb_clear2.Text)įileIni.WriteIniValue("CH2", "V/U", tb_v_u2.Text)įileIni.WriteIniValue("CH3", "gain", cmb_gain3.Text)įileIni.WriteIniValue("CH3", "pole", cmb_pole3.Text)įileIni.WriteIniValue("CH3", "Zero", tb_zero3.Text)įileIni.WriteIniValue("CH3", "Range", tb_range3.Text)įileIni.WriteIniValue("CH3", "Clear", tb_clear3.Text)įileIni.WriteIniValue("CH3", "V/U", tb_v_u3.Text)įileIni.WriteIniValue("CH4", "gain", cmb_gain4.Text)įileIni.WriteIniValue("CH4", "pole", cmb_pole4.Text)įileIni.WriteIniValue("CH4", "Zero", tb_zero4.Text)įileIni.WriteIniValue("CH4", "Range", tb_range4.Text)įileIni.WriteIniValue("CH4", "Clear", tb_clear4.Text)įileIni.WriteIniValue("CH4", "V/U", tb_v_u4.Dim myDESProvider As DESCryptoServiceProvider = New DESCryptoServiceProvider() Private Sub bt_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save.Click Me.Controls("gb_implantsChannleSetting" & i).Controls("tb_v_u" & i).Text = fileIni.ReadIniValue(section & i, "V/U") Me.Controls("gb_implantsChannleSetting" & i).Controls("tb_clear" & i).Text = fileIni.ReadIniValue(section & i, "Clear")

Me.Controls("gb_implantsChannleSetting" & i).Controls("tb_range" & i).Text = fileIni.ReadIniValue(section & i, "Range") Me.Controls("gb_implantsChannleSetting" & i).Controls("tb_zero" & i).Text = fileIni.ReadIniValue(section & i, "Zero") Me.Controls("gb_implantsChannleSetting" & i).Controls("cmb_pole" & i).Text = fileIni.ReadIniValue(section & i, "pole") Me.Controls("gb_implantsChannleSetting" & i).Controls("cmb_gain" & i).Text = fileIni.ReadIniValue(section & i, "gain")

' (this.Controls as Label).xxxįor i As Integer = 1 To fileIni.ReadIniValue("Implants", "Chnum") Tb_modid.Text = fileIni.ReadIniValue("Implants", "ModId")Ĭmb_timenum.Text = fileIni.ReadIniValue("Implants", "Timenum") Tb_devid.Text = fileIni.ReadIniValue("Implants", "DevId") Tb_mark.Text = fileIni.ReadIniValue("Implants", "Mark") MsgBox("Please select a file ending in INI")Ĭmb_id.Text = fileIni.ReadIniValue("Implants", "id")Ĭmb_use.Text = fileIni.ReadIniValue("Implants", "use")Ĭmb_chnum.Text = fileIni.ReadIniValue("Implants", "Chnum") If OpenFileDialog.ShowDialog = DialogResult.OK Thenĭim filePath As String = OpenFileDialog.FileName

Private Sub bt_read_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_read.Click Public Function ReadIniValue(ByVal Section As String, ByVal Key As String) As Stringĭim i As Integer = GetPrivateProfileString(Section, Key, "", temp, 255, Me.filePath)

WritePrivateProfileString(Section, Key, value, Me.filePath) Public Sub WriteIniValue(ByVal Section As String, ByVal Key As String, ByVal value As String) Private Shared Function GetPrivateProfileString(ByVal section As String, ByVal key As String, ByVal def As String, ByVal retVal As StringBuilder, ByVal size As Integer, ByVal filePath As String) As Integer Private Shared Function WritePrivateProfileString(ByVal section As String, ByVal key As String, ByVal val As String, ByVal filePath As String) As Long