Jak vytvořit grafiku a tvary v jazyce "Visual Basic"

Krok 1

Otevřete nový projekt jazyka pomocí šablony Standard EXE, což je jedna z možností, která se zobrazí při výběru nového projektu. Uložit projekt a formulář, když o to požádáte jako MyGraphicsDemo. Upravte výšku "Form1" v okně Vlastnosti s parametrem 5400 a jeho šířkou 6800.

Krok 2

Poklepáním na ikonu "CommandButton" ve sloupci Nástroje vlevo ji přidejte do formuláře. Jedná se o malý obdélník, který je obvykle umístěn v pravém sloupci nástrojů a ve třetím řadě shora. Značka se zobrazí, když nad ní umístíte ukazatel myši. Klepnutím na tlačítko se zaměřte na jeho "Vlastnosti" v okně vpravo a změňte vlastnost "Label" a přečtěte "Zobrazit některé barevné tečky!" bez uvozovek. Změňte vlastnost Výška na 500 a Šířku na 3000.

Krok 3

Otevřete okno s kódem klepnutím na tlačítko "Zobrazit" a potom na "Kód" v horní úrovni nabídky jazyka. Nejprve nastavte body umístění na obrazovce, velikost a barvu pomocí ilustračního kódu. Potom změňte nastavení, abyste zjistili, co můžete dělat pomocí jediného bodu. V tomto kódu čáry "PSet" vytvářejí body různých barev, zatímco řádky kódu obsahující "Rnd" duplikují mnoho bodů s náhodnými místy a barvami. Po dokončení stiskněte tlačítko "F5" pro zobrazení výsledku.

Soukromé podřízené příkazy1_Click () BackColor = vbRed PSet (0, 0) PSet (15, 5), vbCyan PSet (20, 10), vbYellow CurrentX = 500: CurrentY = 500 Pro i = Další pro I = 1 až 500 DrawWidth = Rnd * 5 + 1 PSet (Rnd * ScaleWidth, Rnd * ScaleHeight), RGB (Rnd * 255, Rnd * 255, Rnd * 255)

Krok 4

Vytvořte velký trojúhelník pomocí příkazu "Line" v jazyce Visual Basic, který používá nastavení umístění pro kreslení trojúhelníku. Přidávejte barevný obdélník příkazem Line pomocí různých míst. Přidejte další dva příkazové řádky do formuláře jako v kroku 2. Změňte vlastnosti štítku tak, že se zobrazí "Nakreslete trojúhelník" a "Nakreslete obdélník". Potřebujete pouze zvětšit políčka jako v kroku 2. Potom zadejte následující kód pod předchozí řádky kódu. Po dokončení stiskněte klávesu "F5" a uvidíte jej.

Soukromý podřízený příkaz Command2_Click () Řádek (1500, 3000) - Krok (1000, 0), vbBlack Line - Krok (0, 1000), vbBlack Line (1500, 3000) 1500) - Krok (2100, 1100), vbGreen, B End Sub

Krok 5

Nakreslete kružnici s následujícími řádky kódu. Nakreslete elipsy a oblouky stejným procesem. Jednoduše upravuje rozměry a místo, kde kruhy začnou a končí. Rozšířením jednoho aspektu kruhu jej přeměníte na elipsu a bez uzavření kruhu vytvoříte oblouk. Chcete-li to nakonfigurovat, přidejte další CommandButton a označte jej jako "Vytáhněte kruh".

Soukromé podřízené příkazy4_Click () DrawWidth = 5 FillStyle = vbFSSolid FillColor = Kruh vbCyan (2000, 2000), 1000, vbBlue End Sub