منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معذرة اخى عاصم بخصوص موضوعى السابق - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : معذرة اخى عاصم بخصوص موضوعى السابق (/showthread.php?tid=30559)

معذرة اخى عاصم بخصوص موضوعى السابق - ابو روضة - 27-07-19

معذرة اخى عاصم بخصوص موضوعى السابق 

http://vb4arb.com/vb/showthread.php?tid=30556


 أنا أسف والله.. 
لكنه لما عملت على كل الايتم   Checked  لا يتم تنفيذ هذا الأمر إلا اللى عليه Selected فقط
وانا أريده ينفذ هذا الكود لكل من عليه Checked فقط ليس Selected ويتجاهل الباقى
كود :
Dim asem As String = listView1.SelectedItems(0).SubItems(0).Text
       'OR'
       Dim asem1 As String = listView1.SelectedItems(0).SubItems("Id").Text
       MessageBox.Show(asem)


RE: معذرة اخى عاصم بخصوص موضوعى السابق - asemshahen5 - 28-07-19

و لا يهمك اعتذر منك على التأخر بسبب قطع الكهرباء :

هذا يعمل مع السجل المحدد :
PHP كود :
   Dim asem As String = listView1.SelectedItems(0).SubItems(0).Text        'OR'
        Dim asem1 As String = listView1.SelectedItems(0).SubItems(1).Text
        If listView1.CheckedItems(0).Selected = True Then
            MessageBox.Show(asem)
            MessageBox.Show(asem1)
        ElseIf listView1.CheckedItems(0).Selected = False Then
            MessageBox.Show("F")
            MessageBox.Show("F")
        End If 
هذا يعمل مع السجل حسب رقم Items اظنه ما تبغيه :
PHP كود :
Dim asem As String = listView1.Items(1).SubItems(0).Text        'OR'
        Dim asem1 As String = listView1.Items(1).SubItems(1).Text
        If listView1.CheckedItems(1).Selected = True Then
            MessageBox.Show(asem)
            MessageBox.Show(asem1)
        ElseIf listView1.CheckedItems(1).Selected = False Then
            MessageBox.Show("F")
            MessageBox.Show("F")
        End If 


RE: معذرة اخى عاصم بخصوص موضوعى السابق - ابو روضة - 28-07-19

(28-07-19, 01:40 AM)asemshahen5 كتب : و لا يهمك اعتذر منك على التأخر بسبب قطع الكهرباء :

هذا يعمل مع السجل المحدد :
PHP كود :
   Dim asem As String = listView1.SelectedItems(0).SubItems(0).Text        'OR'
        Dim asem1 As String = listView1.SelectedItems(0).SubItems(1).Text
        If listView1.CheckedItems(0).Selected = True Then
            MessageBox.Show(asem)
            MessageBox.Show(asem1)
        ElseIf listView1.CheckedItems(0).Selected = False Then
            MessageBox.Show("F")
            MessageBox.Show("F")
        End If 
هذا يعمل مع السجل حسب رقم Items اظنه ما تبغيه :
PHP كود :
Dim asem As String = listView1.Items(1).SubItems(0).Text        'OR'
        Dim asem1 As String = listView1.Items(1).SubItems(1).Text
        If listView1.CheckedItems(1).Selected = True Then
            MessageBox.Show(asem)
            MessageBox.Show(asem1)
        ElseIf listView1.CheckedItems(1).Selected = False Then
            MessageBox.Show("F")
            MessageBox.Show("F")
        End If 


ربنا يعزك أخى العزيز فعلا أرهقتك والله فألتمس منك العذر لله...
لو تكرمت أخى عاصم انا كل ما أريده هو  إدخاله مع هذا الكود بالتحديد بدلا من ال CheckedListBox
كود :
       Dim PostText As String = "أهلا ومرحبا " & CheckedListBox1.SelectedItem & vbNewLine & TextBox2.Text
       WebBrowser2.Document.GetElementById("xc_message").SetAttribute("value", PostText)

بحيث ان كلمة أهلا ومرحبا تأخذ معها الاسم اللى عليه Checked

RE: معذرة اخى عاصم بخصوص موضوعى السابق - asemshahen5 - 28-07-19

هذا :

PHP كود :
For Each item As ListViewItem In listView1.CheckedItems
            MsgBox(item.Text)
        Next 
أو :
PHP كود :
For Each item As ListViewItem In listView1.CheckedItems
            MsgBox(item.Text)
            MsgBox(item.SubItems(1).Text)
        Next 
أو ضع مثالك لاعدله لك .

RE: معذرة اخى عاصم بخصوص موضوعى السابق - ابو روضة - 28-07-19

المشورع كبير استاذ عاصم وانا قولت لحضرتك بردى السابق كل ما أريد...
فأنا واضع هذا الكود داحل تايمر 
كود :
      Dim PostText As String = "أهلا ومرحبا " & CheckedListBox1.SelectedItem & vbNewLine & TextBox2.Text
      WebBrowser2.Document.GetElementById("xc_message").SetAttribute("value", PostText)
ويمر على خانة خانة فأنا اريده يأخذ اسم الأيتم اللى عليه Checked   مع اللى مكتوب داخل التكست بوكس
يعنى لو اسم الايتم اللى عليه Checked  مثلا سامى فيكون " اهلا ومرحبا سامى "
ولو عاصم فيكون " اهلا ومرحبا عاصم " وهكذا....
اريد فقط تغير هذا CheckedListBox1.SelectedItem
بال ListView1 ...
لكن لو معقدة او هاتتعب حضرتك فجزاك الله كل خير طبعا

RE: معذرة اخى عاصم بخصوص موضوعى السابق - asemshahen5 - 28-07-19

المشوار بسيط باذن الله لكن مع مثال اتأكد من اختيار الكود الافضل و عدم وجود أخطاء فقط لاغير .

PHP كود :
       For Each item As ListViewItem In listView1.CheckedItems
            Dim PostText As String = "أهلا ومرحبا " & item.SubItems(1).Text & vbNewLine & TextBox2.Text
            WebBrowser2.Document.GetElementById("xc_message").SetAttribute("value", PostText)
        Next 


RE: معذرة اخى عاصم بخصوص موضوعى السابق - ابو روضة - 28-07-19

(28-07-19, 03:08 AM)asemshahen5 كتب : المشوار بسيط باذن الله لكن مع مثال اتأكد من اختيار الكود الافضل و عدم وجود أخطاء فقط لاغير .

PHP كود :
       For Each item As ListViewItem In listView1.CheckedItems
            Dim PostText As String = "أهلا ومرحبا " & item.SubItems(1).Text & vbNewLine & TextBox2.Text
            WebBrowser2.Document.GetElementById("xc_message").SetAttribute("value", PostText)
        Next 

جزاك الله كل الخير استاذى الكريم وسمحنى الله يكرمك ويبارك بعمرك...


RE: معذرة اخى عاصم بخصوص موضوعى السابق - asemshahen5 - 28-07-19

ولا يهمك نحن اخوة باذن الله .