Tailler votre form à l'aide d'une image !!

0/5 (24 avis)

Vue 5 171 fois - Téléchargée 987 fois

Description

Allo !

C'est très simple ...
Ce code vous permet de tailler vortre form à l'aide d'une image . :)
Le blanc de l'image seras transparent ... .

Regearder le "screenshot" ... .. ca dit tout ... :P

Merci ....

Source / Exemple :


Private Sub Form_Click()
   Download_the_zip
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
lucky2222 Messages postés 92 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 2 octobre 2006
13 janv. 2005 à 23:06
je viens de trouver comment faire
j'ai ajouter en debut du traçage du cadriage:
Form1.Scale
et pour redessiner un zone blanche
Form1.Picture1.Line (0, 0)-(4000, 4000), vbWhite, BF

donc avec ces deux lignes, on peut redessiner sans relancer!
lucky2222 Messages postés 92 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 2 octobre 2006
13 janv. 2005 à 22:47
une fois la form decoupé et rendu transparent, est il possible, sans arreter et relancer le programme de rendre la form a nouveau totalement opaque afin de la redecouper suivant une autre image?
car en partant de cette source, j'ai fais un calendrier
voir http://www.vbfrance.com/code.aspx?ID=28760
ce que je desire faire, c'est pouvoir redessiner le calendrier a volonté sans etre obliger d'arreter le prog! ceci afin de pouvoir faire une animation du calendar!
je pense que se doit etre une petite ligne de rien du tout qui permettrai de reinitialiser la form, mais je ne sais pas la quelle!
j'ai essayé form1.refresh mais ca marche pas!
merci pour ta source, elle est geniale!
ScSami Messages postés 1488 Date d'inscription mercredi 5 février 2003 Statut Membre Dernière intervention 3 décembre 2007 25
12 janv. 2005 à 15:24
Note, j'ai réalisé un contrôle (OCX) pour faire de la transparence : ScreenShoots...
babeuk Messages postés 47 Date d'inscription jeudi 21 février 2002 Statut Membre Dernière intervention 30 septembre 2003
25 déc. 2002 à 20:05
Moi aussi j'avais eu le prob de la dernière rangée c'est pourquoi j'avais modifié la fonction, je la mets dès fois que ca interesse qqun :

Public Function MakeRegion(picSkin As PictureBox) As Long
Dim X As Long, Y As Long, StartLineX As Long
Dim FullRegion As Long, LineRegion As Long
Dim TransparentColor As Long
Dim InFirstRegion As Boolean
Dim InLine As Boolean
Dim hDC As Long
Dim PicWidth As Long
Dim PicHeight As Long
TransparentColor = vbWhite 'couleur de transparence
picSkin.BackColor = TransparentColor
picSkin.Width = picSkin.Width + 15
picSkin.Line (picSkin.ScaleWidth, 0)-(picSkin.ScaleWidth, picSkin.ScaleHeight), picSkin.BackColor
hDC = picSkin.hDC
PicWidth = picSkin.ScaleWidth
PicHeight = picSkin.ScaleHeight
InFirstRegion True: InLine False
X Y StartLineX = 0
For Y = 0 To PicHeight - 1
For X = 0 To PicWidth - 1
If GetPixel(hDC, X, Y) TransparentColor Or X PicWidth Then

If InLine Then
InLine = False
LineRegion = CreateRectRgn(StartLineX, Y, X, Y + 1)

If InFirstRegion Then
FullRegion = LineRegion
InFirstRegion = False
Else
CombineRgn FullRegion, FullRegion, LineRegion, RGN_OR

DeleteObject LineRegion
End If
End If
Else
If Not InLine Then
InLine = True
StartLineX = X
End If
End If
Next
Next
MakeRegion = FullRegion
End Function

en fait ma modif consiste à modifier l'img afin de rajouter une ligne à la fin (de la couleur 'transparente') , comme ca plus de prob !
cs_BadNews Messages postés 98 Date d'inscription samedi 30 novembre 2002 Statut Membre Dernière intervention 10 septembre 2007 1
4 déc. 2002 à 00:22
erreurs404 : hahahha

Pour qui tu te prend ? Ce que je veux dire c'est que toute le langage
existe déja . Il sufit que de l'exploiter. Montre moi un code ou langage que tu as inventer . Je suis certain que toute les commandes exploiter dans ce code existe déja . On invente pas la roue , on ne fait que l'arrondir.
:P
Afficher les 24 commentaires

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.