Asp
liliameriem
Messages postés
1
Date d'inscription
mercredi 9 août 2006
Statut
Membre
Dernière intervention
11 août 2006
-
11 août 2006 à 01:26
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 11 août 2006 à 08:50
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 11 août 2006 à 08:50
2 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
11 août 2006 à 01:35
11 août 2006 à 01:35
Salut,
essai ca :
Public Class Boutons
Inherits System.Windows.Forms.Button
Private bCadre As Boolean
#Region " Code généré par le Concepteur Windows Form "
Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Integer
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer
Friend WithEvents MonTimer As System.Windows.Forms.Timer
Private mFillColor As Color = Color.Aquamarine
Private mContourD As Color = Color.Gray
Private mContourG As Color = Color.White
Private bDecoupe As Boolean
Private sDroite As String
Dim sGauche As String
Dim iStringsizeD As SizeF
Dim iStringSizeG As SizeF
Dim g_KeyPressed As Byte
Dim g_MouseDown As Byte, g_MouseIn As Byte
Dim g_Button As Short, g_Shift As Short
' déclaration des structures
Private Structure POINTAPI
Dim X As Integer
Dim Y As Integer
End Structure
Public Sub New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
Me.ForeColor = Color.Navy
MonTimer.Enabled = True
'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
End Sub
'La méthode substituée Dispose du UserControl1 pour nettoyer la liste des composants.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Dim mousePath As New System.Drawing.Drawing2D.GraphicsPath
'Requis par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
' Installation des propriétés
<Description("Cette propriété détermine la couleur de remplissage"), Category("Apparence")> _
Property FillColor() As Color
Get
Return mFillColor
End Get
Set(ByVal Value As Color)
mFillColor = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Public ReadOnly Property hwnd() As Integer
Get
hwnd = MyBase.Handle.ToInt32
End Get
End Property
<Description("Cette propriété détermine la couleur de contour"), Category("Apparence")> _
Property Contour() As Color
Get
Return mContourD
End Get
Set(ByVal Value As Color)
mContourD = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Private mDegrade As LinearGradientMode
<Description("Cette propriété détermine la direction du dégradé"), Category("Apparence")> _
Property Dégradé() As LinearGradientMode
Get
Return mDegrade
End Get
Set(ByVal Value As LinearGradientMode)
mDegrade = Value
Dessine(Me.CreateGraphics)
End Set
End Property
' Variable locale et propriété pour la couleur de départ du dégradé
Private mCouleurDépart As Color = Color.PaleGoldenrod
<Description("Cette propriété détermine la couleur de départ du dégradé"), Category("Apparence")> _
Property CouleurDépart() As Color
Get
Return mCouleurDépart
End Get
Set(ByVal Value As Color)
mCouleurDépart = Value
Dessine(Me.CreateGraphics)
End Set
End Property
' Variable locale et propriété pour la couleur de fin du dégradé
Private mCouleurFin As Color = Color.LightPink
<Description("Cette propriété détermine la couleur de fin du dégradé"), Category("Apparence")> _
Property CouleurFin() As Color
Get
Return mCouleurFin
End Get
Set(ByVal Value As Color)
mCouleurFin = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Enum EFlatStyle
Standard
XP
End Enum
Private mFlatStyle As EFlatStyle
<Description("Aspect du bouton soit Standard soit XP"), Category("Apparence")> _
Shadows Property FlatStyle() As EFlatStyle
Get
Return mFlatStyle
End Get
Set(ByVal Value As EFlatStyle)
mFlatStyle = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Private mEnabled As Boolean = True
<Description("Cette propriété rend le bouton accessible ou non"), Category("Apparence")> _
Shadows Property Enabled() As Boolean
Get
Return mEnabled
End Get
Set(ByVal Value As Boolean)
mEnabled = Value
Dessine(Me.CreateGraphics)
End Set
End Property
' permet la combobox de mode
Enum EMode
Normal
Dégradé
End Enum
Private mMode As EMode = EMode.Dégradé
<Description("Cette propriété détermine le mode d'apparence du fond du bouton"), Category("Apparence")> _
Property Mode() As EMode
Get
Return mMode
End Get
Set(ByVal Value As EMode)
mMode = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Private mImage As Image
<Description("Cette propriété détermine l'icone lors du survol"), Category("Apparence")> _
Shadows Property BackgroundImage() As Image
Get
Return mImage
End Get
Set(ByVal Value As Image)
mImage = Value
Dessine(Me.CreateGraphics)
End Set
End Property
++
essai ca :
Public Class Boutons
Inherits System.Windows.Forms.Button
Private bCadre As Boolean
#Region " Code généré par le Concepteur Windows Form "
Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Integer
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer
Friend WithEvents MonTimer As System.Windows.Forms.Timer
Private mFillColor As Color = Color.Aquamarine
Private mContourD As Color = Color.Gray
Private mContourG As Color = Color.White
Private bDecoupe As Boolean
Private sDroite As String
Dim sGauche As String
Dim iStringsizeD As SizeF
Dim iStringSizeG As SizeF
Dim g_KeyPressed As Byte
Dim g_MouseDown As Byte, g_MouseIn As Byte
Dim g_Button As Short, g_Shift As Short
' déclaration des structures
Private Structure POINTAPI
Dim X As Integer
Dim Y As Integer
End Structure
Public Sub New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
Me.ForeColor = Color.Navy
MonTimer.Enabled = True
'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
End Sub
'La méthode substituée Dispose du UserControl1 pour nettoyer la liste des composants.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Dim mousePath As New System.Drawing.Drawing2D.GraphicsPath
'Requis par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
' Installation des propriétés
<Description("Cette propriété détermine la couleur de remplissage"), Category("Apparence")> _
Property FillColor() As Color
Get
Return mFillColor
End Get
Set(ByVal Value As Color)
mFillColor = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Public ReadOnly Property hwnd() As Integer
Get
hwnd = MyBase.Handle.ToInt32
End Get
End Property
<Description("Cette propriété détermine la couleur de contour"), Category("Apparence")> _
Property Contour() As Color
Get
Return mContourD
End Get
Set(ByVal Value As Color)
mContourD = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Private mDegrade As LinearGradientMode
<Description("Cette propriété détermine la direction du dégradé"), Category("Apparence")> _
Property Dégradé() As LinearGradientMode
Get
Return mDegrade
End Get
Set(ByVal Value As LinearGradientMode)
mDegrade = Value
Dessine(Me.CreateGraphics)
End Set
End Property
' Variable locale et propriété pour la couleur de départ du dégradé
Private mCouleurDépart As Color = Color.PaleGoldenrod
<Description("Cette propriété détermine la couleur de départ du dégradé"), Category("Apparence")> _
Property CouleurDépart() As Color
Get
Return mCouleurDépart
End Get
Set(ByVal Value As Color)
mCouleurDépart = Value
Dessine(Me.CreateGraphics)
End Set
End Property
' Variable locale et propriété pour la couleur de fin du dégradé
Private mCouleurFin As Color = Color.LightPink
<Description("Cette propriété détermine la couleur de fin du dégradé"), Category("Apparence")> _
Property CouleurFin() As Color
Get
Return mCouleurFin
End Get
Set(ByVal Value As Color)
mCouleurFin = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Enum EFlatStyle
Standard
XP
End Enum
Private mFlatStyle As EFlatStyle
<Description("Aspect du bouton soit Standard soit XP"), Category("Apparence")> _
Shadows Property FlatStyle() As EFlatStyle
Get
Return mFlatStyle
End Get
Set(ByVal Value As EFlatStyle)
mFlatStyle = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Private mEnabled As Boolean = True
<Description("Cette propriété rend le bouton accessible ou non"), Category("Apparence")> _
Shadows Property Enabled() As Boolean
Get
Return mEnabled
End Get
Set(ByVal Value As Boolean)
mEnabled = Value
Dessine(Me.CreateGraphics)
End Set
End Property
' permet la combobox de mode
Enum EMode
Normal
Dégradé
End Enum
Private mMode As EMode = EMode.Dégradé
<Description("Cette propriété détermine le mode d'apparence du fond du bouton"), Category("Apparence")> _
Property Mode() As EMode
Get
Return mMode
End Get
Set(ByVal Value As EMode)
mMode = Value
Dessine(Me.CreateGraphics)
End Set
End Property
Private mImage As Image
<Description("Cette propriété détermine l'icone lors du survol"), Category("Apparence")> _
Shadows Property BackgroundImage() As Image
Get
Return mImage
End Get
Set(ByVal Value As Image)
mImage = Value
Dessine(Me.CreateGraphics)
End Set
End Property
++
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
11 août 2006 à 08:50
11 août 2006 à 08:50
Prière de LIRE le règlement Codes-Sources AVANT de poster une question :
* PAS DE LANGAGE SMS
* Utiliser le bon forum
* Poser une question claire et PRECISE
J'ai déplacé le post sur le forum ASP.
* PAS DE LANGAGE SMS
* Utiliser le bon forum
* Poser une question claire et PRECISE
J'ai déplacé le post sur le forum ASP.
