Jak tworzyć grafikę i kształty w "Visual Basic"
Krok 1
Otwórz nowy projekt Visual Basic, korzystając z szablonu "Standard EXE", jednej z opcji wyświetlanych po wybraniu nowego projektu. Zapisz projekt i formularz, gdy poprosisz o to jako MyGraphicsDemo. Dostosuj wysokość "Form1" w oknie Właściwości za pomocą 5400 i szerokości 6800.
Krok 2
Kliknij dwukrotnie ikonę "CommandButton" w kolumnie Toolbox po lewej stronie, aby dodać ją do formularza. Jest to mały prostokąt, który zwykle umieszcza się w prawej kolumnie narzędzi iw trzecim rzędzie od góry. Tag pojawi się, gdy najedziesz na niego kursorem. Kliknij przycisk, aby skupić się na jego "Właściwościach" w oknie po prawej stronie i zmień właściwość "Etykieta" na "Pokaż mi kolorowe kropki". bez cytatów. Zmień właściwość Wysokość na 500 i Szerokość na 3000.
Krok 3
Otwórz okno kodu, klikając "Widok", a następnie "Kod" na najwyższym poziomie menu Visual Basic. Najpierw dostosuj punkty lokalizacji na ekranie, rozmiar i kolor za pomocą kodu ilustrującego. Następnie zmień ustawienia, aby dowiedzieć się, co możesz zrobić, używając tylko pojedynczych punktów. W tym kodzie linie "PSet" tworzą punkty o różnych kolorach, a linie kodu zawierające "Rnd" powtarzają wiele punktów z losowymi miejscami i kolorami. Po zakończeniu naciśnij "F5", aby zobaczyć wynik.
Private Sub Command1_Click () BackColor = vbRed PSet (0, 0) PSet (15, 5), vbCyan PSet (20, 10), vb YellowX = 500: CurrentY = 500 For i = 1 To 20 PSet Step (0, 0) Dalej Dla i = 1 Do 500 DrawWidth = Rnd * 5 + 1 PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB (Rnd * 255, Rnd * 255, Rnd * 255) Next DrawWidth = 1 End Sub
Krok 4
Utwórz duży trójkąt za pomocą polecenia "Linia" w Visual Basic, który wykorzystuje ustawienie lokalizacji do narysowania trójkąta. Dodaj kolorowy prostokąt za pomocą polecenia Linia, korzystając z różnych punktów lokalizacji. Dodaj do formularza kolejne dwa CommandButtons, jak w kroku 2. Zmień właściwości etykiety tak, aby zawierało odpowiednio "Draw a triangle" i "Draw a rectangle". Możesz tylko powiększyć pola, jak w kroku 2. Następnie wprowadź poniższy kod pod poprzednimi liniami kodu. Po zakończeniu naciśnij "F5", aby go zobaczyć.
Private Sub Command2_Click () Line (1500, 3000) - Step (1000, 0), vbBlack Line - Step (0, 1000), vbBlack Line - (1500, 3000), vbBlack End Sub Private Sub Command3_Click () Linia (1200, 1500) - Krok (2100, 1100), vbGreen, B End Sub
Krok 5
Narysuj okrąg z poniższymi liniami kodu. Rysuj elipsy i łuki, używając tego samego procesu. Po prostu modyfikuje wymiary i miejsce, w którym zaczynają się i kończą koła. Rozszerzając jeden aspekt koła, przekształcasz go w elipsę i bez zamykania koła tworzysz łuk. Aby to skonfigurować, dodaj więcej CommandButton, oznaczając go jako "Draw a circle".
Private Sub Command4_Click () DrawWidth = 5 FillStyle = vbFSSolid FillColor = vbCyan Circle (2000, 2000), 1000, vbBlue End Sub
