29 lines
1.0 KiB
VB.net
29 lines
1.0 KiB
VB.net
|
Public Class FormIzracunMeasure
|
|||
|
|
Private Sub FormIzracunMeasure_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|||
|
|
ComboBox1.SelectedIndex = 0
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
|||
|
|
Dim cb = ComboBox1.Text
|
|||
|
|
Select Case cb
|
|||
|
|
Case "Red Laser"
|
|||
|
|
TextBox9.Text = "+0.0344"
|
|||
|
|
TextBox9.Enabled = False
|
|||
|
|
Label11.Enabled = False
|
|||
|
|
Case "Leica Circ. Prism"
|
|||
|
|
TextBox9.Text = "+0.0000"
|
|||
|
|
TextBox9.Enabled = False
|
|||
|
|
Label11.Enabled = False
|
|||
|
|
Case "Leica Mini Prism"
|
|||
|
|
TextBox9.Text = "+0.0175"
|
|||
|
|
TextBox9.Enabled = False
|
|||
|
|
Label11.Enabled = False
|
|||
|
|
Case "Vnos konstante..."
|
|||
|
|
TextBox9.Text = "+0.0000"
|
|||
|
|
TextBox9.Enabled = True
|
|||
|
|
Label11.Enabled = True
|
|||
|
|
Case Else
|
|||
|
|
|
|||
|
|
End Select
|
|||
|
|
End Sub
|
|||
|
|
End Class
|