transparent form...

Hvad mener du helt præcist? Vil du gerne kunne se igennem dit program, så du kan se det der ligger bagved? (f.eks. stifinder...)

nej f.eks. hvis jeg sætter et billede som baggrund på min form og billedet har runde kanter, så kan man jo se kanterne fra formen stadig...

man skal IKKE kunne se kanterne..

\'Hvordan en form gøres gennemsigtig
\'1. Opret et modul og tilføj denne kode

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_NOTOPMOST = -2
Declare Function SetWindowLong Lib \"user32\" _
Alias \"SetWindowLongA\" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
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 Command1_Click()
\'2. Tilføj en commandbutton med denne kode til form1
Form1.BorderStyle = 0
SetWindowLong Me.hwnd, GWL_EXSTYLE, _
WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, _
0&, 0&, 0&, 0&, SWP_SHOWME
End Sub

najs kode!! den snupper jeg lige! Tak for det!

GLÆDELIG JUL!! ;D

http://www.eksperten.dk/spm/25232

ehm... selve formen bliver jo ikke gennemsigtig!

i misforstår mig jo, i fjerner jo kun controlboxen, det er jo NEMT!

jeg vil have den grå baggrund der GENNEMSIGTIG!

Hos mig bliver former altså gennemsigtig. Så jeg tror du gør et eller andet galt

så må det være sådan ud mener.

\'------------------------------------------------ Module1 ------------------------------------------------
Option Explicit

Private Declare Function CreateRectRgn Lib \"gdi32\" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib \"gdi32\" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib \"user32\" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Public Sub TransparentForm(frm As Form)
frm.ScaleMode = vbPixels
Const RGN_DIFF = 4
Const RGN_OR = 2

Dim outer_rgn As Long
Dim inner_rgn As Long
Dim wid As Single
Dim hgt As Single
Dim border_width As Single
Dim title_height As Single
Dim ctl_left As Single
Dim ctl_top As Single
Dim ctl_right As Single
Dim ctl_bottom As Single
Dim control_rgn As Long
Dim combined_rgn As Long
Dim ctl As Control

    If frm.WindowState = vbMinimized Then Exit Sub

    wid = frm.ScaleX(frm.Width, vbTwips, vbPixels)
    hgt = frm.ScaleY(frm.Height, vbTwips, vbPixels)
    outer_rgn = CreateRectRgn(0, 0, wid, hgt)

    border_width = (wid - frm.ScaleWidth) / 2
    title_height = hgt - border_width - frm.ScaleHeight
    inner_rgn = CreateRectRgn(border_width, title_height, wid - border_width, _
        hgt - border_width)

    combined_rgn = CreateRectRgn(0, 0, 0, 0)
    CombineRgn combined_rgn, outer_rgn, inner_rgn, RGN_DIFF

    For Each ctl In frm.Controls
        If ctl.Container Is frm Then
            ctl_left = frm.ScaleX(ctl.Left, frm.ScaleMode, vbPixels) _
                + border_width
            ctl_top = frm.ScaleX(ctl.Top, frm.ScaleMode, vbPixels) + title_height
            ctl_right = frm.ScaleX(ctl.Width, frm.ScaleMode, vbPixels) + ctl_left
            ctl_bottom = frm.ScaleX(ctl.Height, frm.ScaleMode, vbPixels) + ctl_top
            control_rgn = CreateRectRgn(ctl_left, ctl_top, ctl_right, ctl_bottom)
            CombineRgn combined_rgn, combined_rgn, control_rgn, RGN_OR
        End If
    Next ctl
SetWindowRgn frm.hWnd, combined_rgn, True
End Sub
\'------------------------------------------------ Module1 ------------------------------------------------

\'------------------------------------------------ Form1 ------------------------------------------------
Option Explicit

Private Sub Form_Resize()
  TransparentForm Me
End Sub
\'------------------------------------------------ Form1 ------------------------------------------------

Hej Scorpius

Jeg er faldet over denne side som måske vil interessere dig:

http://www.freevbcode.com/ShowCode.Asp?ID=3195

Tak for hjælpen allesammen!