Un programme vb simulant la calculette window

flo -  
 flo -
Bonjour,
j'ai un soucis je veux ecrire un programme qui simule la machine à calcler windows
Configuration: Windows XP
Firefox 3.0.1

4 réponses

  1. flo
     
    je suis un petit débutant en programmation,le problème est que je n'arrive pas a l'écrire.pour bien dire je ne comprend pas bien l'exercice.si c'est possible répondez moi maintenant puisque je dois le remettre dans quelques heures.merci pour votre disponibilité.
    0
  2. sfel Messages postés 1645 Statut Membre 430
     
    bonjour

    a quel point as-tu un souci ?
    -1
    1. flo
       
      slt j'avais oublié de bien préciser c'est la calculette scientifique windows,j'attends la réponse le plutôt possible.
      merci
      0
  3. developping Messages postés 3 Statut Membre
     
    bonjour
    voila c le code
    Public Class Form1
    Inherits System.Windows.Forms.Form

    #Region " Code généré par le Concepteur Windows Form "

    Public Sub New()
    MyBase.New()

    'Cet appel est requis par le Concepteur Windows Form.
    InitializeComponent()

    'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

    End Sub

    'La méthode substituée Dispose du formulaire 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

    'Requis par le Concepteur Windows Form
    Private components As System.ComponentModel.IContainer

    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
    'Elle peut être modifiée en utilisant le Concepteur Windows Form.
    'Ne la modifiez pas en utilisant l'éditeur de code.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents Button7 As System.Windows.Forms.Button
    Friend WithEvents Button8 As System.Windows.Forms.Button
    Friend WithEvents Button9 As System.Windows.Forms.Button
    Friend WithEvents Button10 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Button11 As System.Windows.Forms.Button
    Friend WithEvents Button12 As System.Windows.Forms.Button
    Friend WithEvents Button13 As System.Windows.Forms.Button
    Friend WithEvents Button14 As System.Windows.Forms.Button
    Friend WithEvents Button15 As System.Windows.Forms.Button
    Friend WithEvents Button16 As System.Windows.Forms.Button
    Friend WithEvents Button17 As System.Windows.Forms.Button
    Friend WithEvents Button18 As System.Windows.Forms.Button
    Friend WithEvents Button19 As System.Windows.Forms.Button
    Friend WithEvents Button20 As System.Windows.Forms.Button
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.Button1 = New System.Windows.Forms.Button
    Me.Button2 = New System.Windows.Forms.Button
    Me.Button3 = New System.Windows.Forms.Button
    Me.Button4 = New System.Windows.Forms.Button
    Me.Button5 = New System.Windows.Forms.Button
    Me.Button6 = New System.Windows.Forms.Button
    Me.Button7 = New System.Windows.Forms.Button
    Me.Button8 = New System.Windows.Forms.Button
    Me.Button9 = New System.Windows.Forms.Button
    Me.Button10 = New System.Windows.Forms.Button
    Me.TextBox1 = New System.Windows.Forms.TextBox
    Me.Button11 = New System.Windows.Forms.Button
    Me.Button12 = New System.Windows.Forms.Button
    Me.Button13 = New System.Windows.Forms.Button
    Me.Button14 = New System.Windows.Forms.Button
    Me.Button15 = New System.Windows.Forms.Button
    Me.Button16 = New System.Windows.Forms.Button
    Me.Button17 = New System.Windows.Forms.Button
    Me.Button18 = New System.Windows.Forms.Button
    Me.Button19 = New System.Windows.Forms.Button
    Me.Button20 = New System.Windows.Forms.Button
    Me.MainMenu1 = New System.Windows.Forms.MainMenu
    Me.MenuItem1 = New System.Windows.Forms.MenuItem
    Me.MenuItem2 = New System.Windows.Forms.MenuItem
    Me.MenuItem9 = New System.Windows.Forms.MenuItem
    Me.MenuItem3 = New System.Windows.Forms.MenuItem
    Me.MenuItem4 = New System.Windows.Forms.MenuItem
    Me.MenuItem5 = New System.Windows.Forms.MenuItem
    Me.MenuItem6 = New System.Windows.Forms.MenuItem
    Me.MenuItem12 = New System.Windows.Forms.MenuItem
    Me.MenuItem7 = New System.Windows.Forms.MenuItem
    Me.MenuItem10 = New System.Windows.Forms.MenuItem
    Me.MenuItem8 = New System.Windows.Forms.MenuItem
    Me.MenuItem11 = New System.Windows.Forms.MenuItem
    Me.SuspendLayout()
    '
    'Button1
    '
    Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button1.ForeColor = System.Drawing.Color.Blue
    Me.Button1.Location = New System.Drawing.Point(32, 72)
    Me.Button1.Name = "Button1"
    Me.Button1.Size = New System.Drawing.Size(48, 40)
    Me.Button1.TabIndex = 0
    Me.Button1.Text = "1"
    '
    'Button2
    '
    Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button2.ForeColor = System.Drawing.Color.Blue
    Me.Button2.Location = New System.Drawing.Point(88, 72)
    Me.Button2.Name = "Button2"
    Me.Button2.Size = New System.Drawing.Size(48, 40)
    Me.Button2.TabIndex = 1
    Me.Button2.Text = "2"
    '
    'Button3
    '
    Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button3.ForeColor = System.Drawing.Color.Blue
    Me.Button3.Location = New System.Drawing.Point(144, 72)
    Me.Button3.Name = "Button3"
    Me.Button3.Size = New System.Drawing.Size(48, 40)
    Me.Button3.TabIndex = 2
    Me.Button3.Text = "3"
    '
    'Button4
    '
    Me.Button4.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button4.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button4.ForeColor = System.Drawing.Color.Blue
    Me.Button4.Location = New System.Drawing.Point(32, 120)
    Me.Button4.Name = "Button4"
    Me.Button4.Size = New System.Drawing.Size(48, 40)
    Me.Button4.TabIndex = 3
    Me.Button4.Text = "4"
    '
    'Button5
    '
    Me.Button5.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button5.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button5.ForeColor = System.Drawing.Color.Blue
    Me.Button5.Location = New System.Drawing.Point(88, 120)
    Me.Button5.Name = "Button5"
    Me.Button5.Size = New System.Drawing.Size(48, 40)
    Me.Button5.TabIndex = 4
    Me.Button5.Text = "5"
    '
    'Button6
    '
    Me.Button6.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button6.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button6.ForeColor = System.Drawing.Color.Blue
    Me.Button6.Location = New System.Drawing.Point(144, 120)
    Me.Button6.Name = "Button6"
    Me.Button6.Size = New System.Drawing.Size(48, 40)
    Me.Button6.TabIndex = 5
    Me.Button6.Text = "6"
    '
    'Button7
    '
    Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button7.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button7.ForeColor = System.Drawing.Color.Blue
    Me.Button7.Location = New System.Drawing.Point(32, 168)
    Me.Button7.Name = "Button7"
    Me.Button7.Size = New System.Drawing.Size(48, 40)
    Me.Button7.TabIndex = 6
    Me.Button7.Text = "7"
    '
    'Button8
    '
    Me.Button8.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button8.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button8.ForeColor = System.Drawing.Color.Blue
    Me.Button8.Location = New System.Drawing.Point(88, 168)
    Me.Button8.Name = "Button8"
    Me.Button8.Size = New System.Drawing.Size(48, 40)
    Me.Button8.TabIndex = 7
    Me.Button8.Text = "8"
    '
    'Button9
    '
    Me.Button9.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button9.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button9.ForeColor = System.Drawing.Color.Blue
    Me.Button9.Location = New System.Drawing.Point(144, 168)
    Me.Button9.Name = "Button9"
    Me.Button9.Size = New System.Drawing.Size(48, 40)
    Me.Button9.TabIndex = 8
    Me.Button9.Text = "9"
    '
    'Button10
    '
    Me.Button10.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button10.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button10.ForeColor = System.Drawing.SystemColors.ActiveCaption
    Me.Button10.Location = New System.Drawing.Point(88, 216)
    Me.Button10.Name = "Button10"
    Me.Button10.Size = New System.Drawing.Size(48, 40)
    Me.Button10.TabIndex = 9
    Me.Button10.Text = "0"
    '
    'TextBox1
    '
    Me.TextBox1.Location = New System.Drawing.Point(24, 16)
    Me.TextBox1.Multiline = True
    Me.TextBox1.Name = "TextBox1"
    Me.TextBox1.ReadOnly = True
    Me.TextBox1.Size = New System.Drawing.Size(304, 40)
    Me.TextBox1.TabIndex = 10
    Me.TextBox1.Text = ""
    '
    'Button11
    '
    Me.Button11.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button11.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button11.ForeColor = System.Drawing.Color.Black
    Me.Button11.Location = New System.Drawing.Point(256, 72)
    Me.Button11.Name = "Button11"
    Me.Button11.Size = New System.Drawing.Size(80, 40)
    Me.Button11.TabIndex = 11
    Me.Button11.Text = "CEE"
    '
    'Button12
    '
    Me.Button12.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button12.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button12.ForeColor = System.Drawing.Color.Red
    Me.Button12.Location = New System.Drawing.Point(200, 216)
    Me.Button12.Name = "Button12"
    Me.Button12.Size = New System.Drawing.Size(48, 40)
    Me.Button12.TabIndex = 12
    Me.Button12.Text = "+"
    '
    'Button13
    '
    Me.Button13.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button13.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button13.ForeColor = System.Drawing.Color.Red
    Me.Button13.Location = New System.Drawing.Point(144, 216)
    Me.Button13.Name = "Button13"
    Me.Button13.Size = New System.Drawing.Size(48, 40)
    Me.Button13.TabIndex = 13
    Me.Button13.Text = "="
    '
    'Button14
    '
    Me.Button14.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button14.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button14.ForeColor = System.Drawing.Color.Red
    Me.Button14.Location = New System.Drawing.Point(200, 168)
    Me.Button14.Name = "Button14"
    Me.Button14.Size = New System.Drawing.Size(48, 40)
    Me.Button14.TabIndex = 14
    Me.Button14.Text = "-"
    '
    'Button15
    '
    Me.Button15.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button15.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button15.ForeColor = System.Drawing.Color.Red
    Me.Button15.Location = New System.Drawing.Point(200, 120)
    Me.Button15.Name = "Button15"
    Me.Button15.Size = New System.Drawing.Size(48, 40)
    Me.Button15.TabIndex = 15
    Me.Button15.Text = "*"
    '
    'Button16
    '
    Me.Button16.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button16.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button16.ForeColor = System.Drawing.Color.Red
    Me.Button16.Location = New System.Drawing.Point(200, 72)
    Me.Button16.Name = "Button16"
    Me.Button16.Size = New System.Drawing.Size(48, 40)
    Me.Button16.TabIndex = 16
    Me.Button16.Text = "/"
    '
    'Button17
    '
    Me.Button17.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button17.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button17.ForeColor = System.Drawing.SystemColors.ActiveCaption
    Me.Button17.Location = New System.Drawing.Point(32, 216)
    Me.Button17.Name = "Button17"
    Me.Button17.Size = New System.Drawing.Size(48, 40)
    Me.Button17.TabIndex = 17
    Me.Button17.Text = "."
    '
    'Button18
    '
    Me.Button18.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button18.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button18.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button18.ForeColor = System.Drawing.Color.Red
    Me.Button18.Location = New System.Drawing.Point(256, 120)
    Me.Button18.Name = "Button18"
    Me.Button18.Size = New System.Drawing.Size(80, 40)
    Me.Button18.TabIndex = 18
    Me.Button18.Text = "rac"
    '
    'Button19
    '
    Me.Button19.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button19.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button19.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button19.ForeColor = System.Drawing.Color.Red
    Me.Button19.Location = New System.Drawing.Point(256, 168)
    Me.Button19.Name = "Button19"
    Me.Button19.Size = New System.Drawing.Size(80, 40)
    Me.Button19.TabIndex = 19
    Me.Button19.Text = "%"
    '
    'Button20
    '
    Me.Button20.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button20.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button20.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button20.ForeColor = System.Drawing.Color.Red
    Me.Button20.Location = New System.Drawing.Point(256, 216)
    Me.Button20.Name = "Button20"
    Me.Button20.Size = New System.Drawing.Size(80, 40)
    Me.Button20.TabIndex = 20
    Me.Button20.Text = "1/x"
    '
    'MainMenu1
    '
    Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4, Me.MenuItem7})
    '
    'MenuItem1
    '
    Me.MenuItem1.Index = 0
    Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem9, Me.MenuItem3})
    Me.MenuItem1.Text = "&Fichier"
    '
    'MenuItem2
    '
    Me.MenuItem2.Index = 0
    Me.MenuItem2.Text = "&Nouveau"
    '
    'MenuItem9
    '
    Me.MenuItem9.Index = 1
    Me.MenuItem9.Text = "-"
    '
    'MenuItem3
    '
    Me.MenuItem3.Index = 2
    Me.MenuItem3.Text = "&Fermer"
    '
    'MenuItem4
    '
    Me.MenuItem4.Index = 1
    Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6, Me.MenuItem12})
    Me.MenuItem4.Text = "&Edition"
    '
    'MenuItem5
    '
    Me.MenuItem5.Index = 0
    Me.MenuItem5.Text = "&Copier"
    '
    'MenuItem6
    '
    Me.MenuItem6.Index = 1
    Me.MenuItem6.Text = "&Coller"
    '
    'MenuItem12
    '
    Me.MenuItem12.Index = 2
    Me.MenuItem12.Text = "&Couper"
    '
    'MenuItem7
    '
    Me.MenuItem7.Index = 2
    Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10, Me.MenuItem8, Me.MenuItem11})
    Me.MenuItem7.Text = "?"
    '
    'MenuItem10
    '
    Me.MenuItem10.Index = 0
    Me.MenuItem10.Text = "-"
    '
    'MenuItem8
    '
    Me.MenuItem8.Index = 1
    Me.MenuItem8.Text = "Apropos de le calculatrice "
    '
    'MenuItem11
    '
    Me.MenuItem11.Index = 2
    Me.MenuItem11.Text = "-"
    '
    'Form1
    '
    Me.AccessibleRole = System.Windows.Forms.AccessibleRole.Caret
    Me.AutoScaleBaseSize = New System.Drawing.Size(12, 28)
    Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(255, Byte))
    Me.ClientSize = New System.Drawing.Size(368, 281)
    Me.Controls.Add(Me.Button20)
    Me.Controls.Add(Me.Button19)
    Me.Controls.Add(Me.Button18)
    Me.Controls.Add(Me.Button17)
    Me.Controls.Add(Me.Button16)
    Me.Controls.Add(Me.Button15)
    Me.Controls.Add(Me.Button14)
    Me.Controls.Add(Me.Button13)
    Me.Controls.Add(Me.Button12)
    Me.Controls.Add(Me.Button11)
    Me.Controls.Add(Me.TextBox1)
    Me.Controls.Add(Me.Button10)
    Me.Controls.Add(Me.Button9)
    Me.Controls.Add(Me.Button8)
    Me.Controls.Add(Me.Button7)
    Me.Controls.Add(Me.Button6)
    Me.Controls.Add(Me.Button5)
    Me.Controls.Add(Me.Button4)
    Me.Controls.Add(Me.Button3)
    Me.Controls.Add(Me.Button2)
    Me.Controls.Add(Me.Button1)
    Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.ForeColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
    Me.Menu = Me.MainMenu1
    Me.Name = "Form1"
    Me.Text = "CALCULATRICE"
    Me.ResumeLayout(False)

    End Sub

    #End Region

    Dim chaine As String
    Dim resulta As Double
    Dim a As Integer

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    chaine = chaine + "0"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    chaine = chaine + "1"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    chaine = chaine + "2"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    chaine = chaine + "3"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    chaine = chaine + "4"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    chaine = chaine + "5"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    chaine = chaine + "6"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    chaine = chaine + "7"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    chaine = chaine + "8"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    chaine = chaine + "9"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    chaine = ""
    TextBox1.Text = "0"
    resulta = 0
    Button17.Enabled = True
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    resulta = resulta + (Val(chaine))
    a = 0
    chaine = ""
    Button17.Enabled = True
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
    If a = 0 Then
    resulta = resulta + Val(chaine)
    End If
    If a = 1 Then
    resulta = resulta / (Val(chaine))
    End If
    If a = 2 Then
    resulta = resulta - (Val(chaine))
    End If
    If a = 3 Then
    resulta = resulta * (Val(chaine))
    End If
    TextBox1.Text = resulta
    chaine = ""
    Button17.Enabled = True
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
    resulta = resulta - (Val(chaine))
    a = 2
    chaine = ""
    Button17.Enabled = True
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
    chaine = chaine + "."
    TextBox1.Text = chaine
    Button17.Enabled = False
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
    resulta = resulta / (Val(chaine))
    a = 1
    chaine = ""
    Button17.Enabled = True
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
    If resulta = 0 Then
    resulta = Val(chaine)
    chaine = ""
    a = 3
    Else
    resulta = resulta * (Val(chaine))
    a = 3
    chaine = ""
    End If
    Button17.Enabled = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    chaine = ""
    resulta = 0
    TextBox1.Text = "0"

    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
    resulta = Math.Sqrt(Val(chaine))
    TextBox1.Text = resulta
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
    resulta = 1 / (Val(chaine))
    TextBox1.Text = resulta
    End Sub

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
    Button1.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
    Button1.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseMove
    Button2.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseMove
    Button3.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseMove
    Button4.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button5.MouseMove
    Button5.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button6_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button6.MouseMove
    Button6.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button7_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button7.MouseMove
    Button7.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button8.MouseMove
    Button8.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button9_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button9.MouseMove
    Button9.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button17_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button17.MouseMove
    Button17.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button10_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button10.MouseMove
    Button10.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
    Button2.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseLeave
    Button3.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button4_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.MouseLeave
    Button4.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button5_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.MouseLeave
    Button5.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button6_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.MouseLeave
    Button6.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button7_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.MouseLeave
    Button7.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button8_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.MouseLeave
    Button8.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.MouseLeave
    Button9.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button17_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button17.MouseLeave
    Button17.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.MouseLeave
    Button10.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button16_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button16.MouseMove
    Button16.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button15_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button15.MouseMove
    Button15.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button14_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button14.MouseMove
    Button14.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button12_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button12.MouseMove
    Button12.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button13_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button13.MouseMove
    Button13.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button16_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button16.MouseLeave
    Button16.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button15_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button15.MouseLeave
    Button15.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button14_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.MouseLeave
    Button14.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button12_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button12.MouseLeave
    Button12.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button13_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button13.MouseLeave
    Button13.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button18_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button18.MouseLeave
    Button18.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
    resulta = (Val(chaine)) / 100
    End Sub

    Private Sub Button19_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button19.MouseLeave
    Button19.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button20_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button20.MouseLeave
    Button20.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button18_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button18.MouseMove
    Button18.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button19_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button19.MouseMove
    Button19.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button20_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button20.MouseMove
    Button20.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button11_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button11.MouseMove
    Button11.BackColor = BackColor.LightGray
    End Sub

    Private Sub Button11_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.MouseLeave
    Button11.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
    Dim f1 As New Form2
    f1.Show()

    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
    chaine = ""
    resulta = 0
    Button17.Enabled = True
    TextBox1.Text = 0
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
    End
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
    Me.TextBox1.Copy()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
    TextBox1.Paste()

    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
    TextBox1.Copy()
    TextBox1.Text = ""
    End Sub
    End Class
    -1
  4. developping Messages postés 3 Statut Membre
     
    bonjour
    voila c le code
    Public Class Form1
    Inherits System.Windows.Forms.Form

    #Region " Code généré par le Concepteur Windows Form "

    Public Sub New()
    MyBase.New()

    'Cet appel est requis par le Concepteur Windows Form.
    InitializeComponent()

    'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

    End Sub

    'La méthode substituée Dispose du formulaire 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

    'Requis par le Concepteur Windows Form
    Private components As System.ComponentModel.IContainer

    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
    'Elle peut être modifiée en utilisant le Concepteur Windows Form.
    'Ne la modifiez pas en utilisant l'éditeur de code.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents Button7 As System.Windows.Forms.Button
    Friend WithEvents Button8 As System.Windows.Forms.Button
    Friend WithEvents Button9 As System.Windows.Forms.Button
    Friend WithEvents Button10 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Button11 As System.Windows.Forms.Button
    Friend WithEvents Button12 As System.Windows.Forms.Button
    Friend WithEvents Button13 As System.Windows.Forms.Button
    Friend WithEvents Button14 As System.Windows.Forms.Button
    Friend WithEvents Button15 As System.Windows.Forms.Button
    Friend WithEvents Button16 As System.Windows.Forms.Button
    Friend WithEvents Button17 As System.Windows.Forms.Button
    Friend WithEvents Button18 As System.Windows.Forms.Button
    Friend WithEvents Button19 As System.Windows.Forms.Button
    Friend WithEvents Button20 As System.Windows.Forms.Button
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.Button1 = New System.Windows.Forms.Button
    Me.Button2 = New System.Windows.Forms.Button
    Me.Button3 = New System.Windows.Forms.Button
    Me.Button4 = New System.Windows.Forms.Button
    Me.Button5 = New System.Windows.Forms.Button
    Me.Button6 = New System.Windows.Forms.Button
    Me.Button7 = New System.Windows.Forms.Button
    Me.Button8 = New System.Windows.Forms.Button
    Me.Button9 = New System.Windows.Forms.Button
    Me.Button10 = New System.Windows.Forms.Button
    Me.TextBox1 = New System.Windows.Forms.TextBox
    Me.Button11 = New System.Windows.Forms.Button
    Me.Button12 = New System.Windows.Forms.Button
    Me.Button13 = New System.Windows.Forms.Button
    Me.Button14 = New System.Windows.Forms.Button
    Me.Button15 = New System.Windows.Forms.Button
    Me.Button16 = New System.Windows.Forms.Button
    Me.Button17 = New System.Windows.Forms.Button
    Me.Button18 = New System.Windows.Forms.Button
    Me.Button19 = New System.Windows.Forms.Button
    Me.Button20 = New System.Windows.Forms.Button
    Me.MainMenu1 = New System.Windows.Forms.MainMenu
    Me.MenuItem1 = New System.Windows.Forms.MenuItem
    Me.MenuItem2 = New System.Windows.Forms.MenuItem
    Me.MenuItem9 = New System.Windows.Forms.MenuItem
    Me.MenuItem3 = New System.Windows.Forms.MenuItem
    Me.MenuItem4 = New System.Windows.Forms.MenuItem
    Me.MenuItem5 = New System.Windows.Forms.MenuItem
    Me.MenuItem6 = New System.Windows.Forms.MenuItem
    Me.MenuItem12 = New System.Windows.Forms.MenuItem
    Me.MenuItem7 = New System.Windows.Forms.MenuItem
    Me.MenuItem10 = New System.Windows.Forms.MenuItem
    Me.MenuItem8 = New System.Windows.Forms.MenuItem
    Me.MenuItem11 = New System.Windows.Forms.MenuItem
    Me.SuspendLayout()
    '
    'Button1
    '
    Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button1.ForeColor = System.Drawing.Color.Blue
    Me.Button1.Location = New System.Drawing.Point(32, 72)
    Me.Button1.Name = "Button1"
    Me.Button1.Size = New System.Drawing.Size(48, 40)
    Me.Button1.TabIndex = 0
    Me.Button1.Text = "1"
    '
    'Button2
    '
    Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button2.ForeColor = System.Drawing.Color.Blue
    Me.Button2.Location = New System.Drawing.Point(88, 72)
    Me.Button2.Name = "Button2"
    Me.Button2.Size = New System.Drawing.Size(48, 40)
    Me.Button2.TabIndex = 1
    Me.Button2.Text = "2"
    '
    'Button3
    '
    Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button3.ForeColor = System.Drawing.Color.Blue
    Me.Button3.Location = New System.Drawing.Point(144, 72)
    Me.Button3.Name = "Button3"
    Me.Button3.Size = New System.Drawing.Size(48, 40)
    Me.Button3.TabIndex = 2
    Me.Button3.Text = "3"
    '
    'Button4
    '
    Me.Button4.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button4.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button4.ForeColor = System.Drawing.Color.Blue
    Me.Button4.Location = New System.Drawing.Point(32, 120)
    Me.Button4.Name = "Button4"
    Me.Button4.Size = New System.Drawing.Size(48, 40)
    Me.Button4.TabIndex = 3
    Me.Button4.Text = "4"
    '
    'Button5
    '
    Me.Button5.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button5.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button5.ForeColor = System.Drawing.Color.Blue
    Me.Button5.Location = New System.Drawing.Point(88, 120)
    Me.Button5.Name = "Button5"
    Me.Button5.Size = New System.Drawing.Size(48, 40)
    Me.Button5.TabIndex = 4
    Me.Button5.Text = "5"
    '
    'Button6
    '
    Me.Button6.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button6.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button6.ForeColor = System.Drawing.Color.Blue
    Me.Button6.Location = New System.Drawing.Point(144, 120)
    Me.Button6.Name = "Button6"
    Me.Button6.Size = New System.Drawing.Size(48, 40)
    Me.Button6.TabIndex = 5
    Me.Button6.Text = "6"
    '
    'Button7
    '
    Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button7.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button7.ForeColor = System.Drawing.Color.Blue
    Me.Button7.Location = New System.Drawing.Point(32, 168)
    Me.Button7.Name = "Button7"
    Me.Button7.Size = New System.Drawing.Size(48, 40)
    Me.Button7.TabIndex = 6
    Me.Button7.Text = "7"
    '
    'Button8
    '
    Me.Button8.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button8.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button8.ForeColor = System.Drawing.Color.Blue
    Me.Button8.Location = New System.Drawing.Point(88, 168)
    Me.Button8.Name = "Button8"
    Me.Button8.Size = New System.Drawing.Size(48, 40)
    Me.Button8.TabIndex = 7
    Me.Button8.Text = "8"
    '
    'Button9
    '
    Me.Button9.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button9.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button9.ForeColor = System.Drawing.Color.Blue
    Me.Button9.Location = New System.Drawing.Point(144, 168)
    Me.Button9.Name = "Button9"
    Me.Button9.Size = New System.Drawing.Size(48, 40)
    Me.Button9.TabIndex = 8
    Me.Button9.Text = "9"
    '
    'Button10
    '
    Me.Button10.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button10.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button10.ForeColor = System.Drawing.SystemColors.ActiveCaption
    Me.Button10.Location = New System.Drawing.Point(88, 216)
    Me.Button10.Name = "Button10"
    Me.Button10.Size = New System.Drawing.Size(48, 40)
    Me.Button10.TabIndex = 9
    Me.Button10.Text = "0"
    '
    'TextBox1
    '
    Me.TextBox1.Location = New System.Drawing.Point(24, 16)
    Me.TextBox1.Multiline = True
    Me.TextBox1.Name = "TextBox1"
    Me.TextBox1.ReadOnly = True
    Me.TextBox1.Size = New System.Drawing.Size(304, 40)
    Me.TextBox1.TabIndex = 10
    Me.TextBox1.Text = ""
    '
    'Button11
    '
    Me.Button11.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button11.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button11.ForeColor = System.Drawing.Color.Black
    Me.Button11.Location = New System.Drawing.Point(256, 72)
    Me.Button11.Name = "Button11"
    Me.Button11.Size = New System.Drawing.Size(80, 40)
    Me.Button11.TabIndex = 11
    Me.Button11.Text = "CEE"
    '
    'Button12
    '
    Me.Button12.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button12.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button12.ForeColor = System.Drawing.Color.Red
    Me.Button12.Location = New System.Drawing.Point(200, 216)
    Me.Button12.Name = "Button12"
    Me.Button12.Size = New System.Drawing.Size(48, 40)
    Me.Button12.TabIndex = 12
    Me.Button12.Text = "+"
    '
    'Button13
    '
    Me.Button13.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button13.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button13.ForeColor = System.Drawing.Color.Red
    Me.Button13.Location = New System.Drawing.Point(144, 216)
    Me.Button13.Name = "Button13"
    Me.Button13.Size = New System.Drawing.Size(48, 40)
    Me.Button13.TabIndex = 13
    Me.Button13.Text = "="
    '
    'Button14
    '
    Me.Button14.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button14.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button14.ForeColor = System.Drawing.Color.Red
    Me.Button14.Location = New System.Drawing.Point(200, 168)
    Me.Button14.Name = "Button14"
    Me.Button14.Size = New System.Drawing.Size(48, 40)
    Me.Button14.TabIndex = 14
    Me.Button14.Text = "-"
    '
    'Button15
    '
    Me.Button15.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button15.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button15.ForeColor = System.Drawing.Color.Red
    Me.Button15.Location = New System.Drawing.Point(200, 120)
    Me.Button15.Name = "Button15"
    Me.Button15.Size = New System.Drawing.Size(48, 40)
    Me.Button15.TabIndex = 15
    Me.Button15.Text = "*"
    '
    'Button16
    '
    Me.Button16.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button16.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button16.ForeColor = System.Drawing.Color.Red
    Me.Button16.Location = New System.Drawing.Point(200, 72)
    Me.Button16.Name = "Button16"
    Me.Button16.Size = New System.Drawing.Size(48, 40)
    Me.Button16.TabIndex = 16
    Me.Button16.Text = "/"
    '
    'Button17
    '
    Me.Button17.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button17.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button17.ForeColor = System.Drawing.SystemColors.ActiveCaption
    Me.Button17.Location = New System.Drawing.Point(32, 216)
    Me.Button17.Name = "Button17"
    Me.Button17.Size = New System.Drawing.Size(48, 40)
    Me.Button17.TabIndex = 17
    Me.Button17.Text = "."
    '
    'Button18
    '
    Me.Button18.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button18.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button18.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button18.ForeColor = System.Drawing.Color.Red
    Me.Button18.Location = New System.Drawing.Point(256, 120)
    Me.Button18.Name = "Button18"
    Me.Button18.Size = New System.Drawing.Size(80, 40)
    Me.Button18.TabIndex = 18
    Me.Button18.Text = "rac"
    '
    'Button19
    '
    Me.Button19.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button19.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button19.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button19.ForeColor = System.Drawing.Color.Red
    Me.Button19.Location = New System.Drawing.Point(256, 168)
    Me.Button19.Name = "Button19"
    Me.Button19.Size = New System.Drawing.Size(80, 40)
    Me.Button19.TabIndex = 19
    Me.Button19.Text = "%"
    '
    'Button20
    '
    Me.Button20.BackColor = System.Drawing.Color.WhiteSmoke
    Me.Button20.Cursor = System.Windows.Forms.Cursors.Hand
    Me.Button20.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.Button20.ForeColor = System.Drawing.Color.Red
    Me.Button20.Location = New System.Drawing.Point(256, 216)
    Me.Button20.Name = "Button20"
    Me.Button20.Size = New System.Drawing.Size(80, 40)
    Me.Button20.TabIndex = 20
    Me.Button20.Text = "1/x"
    '
    'MainMenu1
    '
    Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4, Me.MenuItem7})
    '
    'MenuItem1
    '
    Me.MenuItem1.Index = 0
    Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem9, Me.MenuItem3})
    Me.MenuItem1.Text = "&Fichier"
    '
    'MenuItem2
    '
    Me.MenuItem2.Index = 0
    Me.MenuItem2.Text = "&Nouveau"
    '
    'MenuItem9
    '
    Me.MenuItem9.Index = 1
    Me.MenuItem9.Text = "-"
    '
    'MenuItem3
    '
    Me.MenuItem3.Index = 2
    Me.MenuItem3.Text = "&Fermer"
    '
    'MenuItem4
    '
    Me.MenuItem4.Index = 1
    Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6, Me.MenuItem12})
    Me.MenuItem4.Text = "&Edition"
    '
    'MenuItem5
    '
    Me.MenuItem5.Index = 0
    Me.MenuItem5.Text = "&Copier"
    '
    'MenuItem6
    '
    Me.MenuItem6.Index = 1
    Me.MenuItem6.Text = "&Coller"
    '
    'MenuItem12
    '
    Me.MenuItem12.Index = 2
    Me.MenuItem12.Text = "&Couper"
    '
    'MenuItem7
    '
    Me.MenuItem7.Index = 2
    Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10, Me.MenuItem8, Me.MenuItem11})
    Me.MenuItem7.Text = "?"
    '
    'MenuItem10
    '
    Me.MenuItem10.Index = 0
    Me.MenuItem10.Text = "-"
    '
    'MenuItem8
    '
    Me.MenuItem8.Index = 1
    Me.MenuItem8.Text = "Apropos de le calculatrice "
    '
    'MenuItem11
    '
    Me.MenuItem11.Index = 2
    Me.MenuItem11.Text = "-"
    '
    'Form1
    '
    Me.AccessibleRole = System.Windows.Forms.AccessibleRole.Caret
    Me.AutoScaleBaseSize = New System.Drawing.Size(12, 28)
    Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(255, Byte))
    Me.ClientSize = New System.Drawing.Size(368, 281)
    Me.Controls.Add(Me.Button20)
    Me.Controls.Add(Me.Button19)
    Me.Controls.Add(Me.Button18)
    Me.Controls.Add(Me.Button17)
    Me.Controls.Add(Me.Button16)
    Me.Controls.Add(Me.Button15)
    Me.Controls.Add(Me.Button14)
    Me.Controls.Add(Me.Button13)
    Me.Controls.Add(Me.Button12)
    Me.Controls.Add(Me.Button11)
    Me.Controls.Add(Me.TextBox1)
    Me.Controls.Add(Me.Button10)
    Me.Controls.Add(Me.Button9)
    Me.Controls.Add(Me.Button8)
    Me.Controls.Add(Me.Button7)
    Me.Controls.Add(Me.Button6)
    Me.Controls.Add(Me.Button5)
    Me.Controls.Add(Me.Button4)
    Me.Controls.Add(Me.Button3)
    Me.Controls.Add(Me.Button2)
    Me.Controls.Add(Me.Button1)
    Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.ForeColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
    Me.Menu = Me.MainMenu1
    Me.Name = "Form1"
    Me.Text = "CALCULATRICE"
    Me.ResumeLayout(False)

    End Sub

    #End Region

    Dim chaine As String
    Dim resulta As Double
    Dim a As Integer

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    chaine = chaine + "0"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    chaine = chaine + "1"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    chaine = chaine + "2"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    chaine = chaine + "3"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    chaine = chaine + "4"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    chaine = chaine + "5"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    chaine = chaine + "6"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    chaine = chaine + "7"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    chaine = chaine + "8"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    chaine = chaine + "9"
    TextBox1.Text = chaine
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    chaine = ""
    TextBox1.Text = "0"
    resulta = 0
    Button17.Enabled = True
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    resulta = resulta + (Val(chaine))
    a = 0
    chaine = ""
    Button17.Enabled = True
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
    If a = 0 Then
    resulta = resulta + Val(chaine)
    End If
    If a = 1 Then
    resulta = resulta / (Val(chaine))
    End If
    If a = 2 Then
    resulta = resulta - (Val(chaine))
    End If
    If a = 3 Then
    resulta = resulta * (Val(chaine))
    End If
    TextBox1.Text = resulta
    chaine = ""
    Button17.Enabled = True
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
    resulta = resulta - (Val(chaine))
    a = 2
    chaine = ""
    Button17.Enabled = True
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
    chaine = chaine + "."
    TextBox1.Text = chaine
    Button17.Enabled = False
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
    resulta = resulta / (Val(chaine))
    a = 1
    chaine = ""
    Button17.Enabled = True
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
    If resulta = 0 Then
    resulta = Val(chaine)
    chaine = ""
    a = 3
    Else
    resulta = resulta * (Val(chaine))
    a = 3
    chaine = ""
    End If
    Button17.Enabled = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    chaine = ""
    resulta = 0
    TextBox1.Text = "0"

    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
    resulta = Math.Sqrt(Val(chaine))
    TextBox1.Text = resulta
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
    resulta = 1 / (Val(chaine))
    TextBox1.Text = resulta
    End Sub

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
    Button1.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
    Button1.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseMove
    Button2.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseMove
    Button3.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseMove
    Button4.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button5.MouseMove
    Button5.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button6_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button6.MouseMove
    Button6.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button7_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button7.MouseMove
    Button7.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button8.MouseMove
    Button8.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button9_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button9.MouseMove
    Button9.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button17_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button17.MouseMove
    Button17.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button10_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button10.MouseMove
    Button10.BackColor = BackColor.LightSteelBlue
    End Sub

    Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
    Button2.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseLeave
    Button3.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button4_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.MouseLeave
    Button4.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button5_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.MouseLeave
    Button5.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button6_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.MouseLeave
    Button6.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button7_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.MouseLeave
    Button7.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button8_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.MouseLeave
    Button8.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.MouseLeave
    Button9.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button17_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button17.MouseLeave
    Button17.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.MouseLeave
    Button10.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button16_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button16.MouseMove
    Button16.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button15_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button15.MouseMove
    Button15.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button14_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button14.MouseMove
    Button14.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button12_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button12.MouseMove
    Button12.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button13_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button13.MouseMove
    Button13.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button16_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button16.MouseLeave
    Button16.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button15_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button15.MouseLeave
    Button15.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button14_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.MouseLeave
    Button14.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button12_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button12.MouseLeave
    Button12.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button13_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button13.MouseLeave
    Button13.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button18_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button18.MouseLeave
    Button18.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
    resulta = (Val(chaine)) / 100
    End Sub

    Private Sub Button19_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button19.MouseLeave
    Button19.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button20_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button20.MouseLeave
    Button20.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub Button18_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button18.MouseMove
    Button18.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button19_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button19.MouseMove
    Button19.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button20_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button20.MouseMove
    Button20.BackColor = BackColor.LightCoral
    End Sub

    Private Sub Button11_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button11.MouseMove
    Button11.BackColor = BackColor.LightGray
    End Sub

    Private Sub Button11_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.MouseLeave
    Button11.BackColor = BackColor.WhiteSmoke
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
    Dim f1 As New Form2
    f1.Show()

    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
    chaine = ""
    resulta = 0
    Button17.Enabled = True
    TextBox1.Text = 0
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
    End
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
    Me.TextBox1.Copy()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
    TextBox1.Paste()

    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
    TextBox1.Copy()
    TextBox1.Text = ""
    End Sub
    End Class
    -1

Discussions similaires

je souhaite une calculette de temps en ligne
Utilisateur anonyme -
sanfroiniloi -

7 réponses
TV LG "Non programmé"
Chantal Joubert -
Mancini -

5 réponses