Visual Basic 6.0 hakkında bir sorum var

justsetmefree dedi: ↑

if txtKullaniciAdi.text <> " " And txtSifre.text <> " " then

şeklinde olursa sorun düzelir.

SDN Okuru dedi: ↑

s.a abi ebnim sorum şudur
dizi(1)=78
dizi(2 )=30
dizi(3)=52
dizi(4 )=18
abi bunları formda otomatik bi şekilde küçükten büyüğe sıralamak yardımlanızı rica ederim

Dim dizi() As Integer
Private Sub cmdSort_Click()
BubbleSort dizi()
lstOutput.Clear
For i = 0 To UBound(dizi())
    lstOutput.AddItem Str(dizi(i))
Next
End Sub

Private Sub Form_Load()
ReDim dizi(4)
Dim i As Integer
dizi(0) = 1
dizi(1) = 78
dizi(2) = 30
dizi(3) = 52
dizi(4) = 18
lstOutput.Clear
For i = 0 To UBound(dizi())
    lstOutput.AddItem Str(dizi(i))
Next
End Sub

Sub BubbleSort(pArray() As Integer)
For ii = 0 To UBound(pArray()) - 1
For i = 0 To UBound(pArray()) - 1
    If pArray(i) > pArray(i + 1) Then 'Swap
        t = pArray(i + 1)
        pArray(i + 1) = pArray(i)
        pArray(i) = t
    End If
Next
Next
End Sub