Как да създадем графики и форми в "Visual Basic"

Стъпка 1

Отворете нов проект на Visual Basic, като използвате шаблона "Стандартен EXE", една от опциите, които се появяват, когато изберете нов проект. Запишете проекта и формата, когато го поискате като MyGraphicsDemo. Регулирайте височината на "Form1" в прозореца Properties с 5400 и ширината му с 6800.

Стъпка 2

Щракнете двукратно върху иконата "CommandButton" в колоната Toolbox вляво, за да я добавите във формуляра. Това е малък правоъгълник, който обикновено се поставя в дясната колона на инструментите и в третия ред отгоре. Маркерът се показва, когато задържите курсора над него. Кликнете върху бутона, за да фокусирате върху неговите "Properties" в прозореца отдясно и променете собствеността "Label", за да прочетете "Show me some colored dots!" без котировки. Променете свойството Height до 500 и Width to 3000.

Стъпка 3

Отворете прозорец с код, като кликнете върху "Преглед" и след това върху "Код" в най-горното ниво на менюто на Visual Basic. Първо коригирайте точките на екрана, размера и цвета с илюстративния код. След това променете настройките, за да научите какво можете да направите, като използвате само единични точки. В този код линиите "PSet" създават точки от различни цветове, а линиите с код, съдържащи "Rnd" дублират много точки с случайни места и цветове. Когато приключите, натиснете "F5", за да видите резултата.

Частна под команда1_Клик () BackColor = vbRed PSet (0, 0) PSet (15, 5), vbCyan PSet (20, 10), vbYellow CurrentX = 500: CurrentY = 500 За i = Следващо за i = 1 до 500 DrawWidth = Rnd * 5 +1 PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB (Rnd * 255, Rnd * 255, Rnd * 255) Следваща DrawWidth =

Стъпка 4

Създайте голям триъгълник, като използвате командата "Линия" в Visual Basic, която използва настройката за местоположение, за да изготви триъгълник. Добавете цветен правоъгълник с командата "Линия", използвайки различни точки на местоположението. Добавете още два CommandButtons към формуляра, както в стъпка 2. Променете свойствата на етикета, така че да се изписват съответно "Начертайте триъгълник" и "Начертайте правоъгълник". Може да се наложи да увеличите кутиите само като в стъпка 2. След това въведете следния код под предишните редове на кода. Когато приключите, натиснете "F5", за да го видите.

Линия (1500, 3000) - Стъпка (1000, 0), vbBlack Линия - стъпка (0, 1000), vbBlack Line - (1500, 3000) 1500) - Стъпка (2100, 1100), vbGreen, B End Sub

Стъпка 5

Начертайте кръг със следните редове от код. Начертайте елипси и дъги, като използвате същия процес. Тя просто променя размерите и мястото, където кръговете ще започнат и свършат. Разширявайки един аспект от кръга, го трансформирате в елипса и без да затваряте кръга, който създавате дъга. За да конфигурирате това, добавете още CommandButton, като го маркирате като "Начертайте кръг".

Частна команда Sub_Command4_Click () DrawWidth = 5 FillStyle = vbFSSolidFillColor = Цвят на vbCyan (2000, 2000), 1000, vbBlue End Sub