vba kodlarını delphiye uyarlamak.

[a_self_lion]

Selam arkadaşlar,

Aşağıdaki kodu delphiye nasıl uyarlayabiliriz

Kod: Tümünü seç

 
    If TextBox9 = "" Then
        ListBox2.RowSource = "MLZ_KOD!B2:E" & Sheets("MLZ_KOD").Cells(Rows.Count, 1).End(3).Row
    Else
        ListBox2.RowSource = ""
        ListBox2.Clear
    
        If OptionButton1 = True Then
            VERİ = TextBox9 & "*"
        Else
            VERİ = "*" & TextBox9 & "*"
        End If
        
        Set BUL = Sheets("MLZ_KOD").Range("C:C").Find(VERİ, , , xlWhole)
        If Not BUL Is Nothing Then
            ADRES = BUL.Address
            Do
                ListBox2.AddItem
                ListBox2.List(Satır, 0) = BUL.Offset(0, -1).Value
                ListBox2.List(Satır, 1) = BUL.Offset(0, 0).Value
                ListBox2.List(Satır, 2) = BUL.Offset(0, 1).Value
                ListBox2.List(Satır, 3) = BUL.Offset(0, 2).Value
                Satır = Satır + 1
            Set BUL = Sheets("MLZ_KOD").Range("C:C").FindNext(BUL)
            Loop While Not BUL Is Nothing And BUL.Address <> ADRES
        End If
    
        If ListBox2.ListCount > 0 Then ListBox2.ListIndex = 0
          End If

Kod: Tümünü seç

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Kontrol = True
    
        
        TextBox2.Text = ListBox2.Column(0)
        ComboBox1.Value = ListBox2.Column(1)
        
    
    ' VERİ SÜZ KAPALI OLMASI KONTROLLERİN

Frame1.Left = 800
TextBox9.Value = ""
TextBox10.Left = 800
TextBox4.SetFocus

    
End Sub