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