رد: هنا : تجمع طالبات وطلاب نظم المعلومات الإداريه (دفعة 2010 ) حياكم الله,,
اوكي يا حلويين ~ انا زبطت الجزء الاول من السوال << الدوفرهـ هع ما شاء الله
بنسخ الكود لكم و ترا في اشياء بس ناسختها من النت بس بمعجزة زبطت
استخدمت method split
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strtext As String
Dim value2 As String
Dim value() As String = TextBox1.Text.Split()
strtext = value(0).Substring(0)
Label1.Text = strtext
value2 = value(1).Substring(0)
label2.text = value2
Label4.Text = value(0).Substring(0, 1)
Dim text2 As Integer
text2 = value(0).Length
Label3.Text = CStr(text2)
|