Drugaciji oblici !!!

[ Nikolas_bg @ 26.11.2007. 14:09 ] @

Kako da u VB6 umesto standardnog oblika obrasca stavim neki proizvoljan oblik i boju,
npr. Trougao cija je pozadina providno plave boje.
Isto pitanje vazi i za dugmad .

[ Aleksandar Vasic @ 26.11.2007. 16:08 ] @

Imao si u top temi ovaj link..... VB Shaped Form Creator

[ Aleksandar Ružičić @ 26.11.2007. 16:40 ] @

e sad, ako hoces tu pozadinu providno plave boje, tj bilo kakvu providnu pozadinu (ali ne potpuno providnu) onda moras da koristis SetLayeredWindow api, ali to ti radi samo na windowsu 2000 i novijim (xp/vista a valjda i na 2k3/longhorn serverima)

[ Shadowed @ 26.11.2007. 17:12 ] @

Citat:

Aleksandar Ružičić: ...valjda i na 2k3/longhorn serverima)

Radi.

[ Nikolas_bg @ 26.11.2007. 21:06 ] @

Citat:

SetLayeredWindow

Je l' moze neki primer ?

[ Aleksandar Ružičić @ 26.11.2007. 23:18 ] @

nemam trenutno pri ruci kod, al evo nesto sto sam nasao na netu:

http://www.andreavb.com/tip050008.html

[ Rollback @ 08.12.2007. 09:24 ] @

Evo jedan primer za providnost obrasca u slucaju da problem nije resen:

Code:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&

Private Sub Form_Load()
Dim Level As String
    '
    'maksimalna vidljivost obrasca je 255
    'što je broj manji, to je obrazac providniji
    Level = 120
    Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
    Call SetLayeredWindowAttributes(Me.hwnd, 0, Level, LWA_ALPHA)
    '
End Sub

[ Nikolas_bg @ 14.12.2007. 20:04 ] @

Ovo ne funkcionise ...

[ Aleksandar Ružičić @ 14.12.2007. 20:45 ] @

hmm, meni radi. jeste da je greska u deklarisanju promenljive Level koja treba da je Byte a ne String, mada se vb ne buni

evo screenshot:

[ Nikolas_bg @ 15.12.2007. 14:39 ] @

Ok,sad i kod mene radi (nesto sam pogresio juce)...