Public Class Form 1 Private Sub Button 1ClickBy
Public Class Form 1 Private Sub Button 1_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 1. Click Text. Box 4. Text = Text. Box 1. Text + " " + Text. Box 2. Text End Sub Private Sub Button 2_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 2. Click Text. Box 4. Text = Len(Text. Box 1. Text) End Sub Private Sub Button 3_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 3. Click Text. Box 4. Text = LTrim(Text. Box 1. Text) End Sub Private Sub Button 4_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 4. Click Text. Box 4. Text = RTrim(Text. Box 1. Text) End Sub Private Sub Button 5_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 5. Click Text. Box 4. Text = Trim(Text. Box 1. Text) End Sub
Private Sub Button 7_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 7. Click Text. Box 4. Text = UCase(Text. Box 1. Text) End Sub Private Sub Button 8_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 8. Click Text. Box 4. Text = Microsoft. Visual. Basic. Left(Text. Box 1. Text, Val(Text. Box 2. Text)) End Sub Private Sub Button 9_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 9. Click Text. Box 4. Text = Microsoft. Visual. Basic. Right(Text. Box 1. Text, Val(Text. Box 2. Text)) End Sub Private Sub Button 10_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 10. Click Text. Box 4. Text = Mid(Text. Box 1. Text, Val(Text. Box 2. Text), Val(Text. Box 3. Text)) End Sub Private Sub Button 11_Click(By. Val sender As System. Object, By. Val e As System. Event. Args) Handles Button 11. Click Text. Box 4. Text = Microsoft. Visual. Basic. In. Str(Val(Text. Box 2. Text), Text. Box 1. Text, Text. Box 3. Text, Compare. Method. Binary) End Sub End Class
- Slides: 4