hardcore32
Messages postés19Date d'inscriptionmardi 23 décembre 2003StatutMembreDernière intervention21 octobre 2005
-
5 mars 2005 à 07:31
cs_Warning
Messages postés516Date d'inscriptionsamedi 3 février 2001StatutMembreDernière intervention24 octobre 2006
-
6 mars 2005 à 12:24
Bon je vais esseyer d'expliquer ma question mais ça risque d'être pas
trop compréhensible ! Bon, je voudrais s'avoir comment mettre une forme
a ma forme... j'vais donné des example pour que vous comprénier, comme
dison Windows Media player... il y a pas comme une bordure tout le tour
c'est courbé au coin et tout, moa ce que je voudrais c'est de me créé
une form en me fesant une image qui me ferais mon fond... et de
continuer ma form par dessu avec mes commande et tout.
J'aurais besoin d'aide svp si vous pouvez m'aidé !
cs_Warning
Messages postés516Date d'inscriptionsamedi 3 février 2001StatutMembreDernière intervention24 octobre 20062 6 mars 2005 à 09:43
Petit exemple:
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
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 CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Sub Form_Load()
Dim i As Long
ReDim xy(15) As POINTAPI
With Me
xy(0).X = 231
xy(0).Y = 2
xy(1).X = 245
xy(1).Y = 2
xy(2).X = 258
xy(2).Y = 5
xy(3).X = 270
xy(3).Y = 8
xy(4).X = 286
xy(4).Y = 13
xy(5).X = 307
xy(5).Y = 22
xy(6).X = 317
xy(6).Y = 28
xy(7).X = 326
xy(7).Y = 37
xy(8).X = 326
xy(8).Y = 40
xy(9).X = 322
xy(9).Y = 44
xy(10).X = 317
xy(10).Y = 45
xy(11).X = 310
xy(11).Y = 45
xy(12).X = 310
xy(12).Y = 48
xy(13).X = 319
xy(13).Y = 47
xy(14).X = 330
xy(14).Y = 47
xy(15).X = 343
End With
Call SetWindowRgn(Me.hWnd, CreatePolygonRgn(xy(0), 373, 2), True)
End Sub
Sinon c'est aussi possible en fesant ça:
Créer un usercontrol
Mettre un control image a l'interieur de celui-ci avec un gif dont le fon est transparent et dont la forme est celle que tu veux.
Mettre Transparent à la propriété BackStyle
Mettre tout les controles et le code comme si c'était un formulaire.
Créer un formulaire avec la propriété Visible = False
Mettre le usercontrol dans ce formulaire
et enfin avec lAPI:
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
faire: SetParent Usercontrol1.hwnd, 0
Ce qui aura pour effet de sortir le control de la form comme une fenetre...