Listview DblClick sütun değiştirme.

[vardar07]

Merhabalar. Arkadaşlar listview'de ListView1_DblClick olayında verileri textbox veya comboboxlara aktarabiliyoruz.Ancak yapmak istediğim eğer aktarma olayında örnek olarak "ListView1.ListItems(x).ListSubItems(6).Text > 0 " ise "ListView1.ListItems(x).ListSubItems(7).Text" oması için nasıl bir yol izlemek lazım. Aşaağıdaki kırmızılı yerlerde negibi değişiklik yapmak lazım.

Private Sub ListView1_DblClick()

TextBox11.Visible = False
CommandButton6.Visible = False
On Error Resume Next
  
If ListView1.ListItems.Count = 0 Then Exit Sub
  x = ListView1.SelectedItem.Index
  ComboBox1.Text = ListView1.ListItems(x).ListSubItems(3).Text
  TextBox1.Text = ListView1.ListItems(x).ListSubItems(4).Text
  ComboBox2.Text = ListView1.ListItems(x).ListSubItems(5).Text
  
 [COLOR="Red"] If ListView1.ListItems(x).ListSubItems(6).Text > 0 Then
  CheckBox1 = True
  TextBox3.Text = ListView1.ListItems(x).ListSubItems(6).Text[/COLOR]
  
  Else
  [COLOR="Red"]CheckBox1 = False
  TextBox3.Text = ListView1.ListItems(x).ListSubItems(7).Text[/COLOR]
  End If
 
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki satırın (Else den önceki satır) son bölümündeki 6 değerini 7 olarak değiştirip deneyin.

TextBox3.Text = ListView1.ListItems(x).ListSubItems([COLOR="Red"]6[/COLOR]).Text

 

[vardar07]

Merhaba,

Aşağıdaki satırın (Else den önceki satır) son bölümündeki 6 değerini 7 olarak değiştirip deneyin.

TextBox3.Text = ListView1.ListItems(x).ListSubItems([COLOR="Red"]6[/COLOR]).Text

Merhabalar . Çok teşekkürler dikkatimden kaçmış.Sağolasınız.