Étape 2: Obtenir le Code de base
Étape 12 : Insérez le code suivant :
'This will close the application' Me.Close()
Étape 13 : Double cliquez sur le « ConvertButton nouveau cet ». Cela rendra le nouveau Private Sub qui sera activé lorsque le bouton est cliqué.
Étape 14 : Insérez le code suivant :
'These are the Boolean for the Length in the first box' Dim Mile1 As Boolean Dim KM1 As Boolean Dim M1 As Boolean Dim CM1 As Boolean 'These are the Boolean for the length in the second box' Dim Mile2 As Boolean Dim KM2 As Boolean Dim M2 As Boolean Dim CM2 As Boolean 'These are the inserted numbers that will be converted' Dim Num1 As String Num1 = UnitText1.Text Dim Num1 As String Num2 = UnitText2.Text