Otomatik Listbox1 içine tıklansın...

[bistrobellman]

FORM ÜZERİNDE BİR ADE COMMANDBUTTON VE 1 ADET LİSTBOX1 VAR
Private Sub Commandbutton1_Click
If ListBox1.List(i, 0) <> "" And ComboBox3 = "Ç" Then

ListBox1.Locked = False: TextBox57.Locked = True: Call ListBox1_Click ' :? otomatik Tıklanmıyor bu kod ile
End Sub
----------------------------------------------------------------------------------------
Private Sub ListBox1_Click()
Dim devam As VbMsgBoxResult
CommandButton5.Visible = True
For i = 0 To ListBox1.ColumnCount - 1
If ListBox1.Selected(i) = True Then ' Select işlemi olmadan otomatik tıklanmış gibi sanki veriler güncellensin istiyorum?

Label21.Visible = True: ComboBox9.Visible = True: Label5.Visible = True: ComboBox8.Visible = True
If ListBox1.List(i, 0) = "EBAT" Then ListBox1.Locked = True


If ListBox1.List(i, 0) <> "" And ComboBox3 = "Ç" Then ListBox1.Locked = False: TextBox57.SetFocus
If ListBox1.List(i, 0) <> "" And ComboBox3 = "G" Then ListBox1.Locked = True: TextBox20.SetFocus

ComboBox8 = ListBox1.List(i, 1)
ComboBox9 = ListBox1.List(i, 0)
'TextBox21 = ListBox1.List(i, 2)
'ComboBox2 = ListBox1.List(i, 3)
TextBox56 = ListBox1.List(i, 10)

TextBox55 = ListBox1.List(i, 11)
TextBox17 = ListBox1.List(i, 12)

End If
Next
End Sub

 

[Levent Menteşoğlu]

Normalde çalışması gerekir, fakat yukarıda verdiğiniz kodlardan bir şey çıkartmak pek mümkün değil, bence örnek bir dosya ekleyin.