کار با With

[aleas2]

دوستان ممنون میشم کد زیر رو درستشو بنویسین

Private Sub loadsite(linksite As String,, i As integer)
If i = 1 Then With List1
If i = 2 Then With List2
If i = 3 Then With List3
If i = 4 Then With List4

for j=0 to 10
.additem j
.additem linksite
next j


If i = 1 Then End With
If i = 2 Then End With
If i = 3 Then End With
If i = 4 Then End With
End Sub
البته i هم میشه از رشته تعریف کرد ورودیش list1 -list2-list3-list4 باشه

[محسن واژدی]

سلام علیکم
به یکی از دو صورت زیر بنویسیم درست هست:
Private Sub loadsite(linksite As String, i As Integer)
Dim oListBox
If i = 1 Then Set oListBox = List1
If i = 2 Then Set oListBox = List2
If i = 3 Then Set oListBox = List3
If i = 4 Then Set oListBox = List4
With oListBox
For j = 0 To 10
.AddItem j
.AddItem linksite
Next j
End With
End Sub

یا
Private Sub loadsite(linksite As String, oListBox As ListBox)
With oListBox
For j = 0 To 10
.AddItem j
.AddItem linksite
Next j
End With
End Sub
در روال دوم نام list-box را در آرگومان oListBox قرار میدهیم

موفق باشید