Discussion :

[skyzone42]

Bonjour,

je dev sous vb6 et je cherche à améliorer mes forms. Pour cela j'ai vu qu'il existaient des skins avec deux principaux sites :
www.skincrafter.com et www.visual-basic.com.ar

le problème c'est qu'ils sont payant et avec mon niveau en prog je n'ai pas reussi à la installer.

Pourriez vous me donner des pistes....je ne pense pas que je suis le seul à vouloir faire des jolie app design.

Allez merci à vous tous pour vos réponse....

[avigeilpro]

Voici un code à mettre dans un module. Ce code permet de découper une forme comme bon te semblera. Tu dessine une image de ce que tu veux obtenir, tu met une couleur de fond, tu suis les instructions et tu auras la feuille de tes rêves

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
Attribute VB_Name = "MFormPerso"
'======================================================================================
'======================================================================================
'Utilisation :
'   -Mettre la propiété BorderStyle de la Form à 0.None
'   -Créer une PictureBox (disons Picture1 pour l'exemple)
'   -Mettre l'image de la Form personnalisée dans la PictureBox
'   -Mettre la propriété Visible de la PictureBox à False
 
'   -Mettre la ligne suivante dans l'évènement Load de la feuille :
 
    'MakeForm Me, Picture1, Couleur
 
'Picture1 : Nom de la boite contenant l'image
'Couleur : A remplacer par la valeur Long de la couleur de transparence
'           ex : bleu : RGB(0,0,255)
 
'======================================================================================
'======================================================================================
 
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 Const RGN_OR = 2
 
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
 
Public Declare Sub ReleaseCapture Lib "user32" ()
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
 
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
 
 
Public Function MakeForm(frm As Form, pic As PictureBox, lngColor As Long)
Dim lngC2ITimer As Long
Dim lngX As Long, lngY As Long
Dim lngXDeb As Long, lngYDeb As Long
Dim lngXFin As Long, lngYFin As Long
Dim hRgn As Long, hRgnTemp As Long
Dim lngDummy As Long
Dim bStat As Boolean
lngC2ITimer = timeGetTime
 
frm.Picture = pic.Picture
pic.ScaleMode = 3
frm.ScaleMode = 3
pic.AutoRedraw = True
 
 
frm.Width = frm.ScaleX(pic.Width, vbPixels, vbTwips)
frm.Height = frm.ScaleY(pic.Height, vbPixels, vbTwips)
DoEvents
bStat = False
For lngX = 0 To pic.ScaleWidth
    bStat = False
    For lngY = 0 To pic.ScaleHeight
        If bStat Then
            If pic.Point(lngX, lngY) = lngColor Then
                lngXFin = lngX
                lngYFin = lngY
                If hRgn = 0 Then
                    hRgn = CreateRectRgn(lngXDeb, lngYDeb, lngXFin + 1, lngYFin)
                Else
                    hRgnTemp = CreateRectRgn(lngXDeb, lngYDeb, lngXFin + 1, lngYFin)
                    lngDummy = CombineRgn(hRgn, hRgn, hRgnTemp, RGN_OR)
                    DeleteObject hRgnTemp
                End If
                bStat = False
            End If
         Else
            If pic.Point(lngX, lngY) <> lngColor Then
                lngXDeb = lngX
                lngYDeb = lngY
                lngXFin = lngX
                lngYFin = lngY
                bStat = True
            End If
        End If
    Next
Next
 
lngDummy = SetWindowRgn(frm.hwnd, hRgn, True)
lngDummy = DeleteObject(hRgn)
 
End Function

[skyzone42]

Aurait tu un projet en zip vite fait à me passer pour que je comprenne bien.

Moi ce ke j'aimerai bien obtenir c'est un truc dans ce style : http://skincrafter.com/skingal.php

[avigeilpro]

Je ne suis pas chez moi, mais le code que je t'ai donné permet juste de faire la forme. Pour les controles, tu dois, je pense, jouer avec des picturebox ou autres objets du style. pour l'utilisation du module, regarde les commentaires qui sont au début, et suis les à la lettre. Essaye de faire un dessin simple sous paint, style un rond bleu sur un fond rouge, tu charge l'image dans la picturebox, la couleur de transparence étant le rouge. tu peux essayer aussi en mettant la couleur de transparence comme étant la bleue, tu aura un trou au milieu de ta feuille.

[skyzone42]

Erreur de compilation :

Attribute VB_Name = "MFormPerso"
Erreur de syntaxe

Puis erreur sur :

Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2

[avigeilpro]

Chez moi je n'ai aucune erreure