Tailler votre form à l'aide d'une image !!
Soyez le premier à donner votre avis sur cette source.
Vue 5 093 fois - Téléchargée 974 fois
Description
Codes Sources
A voir également
- Tailler votre form à l'aide d'une image !!
- Compo tcyiniform, sauver la position/taille des forms. - Codes sources - Delphi / Pascal (Composants)
- Garder la même taille de form ✓ - Forum - C# / .NET
- Taille mini form ✓ - Forum - Visual Basic
- Obtenir à l'avance la taille d'un texte dessiné sur une form, picturebox,printer,... - Codes sources - Visual Basic / VB.NET (Graphique)
- Visual Basic / VB.NET : Taille reellle d'une form (contenu) - CodeS SourceS - Guide
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!
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!
- Messages postés
-
1488
- Date d'inscription
- mercredi 5 février 2003
- Statut
- Membre
- Dernière intervention
- 3 décembre 2007
24Public 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 !
- Messages postés
-
98
- Date d'inscription
- samedi 30 novembre 2002
- Statut
- Membre
- Dernière intervention
- 10 septembre 2007
1Pour 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.