Nicola Pievani
15 lines
691 B
VB.net
15 lines
691 B
VB.net
Public Class FrmScelta
|
|
|
|
Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
|
|
Me.Hide()
|
|
End Sub
|
|
Private Sub FrmScelta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
LbSpessLastra.Text = Format(SpessLastra, "0") & " mm"
|
|
End Sub
|
|
Private Sub LbSpessLastra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LbSpessLastra.Click
|
|
NumPad.Text = Format(SpessLastra, "0") ' la stringa di uscita
|
|
NumPad.ShowDialog()
|
|
SpessLastra = Convert.ToDouble(NumPad.Text)
|
|
LbSpessLastra.Text = Format(SpessLastra, "0.0") & " mm"
|
|
End Sub
|
|
End Class |