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
13 janv. 2005 à 23:06
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!
13 janv. 2005 à 22:47
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!
12 janv. 2005 à 15:24
25 déc. 2002 à 20:05
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 !
4 déc. 2002 à 00:22
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
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.