Editable ListView edit, düzenleme el ile veri girme.

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

Editable ListView edit, düzenleme el ile veri girme.

İleti#1)  Hakan Behcan » 09 Tem 2008 18:15

Bir örnek uygulama yaptım ancak ListView içinde görünmeyen sütunlar var ise problem oluyor.
Bu kadarının da güzel bir örnek olacağını düşünüyorum. Sütun problemini çözersek listviewi grid nesnesi gibi kullanabileceğiz.

Kodları yazıyorum ama dosya üzerinden inceleseniz daha iyi olur.

Kod: Tümünü seç
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
'www.excelvba.net
        TBTasi (LblStn.Caption)
End Sub
Private Sub UserForm_Initialize()
'www.excelvba.net
Dim i As Byte
LblStn.Caption = 1
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "SIRALAMA"
ListView1.ColumnHeaders.Add , , "MIRALAMA"
ListView1.ColumnHeaders.Add , , "CIRALAMA"
For i = 1 To 30
    ListView1.ListItems.Add , , Range("A" & i).Value
    ListView1.ListItems(i).SubItems(1) = Range("B" & i).Value
    ListView1.ListItems(i).SubItems(2) = Range("C" & i).Value
Next i
TextBox1.Font.Size = ListView1.Font.Size - 1
ListView1.LabelEdit = lvwManual
End Sub

Private Sub ListView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
'www.excelvba.net
    Select Case KeyCode
        Case vbKeyF2
            TextBox1.SetFocus

        Case vbKeyRight
            If LblStn.Caption < ListView1.ColumnHeaders.Count Then
                LblStn.Caption = LblStn.Caption + 1
            End If
       
        Case vbKeyLeft
            If LblStn.Caption > 1 Then
                LblStn.Caption = LblStn.Caption - 1
            End If
       
        Case vbKeyF3
            If ListView1.SelectedItem.Index = ListView1.ListItems.Count Then
                ListView1.ListItems.Add
            End If
        End Select
End Sub

Private Sub TBTasi(Sutun As Integer)
'www.excelvba.net
        Dim scrll As Boolean
        If LblStn.Caption > 1 Then
           TextBox1.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(LblStn.Caption - 1)
        Else
                TextBox1.Text = ListView1.SelectedItem.Text
        End If
        If ListView1.SelectedItem.Top >= ListView1.SelectedItem.Height Then
            If ListView1.SelectedItem.Top + (2 * ListView1.SelectedItem.Height) > ListView1.Height Then
                Frame1.Top = ListView1.Top + ListView1.SelectedItem.Top - ListView1.SelectedItem.Height
            Else
                Frame1.Top = ListView1.Top + ListView1.SelectedItem.Top
            End If
        Else
            Frame1.Top = ListView1.Top + ListView1.SelectedItem.Top + ListView1.ListItems(1).Height
        End If
        Frame1.Left = ListView1.Left + ListView1.ColumnHeaders(Sutun).Left + 2
        Frame1.Width = ListView1.ColumnHeaders(Sutun).Width
        Frame1.Height = ListView1.ListItems(ListView1.SelectedItem.Index).Height + 6
        TextBox1.Move 0, 0, Frame1.InsideWidth, Frame1.InsideHeight
        Frame1.Visible = True
        Frame1.ZOrder
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'www.excelvba.net
    Select Case KeyCode
        Case vbKeyReturn
            If LblStn.Caption = 1 Then
                ListView1.SelectedItem.Text = TextBox1.Text
            Else
                ListView1.SelectedItem.SubItems(LblStn.Caption - 1) = TextBox1.Text
            End If
            ListView1.SetFocus
            If ListView1.SelectedItem.Index < ListView1.ListItems.Count Then
                ListView1.ListItems(ListView1.SelectedItem.Index + 1).Selected = True
            End If
            TBTasi (LblStn.Caption)
    End Select
End Sub



Ekran görüntüsü de aşağıdaki gibi
Resim

Dosya da ekte var zaten.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Hakan Behcan
Yönetim Kurulu
 
Adı Soyadı:Hakan BEHCAN
Kayıt: 15 Haz 2008 03:31
Konum: Çerkezköy - Tekirdağ
Meslek: Belli bir meslek yoktur.
Yaş: 48
İleti: 1355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Çerkezköy

Editable ListView edit, düzenleme el ile veri girme.

İleti#2)  Tarkan VURAL » 09 Tem 2008 18:42

Süper demekten başka söz bulamadım :) ;)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26745
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Editable ListView edit, düzenleme el ile veri girme.

İleti#3)  AhmetAlabaş » 27 Ağu 2008 09:44

Paylaşım için teşekkürler.
Bende sadece birinci sutunda edit işlemi yapıyor.
Diğer sutunlarda olmuyor.
Kullanıcı avatarı
AhmetAlabaş
Yeni Başlamış
 
Adı Soyadı:Ahmet Alabaş
Kayıt: 18 Haz 2008 00:51
Konum: istanbul
Meslek: bilgisayar
Yaş: 40
İleti: 85
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Editable ListView edit, düzenleme el ile veri girme.

İleti#4)  Hakan Behcan » 16 Arl 2008 16:07

Ok tuşları ile gezinirseniz 2. ve 3. sütunda da edit yapabilirsiniz.
Çok yarım bir çalışma, amaç texboxu hücre üzerine taşıyıp aynı boyutta oluşturmak. Bazen üzerine rastlamayabiliyor veya pencereden taşabiliyor.
Erkan Abinin bahsettiği fantazi türünden bir denemeydi.
Kullanıcı avatarı
Hakan Behcan
Yönetim Kurulu
 
Adı Soyadı:Hakan BEHCAN
Kayıt: 15 Haz 2008 03:31
Konum: Çerkezköy - Tekirdağ
Meslek: Belli bir meslek yoktur.
Yaş: 48
İleti: 1355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Çerkezköy

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Editable ListView edit, düzenleme el ile veri girme

İleti#5)  aeGNoR » 14 Şub 2018 18:03

Uzun zamandır çözmeye çalıştığım bir probleme çare oldunuz çok teşekkür ederim.:)
Kullanıcı avatarı
aeGNoR
Yeni Başlamış
 
Adı Soyadı:Mustafa EMER
Kayıt: 14 Ağu 2017 17:36
Meslek: Muhasebe
Yaş: 27
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar / Dazkırı


Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

cron
Bumerang - Yazarkafe