FUNKCJA ODPOWIEDZIALNA ZA CIENIOWANIE WYGL?DA TAK :
Public Function DrawShade(F As Form)
Dim wysokosc_paska&, start&, niebieski%
F.AutoRedraw = True
F.DrawWidth = 3
wysokosc_paska& = F.ScaleHeight / 255
F.Show 'pokazuje form1
For niebieski% = 0 To 254
F.Line (0, start&)-(F.ScaleWidth, start& + wysokosc_paska&), RGB(0, 0, 255 - niebieski%), B
start& = start& + wysokosc_paska&
Next
End Function
WKLEJAMY J? DO SEKCJI General - Declarations
WYWO?UJEMY PODAJ?C JEJ NAZW? WRAZ Z NAZW? FORMULARZA KTÓRY MA BY?
CIENIOWANY
NP. : DrawShade Form1
OPIS :
Public Function DrawShade(F As Form) - TO JEST DEKLARACJI FUNKCJI, PARAMETREM TEJ
FUNKCI B?DZIE
FORMULARZ (F As Form)
TERAZ DEKLARACJA KILKU POTRZEBNYCH ZMIENNYCH :
Dim wysokosc_paska&, start&, niebieski%
wysokosc_paska& - TA ZMIENNA B?DZIE PRZECHOWYWA? WYSOK?? PASKA Z POJEDYNCZYM
ODCIENIEM
start& - ZMIENNA KTÓRA PRZECHOWUJE POZYCJ? POCZ?TKU RYSOWANIA LINII
niebieski% - TEJ ZMIENNEJ PÓ?NIEJ PRZYPORZ?DKUJEMY ZMIAN? ODCIENI NIEBIESKIEGO
F.AutoRedraw = True - TA W?A?CIWO?? OKRE?LA, ?E PO ZMIANIE WIELKO?CI FORMULARZA
B?D?CEGO PARAMETREM (F) FUNKCJI, PASKI NIE ZOSTAN? ZAMAZANE ( SPRÓBUJ ZMIENI?
NA False I ZMIENI? ROZMIAR OKNA )
F.DrawWidth = 3 - USTAL GRUBO?? RYSOWANEJ LINII DLA FORMULARZA B?D?CEGO
PARAMETREM (F ) FUNKCJINA 3 PIXELE
wysokosc_paska& = F.ScaleHeight / 255 - ZMIENNA wysokosc_paska& B?DZIE MIA?A TAK?
WART?? , ABY NA EKRANIE MOG?Y ZMIE?CI? SI? WSZYSTKIE ODCIENIE NIEBIESKIEGO
F.Show - POKAZUJE FORMULARZ, GDYBY PRZYPAD
KIEM BY? NIEWIDOCZNY
TERAZ SEDNO SPRAWY
For niebieski% = 0 To 254
F.Line (0, start&)-(F.ScaleWidth, start& + wysokosc_paska&), RGB(0, 0, 255 - niebieski%), B
start& = start& + wysokosc_paska&
Next
TA P?TLA PRZYPORZ?DKOWUJE ZMIENNEJ niebieski% WARTO?CI OD 0 DO 254
NAST?PNIE
F.Line (0, start&)-(F.ScaleWidth, start& + wysokosc_paska&), RGB(0, 0, 255 - niebieski%), B
LINIA B?DZIE RYSOWANA OD MIEJSCA (X1 , Y1), A U NAS JEST TO (0, start&) ( JESZCZE
DOK?ADNIEJ, NA POCZ?TKU P?TLI B?DZIE TO (0,0) , PONIEWA? ZMIENNEJ start& NIC
WCZE?NIEJ NIE PRZYPISALI?MY ) DO MIEJSCA (X2 ,Y2), U NAS (F.ScaleWidth, start& +
wysokosc_paska&), CZYLI X2 B?DZIE RÓWNE SZEROKO?CI FORMULARZA F.ScaleWidth
B?D?CEGO PARAMETREM FUNKCJI (F). Y2 B?DZIE NATOMIAST RÓWNE start& +
wysokosc_paska&, CZYLI NA POCZ?TKU P?TLI B?DZIE TO 0 + WYSO
KO?? PASKA Z ODCIENIEM
RGB(0, 0, 255 - niebieski%) - JEST TO OKRE?LENIE KOLORU RGB (Red , Green , Blue), CZYLI
WRAZ ZE ZMIAN? ZMIENNEJ niebieski% B?D? ZMIENIA? SI? ODCIENIE OD JASNEGO
NIEBIESKIEGO DO CZARNEGO
ANALIZUJMY DALEJ
start& = start& + wysokosc_paska&
PO NARYSOWANIU LINII, ZMIENNA start& (Y1) ZMIENI SW? WARTO?? O WYSOKO?? PASKA Z
ODCIENIEM, CZYLI KOLEJNA LINIA B?DZIE RYSOWANA ZARAZ POD POPRZEDNI?.
Next
PO TEJ LINII, ZMIENNA niebieski% ZMIENI SW? WARTO?? O 1, I CA?A ZABAWA Z
RYSOWANIEM LINII ROZPOCZNIE SI? OD POCZ?TKU Z NOWYMI WARTO?CIAMI.
GDY ZMIENNA niebieski% OSI?GNIE WARTO?? 254, P?TLA ZAKO?CZY SI?.
A TU MASZ GOTOWY PRZYK?AD
JESTEM CZ?OWIEKIEM (CHYBA ), WI?C MOG? SIE MYLI?. JE?ELI ZAUWA?Y?E? B?AD NAPISZ .
przyk?ad 1
przyk?ad 2
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
