La form est invisible mais les contrôles sont visivles comme s'ils flottent
Source / Exemple :
Le code est dans le ZIP
mais si vous faites du Copier-Coller de la form exemple à votre form, la propriété AUTOREDRAW de votre form doit être TRUE
AUTOREDRAW = TRUE
merci tous monde
Oui ça se corrige en remplaçant les integer par des long dans la déclaration de la fonction BitBlt soit :
Public Declare Function BitBlt Lib "gdi32" ( _
ByVal hDestDC As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal dwRop As Long) As Long
à la place de :
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Long) As Integer
d'où le dépassement de capacité.
Dépassement de capacité
sur la ligne :
BitBlt Me.hDC, 0, 0, Me.Width, Me.Height, GetDC(Desk&), d, c, SRCCOPY
Ça se résout comme problème ?
tu copie l'image de fond (desktop) pour donner l'illusion qu'il n'y a pas de form, mais des que tu bouge le form tu t'apperçois de la supercherie
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.