21 พฤษภาคม 2556

การเลื่อน Listview ขึ้นไปยังตำแหน่งบนสุดโดยอัตโนมัติทุกครั้งที่เพิ่มข้อมูล (VB.NET)

While Not Rs.EOF
Dim lv As ListViewItem = ListView2.Items.Add(Rs.Fields("ID").Value)
     lv.SubItems.Add(Rs.Fields("Name").Value.ToString & "")
    lv.SubItems.Add(Rs.Fields("SName").Value.ToString & "")
    ListView1.EnsureVisible(ListView1.Items.Count - 1) 'เอามาใส่ตรงสุดท้ายก่อนเลื่อน Record
    Rs.MoveNext()
End While
เขียนโดย ที่

ไม่มีความคิดเห็น:

แสดงความคิดเห็น

สมัครสมาชิก: ส่งความคิดเห็น (Atom)