Current location - Plastic Surgery and Aesthetics Network - Plastic surgery and beauty - Ride forming operation
Ride forming operation
Public? My label? As? integer

Private? Sub? add_Click()

Me.subtrack.Enabled? =? wrong

Me.ride.Enabled? =? wrong

Me.remove.Enabled? =? wrong

My label? =? 1

Me. Text 2. Set focus

End? submarine

Private? Sub? Command 1_Click()

Choice? Case? My label

Case? 1

Me. SMS 3. SMS? =? Val (me. Text 1)? +? Val (me. Text 2)

Case? 2

Me. SMS 3. SMS? =? Val (me. Text 1)? -? Val (me. Text 2)

Case? three

Me. SMS 3. SMS? =? Val (me. Text 1)? *? Val (me. Text 2)

Case? four

Me. SMS 3. SMS? =? Val (me. Text 1)? /? Val (me. Text 2)

End? choose

End? submarine

Private? Sub? Command2_Click()

Me. Text 1? =? ""

Me. Text2? =? ""

Me. Text3? =? ""

My label? =? 0

Me.subtrack.Enabled? =? real

Me.ride.Enabled? =? real

Me.add.Enabled? =? real

Me.remove.Enabled? =? real

Me. Text 1。 SetFocus

End? submarine

Private? Sub? Form_Load()

Me. Text 1? =? ""

Me. Text2? =? ""

Me. Text3? =? ""

End? submarine

Private? Sub? remove_Click()

Me.subtrack.Enabled? =? wrong

Me.ride.Enabled? =? wrong

Me.add.Enabled? =? wrong

My label? =? four

Me. Text 2. Set focus

End? submarine

Private? Sub? ride_Click()

Me.subtrack.Enabled? =? wrong

Me.add.Enabled? =? wrong

Me.remove.Enabled? =? wrong

My label? =? three

Me. Text 2. Set focus

End? submarine

Private? Sub? subtrack_Click()

Me.add.Enabled? =? wrong

Me.ride.Enabled? =? wrong

Me.remove.Enabled? =? wrong

My label? =? 2

Me. Text 2. Set focus

End? submarine