Chapter 3 Exercise 2

rouzbeh_ziafati · December 20th, 2010, 03:57 PM

Create a Windows application with a text box and a button control. In the buttonâs Click event,
display three message boxes. The first message box should display the length of the string that
was entered into the text box. The second message box should display the first half of the string,
and the third message box should display the last half of the string.

please solve it

GeneBuchite · December 24th, 2010, 07:24 AM

Something Like this should work

Code:

 
If Len(Textbox1.Text) < 1 Then TextBox1.Text = "Default Text"
       Dim x As Integer = Len(TextBox1.Text)
        Dim h As Integer = x / 2

        MsgBox(x)
        MsgBox(Strings.Left(TextBox1.Text, h))
        MsgBox(Strings.Right(TextBox1.Text, h))

Just Copy & Paste into the Button1_Click Event..

gfranco · March 4th, 2011, 07:09 PM

Display 3 messages
1. Lenght of string
2. Halft of string
3. Last half of string (no clue)

I have done both, how can I accomplish the 3 one?

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strResult AsString
strResult = TextBox1.Text
MessageBox.Show("showing Lenght of string " & strResult.Length, "String")
MessageBox.Show("showing first half of string " & strResult.Substring(0, CType(strResult.Length / 2, Integer)), "Strings")
'MessageBox.Show("showing last half of sting" & strResult.Length, "String")
EndSub

GeneBuchite · March 14th, 2011, 07:21 AM

Quote:

Originally Posted by gfranco

Display 3 messages
1. Lenght of string
2. Halft of string
3. Last half of string (no clue)

I have done both, how can I accomplish the 3 one?

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strResult AsString
strResult = TextBox1.Text
MessageBox.Show("showing Lenght of string " & strResult.Length, "String")
MessageBox.Show("showing first half of string " & strResult.Substring(0, CType(strResult.Length / 2, Integer)), "Strings")
'MessageBox.Show("showing last half of sting" & strResult.Length, "String")
EndSub

Just index your start index to half of the length of the string. Ie..

Code:

 MessageBox.Show("showing first half of string " & strResult.Substring(strResult.Length / 2, CType(strResult.Length / 2, Integer)), "Strings")

Sorry to take so long to reply, I had to research this for a while. Was good for me though. Good Luck. Dont hesitate to re-post for more help.