Public Class Form1
Private Sub czysc()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
czysc()
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim v As Double = TextBox1.Text
czysc()
If v < 7.9 Then
PictureBox1.Visible = True
ElseIf v < 11.2 Then
PictureBox2.Visible = True
ElseIf v < 16.7 Then
PictureBox3.Visible = True
ElseIf v < 130 Then
PictureBox4.Visible = True
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
End Class
Offline