/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Transparet
Fra : Henrik C


Dato : 17-02-03 15:20

Hej NG
hvordan gør jeg min form gennemsigtig (Transparent)
jeg har kigget i MSDN men der kommer jo mange hit for en begynder. det er
kun formen der skal være gennemsigtig.
mvh Henrik C



 
 
Jens Vestergaard (17-02-2003)
Kommentar
Fra : Jens Vestergaard


Dato : 17-02-03 16:02

"Henrik C" <cichosz@nospamtdcadsl.dk> skrev i en meddelelse
news:b2qr23$fr9$1@sunsite.dk...
> Hej NG
> hvordan gør jeg min form gennemsigtig (Transparent)
> jeg har kigget i MSDN men der kommer jo mange hit for en begynder. det er
> kun formen der skal være gennemsigtig.

Nedenstående kode gor det, omend ikke altid lige godt. Men til en start..



Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TRANSPARENT = &H20
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Private Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE

Private Const HWND_NOTOPMOST = -2

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 SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter _
As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long

Private Sub cmdTrans_Click()
Me.ShowInTaskbar = False
Me.BorderStyle = 0

'// Make the form transparent
SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT

'// Put it on top
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME

End Sub


--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
www.railsoft.dk
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp



Henrik C (17-02-2003)
Kommentar
Fra : Henrik C


Dato : 17-02-03 17:08


> Hej NG
> > hvordan gør jeg min form gennemsigtig (Transparent)
> > jeg har kigget i MSDN men der kommer jo mange hit for en begynder. det
er
> > kun formen der skal være gennemsigtig.
>
> Nedenstående kode gor det, omend ikke altid lige godt. Men til en start..
>
>
>
> Private Const GWL_EXSTYLE = (-20)
> Private Const WS_EX_TRANSPARENT = &H20
> Private Const SWP_FRAMECHANGED = &H20
> Private Const SWP_NOMOVE = &H2
> Private Const SWP_NOSIZE = &H1
>
> Private Const SWP_SHOWME = SWP_FRAMECHANGED Or _
> SWP_NOMOVE Or SWP_NOSIZE
>
> Private Const HWND_NOTOPMOST = -2
>
> 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 SetWindowPos Lib "user32" _
> (ByVal hwnd As Long, ByVal hWndInsertAfter _
> As Long, ByVal x As Long, ByVal y As Long, _
> ByVal cx As Long, ByVal cy As Long, _
> ByVal wFlags As Long) As Long
>
> Private Sub cmdTrans_Click()
> Me.ShowInTaskbar = False
> Me.BorderStyle = 0
>
> '// Make the form transparent
> SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
>
> '// Put it on top
> SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME
>
> End Sub
>
jeg vil lige sige det er i vb6 jeg får en fejlmeddelse når jeg bruger
overstående kode
mvh Henrik C



BT (17-02-2003)
Kommentar
Fra : BT


Dato : 17-02-03 17:29


"Henrik C" <cichosz@nospamtdcadsl.dk> skrev i en meddelelse
news:b2r1c7$p7n$1@sunsite.dk...
>
> > Hej NG
> > > hvordan gør jeg min form gennemsigtig (Transparent)
> > > jeg har kigget i MSDN men der kommer jo mange hit for en begynder. det
> er
> > > kun formen der skal være gennemsigtig.
> >
> > Nedenstående kode gor det, omend ikke altid lige godt. Men til en
start..
> >
> >
> >
> > Private Const GWL_EXSTYLE = (-20)

KLIP

> '// Put it on top
> > SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME
> >
> > End Sub
> >
> jeg vil lige sige det er i vb6 jeg får en fejlmeddelse når jeg bruger
> overstående kode
> mvh Henrik C
>
>
Fjern Me.ShowInTaskbar = False
SÅ kommer der igen fejlmeddelse

Brian



Jens Vestergaard (17-02-2003)
Kommentar
Fra : Jens Vestergaard


Dato : 17-02-03 17:36

"Henrik C" <cichosz@nospamtdcadsl.dk> skrev i en meddelelse
news:b2r1c7$p7n$1@sunsite.dk...
[SNIP kodeforslag]

> >
> jeg vil lige sige det er i vb6 jeg får en fejlmeddelse når jeg bruger
> overstående kode

Det er nyttigt - hvis man vil have hjælp - også at sige HVOR fejlen kommern
og HVORDAN fejmeddelelsen lyder.

Bare til en anden gang. Jeg kan se, at en anden venlig sjæl allerede har
været der.

--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
www.railsoft.dk
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp



Henrik C (17-02-2003)
Kommentar
Fra : Henrik C


Dato : 17-02-03 17:39


> Det er nyttigt - hvis man vil have hjælp - også at sige HVOR fejlen
kommern
> og HVORDAN fejmeddelelsen lyder.
>
> Bare til en anden gang. Jeg kan se, at en anden venlig sjæl allerede har
> været der.
>
Sorry det skal jeg nok huske fremover og tak for svaret
mvh Henrik C



Henrik C (17-02-2003)
Kommentar
Fra : Henrik C


Dato : 17-02-03 17:50

Hej igen nu virker det fint med knappen hvad vis jeg vil starte min form
som gennemsigtig men det der er der på kan ses f.eks. et billede .... er det
svært eller ??
mvh Henrik C



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste