X
تبلیغات
رایتل
جمعه 22 خرداد‌ماه سال 1388 ساعت 09:14 ب.ظ
یه فرم ، یه لیست باکس و یک دکمه درست کن.اینم کدش:
کد:
Private Sub Command1_Click()

Dim i As Long
Dim j As Long
    With List1
        For i = 0 To .ListCount - 1
            For j = .ListCount To (i + 1) Step -1
                If .List(j) = .List(i) Then
                    .RemoveItem j
                End If
            Next
        Next
    End With

End Sub


Private Sub Form_Load()
For i = 1 To 10
List1.AddItem "item " & i
List1.AddItem "item " & i + 1
Next

End Sub
del.icio.us  digg  newsvine  furl  Y!  smarking  segnalo