Ako vytvoriť Grafika a tvary v jazyku Visual Basic

Tvorba grafiky a tvarov v jazyku Visual Basic ( VB ) , začína nevyhnutných programovacích krokoch kresliť jednoduché prvky , ako sú body , priamky , obdĺžniky , kruhy , elipsy a oblúky . Kombináciou týchto prvkov v rôznych spôsoboch a formách , môžu zložitej grafiky sa zobrazí na obrazovke počítača . Tento proces si vyžaduje pracné písania počítačového kódu v neprítomnosti sofistikovaného grafického softvéru , ale je celkom dobre možné pomocou stavebných blokov tu popísané . Veci , ktoré budete potrebovať
Visual Basic 6.0
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte nový projekt Visual Basic pomocou " Štandardné EXE " šablónu , jedna z možností , ktoré sa objavujú keď si vyberiete nový projekt . Uložte projekt a formulár po výzve ako MyGraphicsDemo . Nastavte " Form1 " Výška v okne Vlastnosti na 5.400 a šírka až 6800 .
2

Dvakrát kliknite na ikonu " CommandButton " v ľavom stĺpci Toolbox pridať do formulára . Jedná sa o malý obdĺžnik zvyčajne sa nachádza v pravom stĺpci nástrojov a tretina z vrcholu . Štítok sa objaví , keď dáte kurzor na neho . Kliknite na tlačidlo sústrediť sa na " Vlastnosti " v okne na pravej strane a zmeniť " Titulok " vlastnosť čítať : " Ukáž mi nejaké farebné body ! " Bez vstupu do úvodzoviek . Zmeniť vlastnosť Výška 500 a Šírka vlastnosť 3000 .
3

Otvorte okno kód kliknutím na " Zobraziť " a potom " kód " v jazyku Visual Basic v ponuke na najvyššej úrovni . Nastavte umiestnenie bodov na obrazovke , veľkosti a farby prvý s ilustratívny kódu . Potom meniť nastavenia sa dozvedieť , čo je možné používať len jednotlivé body . V tomto kódexe sa " pset " linky vytvoriť rôzne farebných bodiek , zatiaľ čo riadky kódu , ktoré obsahujú " Rnd " duplikovať najviac bodov v náhodných farieb a umiestnenia . Až budete hotoví , stlačte " F5 " vidieť výsledok

Private Sub Command1_Click ( ) Barvapozadí = vbRedPSet ( 0 , 0 ) pset ( 15 , 5 ) , vbCyanPSet ( 20 , 10 ) , vbYellowCurrentX = 500 : . Ktoré v súčasnej dobe = 500For i = 1 To 20PSet kroku ( 0 , 0 ) NextFor i = 1 až 500DrawWidth = Rnd * 5 + 1PSet ( Rnd * ScaleWidth , Rnd * ScaleHeight ) , RGB ( Rnd * 255 , Rnd * 255 , Rnd * 255 ) NextDrawWidth = 1End Sub
4

Vytvorte si veľký trojuholník pomocou " Line " Visual Basic príkaz , ktorý používa nastavenie umiestnenia nakresliť trojuholník . Pridajte farebný obdĺžnik z príkazového riadku pomocou rôznych umiestnení bodov . Pridať ďalšie dve CommandButtons forme ako v kroku 2. Zmeniť vlastnosti Titulok na čítanie " nakresliť trojuholník " a " nakreslite obdĺžnik " , resp . Možno budete musieť rozšíriť krabice ako v kroku 2. Potom zadajte nasledujúci kód pod predchádzajúcimi riadky kódu . Až budete hotoví , stlačte tlačidlo " F5 " pre zobrazenie klipart

Private Sub Command2_Click ( ) Linka ( 1500 , 3000 ) - . Step ( 1000 , 0 ) , vbBlackLine - Step ( 0 , 1000 ) , vbBlackLine - ( 1500 , 3000 ) , vbBlackEnd SubPrivate Sub Command3_Click ( ) Linka ( 1200 , 1500 ) - Step ( 2100 , 1100 ) , vbGreen , ohýbať Sub
5

Nakreslite kruh s nasledujúcimi riadky kódu . Kreslenie elíps a oblúkov používa rovnaký proces , stačí zmeniť rozmery a kde kruhy začiatok a koniec . Rozšírením jeden aspekt kruhu , môžete ho otočiť do elipsy , a tým , že uzavretie kruhu , urobíte oblúk . Ak chcete toto nastavenie , pridať ešte jeden CommandButton , označovanie tento " Nakreslite kruh " .

Private Sub Command4_Click ( ) DrawWidth = 5FillStyle = vbFSSolidFillColor = vbCyanCircle ( 2000 , 2000 ) , 1000 , vbBlueEnd Sub

• Predchádzajúca strana: Ako používať viac hovorov v rámci jazyka 
• Ďalšia strana: Ako previesť dátum na reťazec vo VB6