[ابو روضة]

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

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)

[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 


[ابو روضة]

(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

[asemshahen5]

هذا :

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 


أو ضع مثالك لاعدله لك .

[ابو روضة]

المشورع كبير استاذ عاصم وانا قولت لحضرتك بردى السابق كل ما أريد...
فأنا واضع هذا الكود داحل تايمر 

كود :

      Dim PostText As String = "أهلا ومرحبا " & CheckedListBox1.SelectedItem & vbNewLine & TextBox2.Text
      WebBrowser2.Document.GetElementById("xc_message").SetAttribute("value", PostText)

ويمر على خانة خانة فأنا اريده يأخذ اسم الأيتم اللى عليه Checked   مع اللى مكتوب داخل التكست بوكس
يعنى لو اسم الايتم اللى عليه Checked  مثلا سامى فيكون " اهلا ومرحبا سامى "
ولو عاصم فيكون " اهلا ومرحبا عاصم " وهكذا....
اريد فقط تغير هذا CheckedListBox1.SelectedItem
بال ListView1 ...
لكن لو معقدة او هاتتعب حضرتك فجزاك الله كل خير طبعا

[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 


[ابو روضة]

(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 


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

[asemshahen5]

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