+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل بيسط على الكود (/showthread.php?tid=18466)
تعديل بيسط على الكود - 3asfa~mdmra - 18-12-16
بسم الله الرحمان الرحيم
وصلاة والسلام على سيدنا محمد
وبعد/
رغم
انيي حاولت بكافة الطرق ولم افلح
وطرقت بابكم
PHP كود :
Private Sub HawkEyeButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HawkEyeButton3.Click
Try
Dim strArray As String() = Me.RichTextBox1.Text.Split(New Char() {"#"c})
ListBox1.Items.Add(strArray(1))
ListBox1.Items.Add(strArray(2))
ListBox1.Items.Add(strArray(3))
ListBox1.Items.Add(strArray(4))
ListBox1.Items.Add(strArray(5))
ListBox1.Items.Add(strArray(6))
ListBox1.Items.Add(strArray(7))
ListBox1.Items.Add(strArray(8))
ListBox1.Items.Add(strArray(9))
ListBox1.Items.Add(strArray(10))
Me.RichTextBox1.Text = Nothing
Dim i As Integer = 2
Do While (i <= strArray.GetUpperBound(0))
Me.RichTextBox1.Text = (Me.RichTextBox1.Text & strArray(i) & "#")
i += 1
Loop
Catch ex As Exception
MessageBox.Show("End Id Flooder")
End Try
End Sub
Private Sub HawkEyeButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HawkEyeButton4.Click
x = New agsXMPP.XmppClientConnection
With x
Dim strArray As String() = Me.RichTextBox1.Text.Split(New Char() {"#"c})
.Server = "nimbuzz.com"
.ConnectServer = "o.nimbuzz.com"
.Open(strArray(1), password.Text)
.Resource = ("Nimbuzz_Symbian" & Me.Generatecode())
.Status = "GAZA LOVE ♥ all"
.ClientVersion = ("1.0")
.Port = "5222"
AddHandler .OnLogin, AddressOf loged
AddHandler .OnAuthError, AddressOf wrong
End With
End Sub
RE: تعديل بيسط على الكود - silverlight - 18-12-16
اكتب مثال للكود للتعديل عليه بدلا من الصورة
عموما من الواضح انك عندك مشكلة مع المصفوفة ربما التكست بوكس خالي و ليس به تكست لتحويله الي مصفوفة
وعلي فكرة الكود هذا طويل جدا وممكن تقليصه تماما
أعتقد ان تعريفك للمصفوفة يجب ان يكون عام و ليس بهذا الاسلوب او يكون التعريف خاص ولكن في أول الفورم قبل تنفيذ اي حدث أخر
RE: تعديل بيسط على الكود - 3asfa~mdmra - 18-12-16
(18-12-16, 03:29 AM)silverlight كتب : اكتب مثال للكود للتعديل عليه بدلا من الصورة
عموما من الواضح انك عندك مشكلة مع المصفوفة ربما التكست بوكس خالي و ليس به تكست لتحويله الي مصفوفة
وعلي فكرة الكود هذا طويل جدا وممكن تقليصه تماما
أعتقد ان تعريفك للمصفوفة يجب ان يكون عام و ليس بهذا الاسلوب او يكون التعريف خاص ولكن في أول الفورم قبل تنفيذ اي حدث أخر
PHP كود :
Private Sub HawkEyeButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HawkEyeButton3.Click
Try
Dim strArray As String() = Me.RichTextBox1.Text.Split(New Char() {"#"c})
ListBox1.Items.Add(strArray(1))
ListBox1.Items.Add(strArray(2))
ListBox1.Items.Add(strArray(3))
ListBox1.Items.Add(strArray(4))
ListBox1.Items.Add(strArray(5))
ListBox1.Items.Add(strArray(6))
ListBox1.Items.Add(strArray(7))
ListBox1.Items.Add(strArray(8))
ListBox1.Items.Add(strArray(9))
ListBox1.Items.Add(strArray(10))
Me.RichTextBox1.Text = Nothing
Dim i As Integer = 2
Do While (i <= strArray.GetUpperBound(0))
Me.RichTextBox1.Text = (Me.RichTextBox1.Text & strArray(i) & "#")
i += 1
Loop
Catch ex As Exception
MessageBox.Show("End Id Flooder")
End Try
End Sub
Private Sub HawkEyeButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HawkEyeButton4.Click
x = New agsXMPP.XmppClientConnection
With x
Dim strArray As String() = Me.RichTextBox1.Text.Split(New Char() {"#"c})
.Server = "nimbuzz.com"
.ConnectServer = "o.nimbuzz.com"
.Open(strArray(1), password.Text)
.Resource = ("Nimbuzz_Symbian" & Me.Generatecode())
.Status = "GAZA LOVE ♥ all"
.ClientVersion = ("1.0")
.Port = "5222"
AddHandler .OnLogin, AddressOf loged
AddHandler .OnAuthError, AddressOf wrong
End With
End Sub
RE: تعديل بيسط على الكود - silverlight - 18-12-16
أعتذر انا مضطر أن امشي معك خطوة خطوة بالكود لأني لا اعلم ماذا تريد من الكود تحديدا
PHP كود :
Public Class Form1
Private strings As List(Of String) = New List(Of String)()
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim s As String = RichTextBox1.Text
If Not String.IsNullOrEmpty(s) Then
For Each value As String In s.Split("#"c)
' إضافة البيانات الي مصفوفة عامة
strings.Add(value)
' إضافة البيانات الي الليست بوكس
ListBox1.Items.Add(value)
Next
End If
RichTextBox1.Text = Nothing
' الباقي لم أفهمه رجاء التوضيح ما1ا تريد أ نتفعل هنا لاحقا
End Sub
End Class
RE: تعديل بيسط على الكود - 3asfa~mdmra - 18-12-16
(18-12-16, 04:07 AM)silverlight كتب : أعتذر انا مضطر أن امشي معك خطوة خطوة بالكود لأني لا اعلم ماذا تريد من الكود تحديدا
PHP كود :
Public Class Form1
Private strings As List(Of String) = New List(Of String)()
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim s As String = RichTextBox1.Text
If Not String.IsNullOrEmpty(s) Then
For Each value As String In s.Split("#"c)
' إضافة البيانات الي مصفوفة عامة
strings.Add(value)
' إضافة البيانات الي الليست بوكس
ListBox1.Items.Add(value)
Next
End If
RichTextBox1.Text = Nothing
' الباقي لم أفهمه رجاء التوضيح ما1ا تريد أ نتفعل هنا لاحقا
End Sub
End Class
اخي انا سوف اقوم بعمل مثل هذا البرنامج الرجاء
فتح البرنامج
وسوف تعرف ماالمطلوب
RE: تعديل بيسط على الكود - silverlight - 18-12-16
لا أستطيع تنزيل الملف
عموما هذا تعديل بسيط علي الكود اعلاه
اعتقد انك تريد إعادة ملأ التكست بوكس بالبيانات لكن بدون #
PHP كود :
Public Class Form1
Private stringsWithoutSeparator As List(Of String) = New List(Of String)()
Private Const separator As Char = "#"c
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
' ناخذ نسخة من بيانات التكست الموجود في التكست بوكس
Dim s As String = RichTextBox1.Text
' نتأكد ان البيانات لها قيمة بالفعل حتي نستخدمها
If Not String.IsNullOrEmpty(s) Then
For Each value As String In s.Split(separator)
If Not String.IsNullOrEmpty(value) Then
' إضافة البيانات الي مصفوفة عامة
stringsWithoutSeparator.Add(value)
' إضافة البيانات الي الليست بوكس
ListBox1.Items.Add(value)
End If
Next
End If
RichTextBox1.Text = Nothing
' الباقي لم أفهمه رجاء التوضيح ماذا تريد أ نتفعل هنا لاحقا
Dim textboxString As String = ""
For Each v As String In stringsWithoutSeparator
textboxString += v
Next
textboxString.TrimEnd()
RichTextBox1.Text = textboxString
End Sub
End Class
RE: تعديل بيسط على الكود - 3asfa~mdmra - 18-12-16
(18-12-16, 04:24 AM)silverlight كتب : لا أستطيع تنزيل الملف
عموما هذا تعديل بسيط علي الكود اعلاه
اعتقد انك تريد إعادة ملأ التكست بوكس بالبيانات لكن بدون #
PHP كود :
Public Class Form1
Private stringsWithoutSeparator As List(Of String) = New List(Of String)()
Private Const separator As Char = "#"c
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
' ناخذ نسخة من بيانات التكست الموجود في التكست بوكس
Dim s As String = RichTextBox1.Text
' نتأكد ان البيانات لها قيمة بالفعل حتي نستخدمها
If Not String.IsNullOrEmpty(s) Then
For Each value As String In s.Split(separator)
If Not String.IsNullOrEmpty(value) Then
' إضافة البيانات الي مصفوفة عامة
stringsWithoutSeparator.Add(value)
' إضافة البيانات الي الليست بوكس
ListBox1.Items.Add(value)
End If
Next
End If
RichTextBox1.Text = Nothing
' الباقي لم أفهمه رجاء التوضيح ماذا تريد أ نتفعل هنا لاحقا
Dim textboxString As String = ""
For Each v As String In stringsWithoutSeparator
textboxString += v
Next
textboxString.TrimEnd()
RichTextBox1.Text = textboxString
End Sub
End Class
اخي انا مابدي افرغ كل RichTextBox1 انا فقط اريد ان اخد 10 نكات فقط
1
2
3
4
5
6
7
8
9
10
بضغط
ع Button يأخد من RichTextBox الي listbox
وبضغط مرة اخري تمسح listbox وتأتي نكات جديدة لListbox
1
2
3
4
5
6
7
8
9
10
بضغط
ع Button يأخد من RichTextBox الي listbox
وبضغط مرة اخري تمسح listbox وتأتي نكات جديدة لListbox