Przykład 3 - Długość ze współrzędnych.
Projekt:
Obiekty mają zmienione następujące wartości cech:
Położenie i wielkość obiektów (w przybliżeniu) zgodnie z wyglądem
w oknie programu
Cecha NAME:
Okno ma nazwę P3
Przyciski mają nazwy odpowiednio  KONIEC_PRZ,;
DA
UGOŚĆ_PRZ, WYCZYŚĆ_PRZ
Etykiety mają nazwy odpowiednio  DA
UGOŚĆ_ETY, AUTOR_ETY a
pozostałe LABEL (1-5 - bez zmiany nazwy)
Pola tekstowe mają nazwy odpowiednio  .X1_TXT, Y1_TXT, X2_TXT, Y2_TXT
Pole obrazu ma nazwę RYSUNEK
Cecha TEXT
Wszystkie obiekty zgodnie z wyglądem w oknie programu
Cecha TEXTALIGN (wyrównanie)
Wszystkie pola tekstowe mają ustawione na wartość = Center (wartość wybierana z listy)
Dodatkowo:
Obiekt RYSUNEK ma zmienioną cechę:
Image  wstawiony szkic (plik typu *.JPG stworzony poza VB)
SizeMode  ustawioną na  StretchImage
Zmiany koloru tła i koloru napisu, oraz zmiany czcionki według
własnego uznania.
Pozostałe cechy obiektów zachowują wartości początkowe.
Kod programu:
Wpisujemy kod oznaczony kolorem niebieskim, pozostała część jest tworzona
automatycznie przez VB.
 Kolor zielony (poprzedzony Apostrofem) oznacza tekst komentarza.
Public Class p3
Dim x1, x2 As Single
Dim y1, y2 As Single
Private Sub koniec_prz_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles koniec_prz.Click
End
End Sub
Private Sub wyczyść_prz_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles wyczyść_prz.Click
x1_txt.Text = ""  Czyszczenie cechy TEXT pola tekstowego
y1_txt.Text = ""
Długość_ety.Text = ""  Czyszczenie cechy TEXT pola tekstowego
x2_txt.Text = ""
y2_txt.Text = ""
End Sub
Private Sub długość_prz_Click (ByVal sender As Object, ByVal e As System.EventArgs) Handles długość_prz.Click
Dim długość As Single
If (x1_txt.Text=  ) OR (x2_txt.Text=  ) OR (y1_txt.Text=  ) OR (y2_txt.Text=  ) then
MsgBox ( Błąd, jedna (lub więcej) współrzędna nie została wprowadzona )
Exit sub
End If
x1 = Val(x1_txt.Text)
 Pobranie wartości TEXT z pola tekstowego i konwersja na liczbę
x2 = Val(x2_txt.Text)
y1 = Val(y1_txt.Text)
y2 = Val(y2_txt.Text)
Długość = ((x2 - x1) ^ 2 + (y2 - y1) ^ 2) ^ 0.5
Długość_ety.Text = Format(długość, " 0.000 metrów ")
''Wypis obliczonej długości w polu etykiety z odpowiednim sformatowaniem
End Sub
End Class
Jan Ruchel
Kraków, paz
dziernik 2011