bonjour a tous

j'ai un souci avec ce code apparament il fonctionne mais la conversion point to pixel ne semble pas fonctionner
en effet le decoupage se fait bien mais les proportions ne sont pas bonnes
si quelqu'un a une idée je suis preneur

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
 
'patricktoulon
'module pour faire un trou en forme rectangle dans un userform sur la base d'un control
 
'"""""""""""""""""""""""""""""""""""""""""""""""""
'dans le module userform
'Private Sub UserForm_Activate()
'decoupage Me
'End Sub
'""""""""""""""""""""""""""""""""""""""""""""""""""
 
' Régions rectangulaires :
Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
' Fonction permettant d'associé plusieurs régions :
Declare Function CombineRgn Lib "gdi32" (ByVal hdestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
' Fonction permettant d'appliquer les régions sur une form :
Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
'Fonction permettant de libérer la mémoire :
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
'fonction permetant de determiner le handle de la form
Public Declare Function fwa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Public handle As Long
 
'// Constantes d'opérateurs logiques :
 
'// ET logique :
Public Const RGN_AND = 1
'// OU logique :
Public Const RGN_OR = 2
'// OU exclusif :
Public Const RGN_XOR = 3
'// Soustraction logique :
Public Const RGN_DIFF = 4
 
 
'variable representant les nom de regions
Public rgnCercle As Variant
Public rgnBarre As Variant
Public rgncarré As Variant
Public rgnFinale As Variant
Const p_to_pix = (1.33333333333333) 'converti lunité en point vers l'unité en pixel
Sub decoupage(uf As Object)
 
handle = fwa(vbNullString, uf.Caption)
'on crée la region complete
rgncomplete = CreateRectRgn(0, 0, 300 * p_to_pix, 300 * p_to_pix)
 
'on crée la region qui sera decoupée sur la base du label1 en appliquant le p to pix , _
chiffre multiplicateur pour convertir  les dimentions de point  en pixels
 
rgncarré = CreateRectRgn(uf.Label1.Left * p_to_pix, uf.Label1.Top * p_to_pix, _
uf.Label1.Width * p_to_pix, uf.Label1.Height * p_to_pix)
 
'// On crée la zone principale :celle ci sera identique au userform
rgnFinale = rgncomplete
 
'// On combine toutes les zones :le chiffre 3 corespond au mode exclusif
CombineRgn rgncomplete, rgncarré, rgnFinale, RGN_XOR
 
'// On associe la région combinée à la form :
SetWindowRgn handle, rgnFinale, True
 
'on vide la memoire des variable regions
DeleteObject rgnFinale
DeleteObject rgncarré
DeleteObject rgncomplete
End Sub
merci d'avance

au plaisir