Un programme vb simulant la calculette window

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

  • Votes
  • Date
  • Date décroissante
  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é.
    1. sfel
      bonjour

      a quel point as-tu un souci ?
      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
    2. developping
      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. developping
        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

        Discussions similaires

        TV LG "Non programmé"
        Chantal Joubert

        7 réponses
        je souhaite une calculette de temps en ligne
        Utilisateur anonyme

        5 réponses
        Windows à la Une ne fonctionne pas.
        ugoanas

        8 réponses