118 lines
5.2 KiB
VB.net
118 lines
5.2 KiB
VB.net
Public Class FormNastavitve
|
|
|
|
Private Sub FormNastavitve_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If My.Settings.Stolpci = 0 Then
|
|
RadioButton1.Checked = True
|
|
ElseIf My.Settings.Stolpci = 1 Then
|
|
RadioButton2.Checked = True
|
|
End If
|
|
|
|
If My.Settings.DecimalnoLocilo = "Pika" Then
|
|
RadioButton3.Checked = True
|
|
ElseIf My.Settings.DecimalnoLocilo = "Vejica" Then
|
|
RadioButton4.Checked = True
|
|
End If
|
|
|
|
TextBoxStoj.Text = My.Settings.KodaStojisce.ToString
|
|
TextBoxStojInfo.Text = My.Settings.KodaStojisceInfo.ToString
|
|
TextBoxOriHz.Text = My.Settings.KodaStojisceOri.ToString
|
|
TextBoxQuickSet.Text = My.Settings.KodaQuickSet.ToString
|
|
TextBoxSetAzi.Text = My.Settings.KodaSetAzi.ToString
|
|
TextBoxRes.Text = My.Settings.KodaResection.ToString
|
|
TextBoxFree.Text = My.Settings.KodaFreeStation.ToString
|
|
TextBoxOriHt.Text = My.Settings.KodaOriHtTrans.ToString
|
|
TextBoxMeasOri.Text = My.Settings.KodaMeasOri.ToString
|
|
TextBoxMeas.Text = My.Settings.KodaMeas.ToString
|
|
TextBoxImport.Text = My.Settings.KodaUserImport.ToString
|
|
TextBoxLog.Text = My.Settings.DatLogfile.ToString
|
|
|
|
LabelFontInfo.Text = My.Settings.Pisava + " / " + My.Settings.PisavaVelikost.ToString
|
|
|
|
End Sub
|
|
Private Sub FormNastavitve_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
|
|
|
|
If RadioButton1.Checked = True Then
|
|
My.Settings.Stolpci = 0
|
|
End If
|
|
|
|
If RadioButton2.Checked = True Then
|
|
My.Settings.Stolpci = 1
|
|
End If
|
|
|
|
If RadioButton3.Checked = True Then
|
|
My.Settings.DecimalnoLocilo = "Pika"
|
|
End If
|
|
|
|
If RadioButton4.Checked = True Then
|
|
My.Settings.DecimalnoLocilo = "Vejica"
|
|
End If
|
|
|
|
My.Settings.KodaStojisce = TextBoxStoj.Text
|
|
My.Settings.KodaStojisceInfo = TextBoxStojInfo.Text
|
|
My.Settings.KodaStojisceOri = TextBoxOriHz.Text
|
|
My.Settings.KodaQuickSet = TextBoxQuickSet.Text
|
|
My.Settings.KodaSetAzi = TextBoxSetAzi.Text
|
|
My.Settings.KodaResection = TextBoxRes.Text
|
|
My.Settings.KodaFreeStation = TextBoxFree.Text
|
|
My.Settings.KodaOriHtTrans = TextBoxOriHt.Text
|
|
My.Settings.KodaMeasOri = TextBoxMeasOri.Text
|
|
My.Settings.KodaMeas = TextBoxMeas.Text
|
|
My.Settings.KodaUserImport = TextBoxImport.Text
|
|
My.Settings.DatLogfile = TextBoxLog.Text
|
|
|
|
My.Settings.Save()
|
|
|
|
Form1.DatotekaLogfile = My.Settings.DatLogfile
|
|
Form1.RichTextBox1.Font = New Font(My.Settings.Pisava, My.Settings.PisavaVelikost)
|
|
End Sub
|
|
Private Sub ButtonOdpriLog_Click(sender As Object, e As EventArgs) Handles ButtonOdpriLog.Click
|
|
If SaveFileDialogLog.ShowDialog = DialogResult.OK Then
|
|
TextBoxLog.Text = SaveFileDialogLog.FileName.ToString
|
|
My.Settings.DatLogfile = SaveFileDialogLog.FileName.ToString
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ButtonFont_Click(sender As Object, e As EventArgs) Handles ButtonFont.Click
|
|
Dim fontdia1 = FontDialog1.Font.Name = My.Settings.Pisava
|
|
Dim fontdia2 = FontDialog1.Font.Size = My.Settings.PisavaVelikost
|
|
|
|
If FontDialog1.ShowDialog = DialogResult.OK Then
|
|
My.Settings.Pisava = FontDialog1.Font.Name
|
|
My.Settings.PisavaVelikost = FontDialog1.Font.Size
|
|
LabelFontInfo.Text = My.Settings.Pisava + " / " + My.Settings.PisavaVelikost.ToString
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub IzvoziKodeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzvoziKodeToolStripMenuItem.Click
|
|
Dim dataNast As String = ""
|
|
|
|
dataNast = dataNast + "KodaStojisce = " + My.Settings.KodaStojisce + vbCrLf
|
|
dataNast = dataNast + "KodaStojisceInfo = " + My.Settings.KodaStojisceInfo + vbCrLf
|
|
dataNast = dataNast + "KodaStojisceOri = " + My.Settings.KodaStojisceOri + vbCrLf
|
|
dataNast = dataNast + "KodaQuickSet = " + My.Settings.KodaQuickSet + vbCrLf
|
|
dataNast = dataNast + "KodaSetAzi = " + My.Settings.KodaSetAzi + vbCrLf
|
|
dataNast = dataNast + "KodaResection = " + My.Settings.KodaResection + vbCrLf
|
|
dataNast = dataNast + "KodaFreeStation = " + My.Settings.KodaFreeStation + vbCrLf
|
|
dataNast = dataNast + "KodaOriHtTrans = " + My.Settings.KodaOriHtTrans + vbCrLf
|
|
dataNast = dataNast + "KodaMeasOri = " + My.Settings.KodaMeasOri + vbCrLf
|
|
dataNast = dataNast + "KodaMeas = " + My.Settings.KodaMeas + vbCrLf
|
|
dataNast = dataNast + "KodaUserImport = " + My.Settings.KodaUserImport + vbCrLf
|
|
|
|
If SaveFileDialogNast.ShowDialog = DialogResult.OK Then
|
|
My.Computer.FileSystem.WriteAllText(SaveFileDialogNast.FileName, dataNast, False)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ZapriToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZapriToolStripMenuItem.Click
|
|
Me.Close()
|
|
|
|
End Sub
|
|
|
|
Private Sub UvoziKodeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UvoziKodeToolStripMenuItem.Click
|
|
' TODO: Uvoz nastavitev iz datototeke
|
|
End Sub
|
|
|
|
Private Sub ButtonShraniZapri_Click(sender As Object, e As EventArgs) Handles ButtonShraniZapri.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |