[VB6] Forme des form (jeux de mot de haut niveau je sais :D )

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB6] Forme des form (jeux de mot de haut niveau je sais :D )

apone

Bijour , c'était pour savoir si il était possible de créer des formes autres que rectangulaire , ou tout du moins un espace de travail sur lequel on puisse poser des controles ? un truc qui puisse etre ovale par exemple

merci d avance \o/

Publicité

phenxdesign

nan, je crois pas ...
enfin si je me trompe ...

printf

Baston !

apone a écrit :

C'est possible, en jouant avec l'API Windows (en tous cas, j'ai lu ça dans un "Programmez!" il y a fort longtemps).

---------------
Un matin je me lèverai et il fera beau.

TotalRecall

printf a écrit :

C'est possible, en jouant avec l'API Windows (en tous cas, j'ai lu ça dans un "Programmez!" il y a fort longtemps).

oui !
C'est pas tres compliqué à mettre en oeuvre. Va voir sur des sites comme vbfrance.com pour avoir des explications et des exemples...

---------------
Réalisation amplis classe D / T Topic .Net - C# @ Prog

printf

Baston !

TotalRecall a écrit :

oui !
C'est pas tres compliqué à mettre en oeuvre. Va voir sur des sites comme vbfrance.com pour avoir des explications et des exemples...

Et ici : http://www.c2i.fr/code.aspx?IDCode=478

---------------
Un matin je me lèverai et il fera beau.

apone

Merciiiiiiiiiiiiiii beaucoup !

apone

rha c'est sous vb.net apparement

printf

Baston !

apone a écrit :

rha c'est sous vb.net apparement

Effectivement.
Mais c'est faisable avec VB6 (ça j'en suis sûr et certain). Tu devrais pouvoir trouver comment faire avec MSDN Library ou le site web indiqué par TotalRecall.

---------------
Un matin je me lèverai et il fera beau.

karlkox

Code :

Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As Coord, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Public Declare Function CreatePolyPolygonRgn Lib "gdi32" (lpPoint As Coord, lpPolyCounts As Long, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Dim CurRgn, TempRgn As Long ' Region variables
Private Const RGN_DIFF = 4
Public Function AutoFormShape(bg As Form, transColor)
Dim X, Y As Integer
Dim success As Long
CurRgn = CreateRectRgn(0, 0, bg.ScaleWidth, bg.ScaleHeight)
While Y <= bg.ScaleHeight
While X <= bg.ScaleWidth
If GetPixel(bg.hdc, X, Y) = transColor Then
TempRgn = CreateRectRgn(X, Y, X + 1, Y + 1)
success = CombineRgn(CurRgn, CurRgn, TempRgn, RGN_DIFF)
DeleteObject (TempRgn)
End If
X = X + 1
Wend
Y = Y + 1
X = 0
Wend
success = SetWindowRgn(bg.hwnd, CurRgn, True)
DeleteObject (CurRgn)
End Function
' Utilisation (dans le form)
' Call AutoFormShape(Me, RGB(255, 0, 255))

skylight

Made in France.

c'est possible sous VB6, je l'a déjà fait.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB6] Forme des form (jeux de mot de haut niveau je sais :D )

Sujets relatifs
[VB6] variables [Newbie]	[HTML]mettre un élément tout en haut a gauche
Table et form, comment faire un form par ligne ?	Mise en forme du code!
[C#] Inserer un controle HTML dans une WINDOWS FORM	BUG : session, header, switch... je sais pas d'où ça vient !
Jbuilder netbeans eclipse etc... je sais plus quoi utiliser	champ form et lien
VB6 : code pour connection base de données ???	Mettre un form sur la même ligne
Plus de sujets relatifs à : [VB6] Forme des form (jeux de mot de haut niveau je sais :D )

Page générée en 0.079 secondes