art11

Mam dla Was bardzo przydatne funkcje graficzne. Są one o tyle istotne, że nie mają
odpowiedników w wewnętrznej składni Visual Basic lub działają od nich znacznie
szybciej. Metody graficzne są zbyt powolne w bardziej zaawansowanych programach i nie
obsługują większości dostarczanych przez API efektów. Od razu wyjaśniam, że nie
będzie tu nic o funkcjach zawartych w bibliotekach pakietu DirectX. Będą to tylko API
zmieniające grafikę w typowych formularzach, bez inicjacji środowiska Direct Draw i
Direct3D.



SetPixel

Odpowiednik w składni VB: metoda PSet



Ta funkcja umożliwia zmianę koloru dowolnego punktu w formie. Oto kod w module
standardowym:



Public Declare Function SetPixel Lib "gdi32" (ByVal
hdc As Long, _

    ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long



Public Function SetCurrentColor(hdc As Long, X As Single, Y As Single, color As Long) As
String

    Dim a As Long

    a = SetPixel(hdc, WspółrzędnaX, WspółrzędnaY, kolor)

    SetCurrentColor = a

End Function



Kolor wpisujemy w kodzie heksadecymalnym. Położenie w osi X i Y wpisujemy w twipach. A
oto kod formy:



Private Sub Form_MouseUp(Button As Integer, Shift As Integer,
X As Single, Y As Single)

Call SetCurrentColor(Me.hdc, X, Y, 1234554)

End Sub



I to wszystko! Wartość współrzędnych X i Y możemy podać albo w module, albo w
formie. Nie zauważyłem różnicy.



StretchBlt

Odowiednik w składni VB: brak!



Jest to ciekawa funkcja. Umożliwia powiększanie, zmniejszanie i kopiowanie grafiki.
Podam tutaj przykład z płynnym powiększaniem obrazu (z VB4All). Oto kod (w formie - nie
trzeba pisać w module!):



Private Declare Function StretchBlt Lib "gdi32"
(ByVal hdc As Long, ByVal X As Long, _

    ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _

    ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, _

    ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As
Long) As Long

Private Declare Function SetStretchBltMode Lib "gdi32" (ByVal hdc As Long, _

    ByVal nStretchMode As Long) As Long



Const SRCCOPY = &HCC0020



Const STRETCH_ANDSCANS = 1

Const STRETCH_DELETESCANS = 3

Const STRETCH_HALFTONE = 4

Const STRETCH_ORSCANS = 2



To wpisujemy w sekcji General. Teraz tworzymy przycisk i dwa pola obrazu:
picPicture1 i picPicture2. Piszemy (w kodzie przycisku):



Dim X As Long

Dim i As Integer

Dim H1 As Integer, W1 As Integer

Dim hdc1 As Long, hdc2 As Long



W1 = picPicture1.ScaleWidth

H1 = picPicture1.ScaleHeight



hdc1 = picPicture1.hdc

hdc2 = picPicture2.hdc



X = SetStretchBltMode(picPicture2.hdc, STRETCH_DELETESCANS)



If X Then

    For i = 0 To 100

        X = StretchBlt(hdc2, 0, 0, W1 + i, H1 + i,
hdc1, 0, 0, W1, H1, SRCCOPY)

        picPicture2.Refresh

        DoEvents

    Next

End If



To dwie i najpopularniejsze funkcje API. Mogą się bardzo przydać przy pisaniu
programów graficznych.