B GIÁO D C VÀ ĐÀO T OỘ Ụ Ạ
TR NG ƯỜ CAO Đ NG CN & KD VI T TI NẲ Ệ Ế
KHOA MÁY TÍNH
Môn: Công Ngh .Netệ
Đ TÀIỀ: Trình bày t ng b c thao tác kéo th đ i t ngừ ướ ả ố ượ
Drag And Drop
Gi ng viên h ng d n:ả ướ ẫ Tr nh Đ c Tínhị ứ
Sinh viên th c hi n:ự ệ Nguy n Đình H i Quânễ ả
L p:ớ C10T1
MSSV: 100157
Đà N ng, Ngày 14 tháng 11 năm 2012ẵ
Báo cáo đ án môn Công Ngh .Netồ ệ SVTH: Nguy nễ
Đình H i Quânả
M c L cụ ụ
Đà N ng, Ngày 14 tháng 11 năm 2012ẵ ........................................................................................ 1
Tìm hi u ch ng trình: ể ươ
Ch ng trình g m m t ô Listbox đ hi n th các thông tin c a các ki u d li u. Hai ôươ ồ ộ ể ể ị ủ ể ữ ệ
Textbox, trong đó Textbox1 dùng đ hi n th thông tin chi ti t c a các ki u d li u mà taể ể ị ế ủ ể ữ ệ
ch n bên listbox khi ta kích ch n trong Listbox m t tên lo i ki u d li u thì ô textbox1 sọ ọ ộ ạ ể ữ ệ ẽ
hi n th hình nh loài hoa mà ta ch nể ị ả ọ ...................................................................................... 7
Trang | 2
Báo cáo đ án môn Công Ngh .Netồ ệ SVTH: Nguy nễ
Đình H i Quânả
I. T ng Quanổ
Drag-Drop là đ c p đ n truy n d li u trong đó m t con chu t ho c thi t b tr khácề ậ ế ề ữ ệ ộ ộ ặ ế ị ỏ
đ c s d ng đ xác đ nh c các ngu n d li u và đích c a nó.ượ ử ụ ể ị ả ồ ữ ệ ủ
Trong m t ho t đ ng kéo và th đi n hình, ng i s d ng l a ch n các đ i t ngộ ạ ộ ả ể ườ ử ụ ự ọ ố ượ
đ c chuy n giao b ng cách di chuy n con tr chu t vào nó và gi m t trong hai nútượ ể ằ ể ỏ ộ ữ ộ
trái ho c nút ph i m t s khác đ c ch đ nh cho m c đích này.ặ ả ộ ố ượ ỉ ị ụ
Trong khi ti p t c gi nút, ng i dùng b t đ u chuy n giao b ng cách kéo các đ iế ụ ữ ườ ắ ầ ể ằ ố
t ng đ n đích c a nó và th .ượ ế ủ ả
Drag-Drop cung c p chính xác các ch c năng t ng t nh sao chép vào clipboard vàấ ứ ươ ự ư
dán vào đ i t ng ch p nh n ho t đ ng này.ố ượ ấ ậ ạ ộ Trong th c t , n u m t ng d ng h trự ế ế ộ ứ ụ ỗ ợ
sao chép và dán vào clipboard, thì vi c thi t k m t ch ng trình có ch c năng kéo thệ ế ế ộ ươ ứ ả
là r t c n thi t đ h tr ng i dùng.ấ ầ ế ể ỗ ợ ườ
II. ng D ng Drag-DropỨ ụ
1. Xây d ng ch ng trình kéo th hình nhự ươ ả ả
Giao di n nh sau: ệ ư
Trang | 3
Báo cáo đ án môn Công Ngh .Netồ ệ SVTH: Nguy nễ
Đình H i Quânả
Tìm hi u ch ng trình: ể ươ
Ch ng trình g m m t ô listbox đ hi n th các thông tin tên hoa. Hai ô Picturebox,ươ ồ ộ ể ể ị
trong đó Picturebox1 dùng đ hi n th hình nh khi ta kích ch n trong Listbox m t tênể ể ị ả ọ ộ
lo i hoa thì ô Picturebox1 s hi n th hình nh loài hoa mà ta ch n.ạ ẽ ể ị ả ọ
Ô Picturebox2 đ c t o ra nh m m c đích đ cho ta th y vi c kéo th tượ ạ ằ ụ ể ấ ệ ả ừ
PictureBox1 sang PictureBox2 và ng c l i.ượ ạ
Thi t k ch ng trình:ế ế ươ
Các thu c tính thay đ i nhau sau:ộ ổ
- Listbox: thu c tính name là lbldanhsachộ
- Picturebox1: Thu c tính name là hinhbentraiộ
- Picturebox2: Thu c tính name là hinhbenphaiộ
Vi t mã:ế
T o th t c cho lbldanhsach th t c này có tác d ng khi ng i dùng kích vàoạ ủ ụ ủ ụ ụ ườ
thì s hi n th các hình nh theo list đã đ c s p x p s n.ẽ ể ị ả ượ ắ ế ẵ
Private Sub lbldanhsach_SelectedIndexChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles lbldanhsach.SelectedIndexChanged
Select Case lbldanhsach.SelectedIndex
Case 0
hinhbentrai.Image = _
Global.p_drag_drop.My.Resources.hoasungtim
Case 1
hinhbentrai.Image = _
Global.p_drag_drop.My.Resources.hoamaudon
Case 2
hinhbentrai.Image = _
Global.p_drag_drop.My.Resources.hoalongden
Case 3
hinhbentrai.Image = _
Global.p_drag_drop.My.Resources.hoaloaken
Case 4
Trang | 4
Báo cáo đ án môn Công Ngh .Netồ ệ SVTH: Nguy nễ
Đình H i Quânả
hinhbentrai.Image = _
Global.p_drag_drop.My.Resources.hoalily
Case 5
hinhbentrai.Image = _
Global.p_drag_drop.My.Resources.hoakimtram
Case 6
hinhbentrai.Image = _
Global.p_drag_drop.My.Resources.hoadaquy
Case 7
hinhbentrai.Image = _
Global.p_drag_drop.My.Resources.hoacucthuy
Case Else
hinhbentrai.Image = _
Global.p_drag_drop.My.Resources.hoacucbattu
End Select
End Sub
T o th t c form load th t c này có tác d ng kh i t o thu c tính ch p nh nạ ủ ụ ủ ụ ụ ở ạ ộ ấ ậ
kéo th c a hai PictureBox.ả ủ
Private Sub drag_drop_hinhanh_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
hinhbentrai.AllowDrop = True ' Luôn ch p nh n khi hình đ c th vào!ấ ậ ượ ả
hinhbenphai.AllowDrop = True ' Luôn ch p nh n khi hình đ c th vào!ấ ậ ượ ả
End Sub
T o th t c MouseDown cho PictureBox th t c này có tác d ng g i ho t đ ngạ ủ ụ ủ ụ ụ ọ ạ ộ
kéo th .ả
Private Sub PictureBox_MouseDown(ByVal sender As System.Object, ByVal e As _
System.Windows.Forms.MouseEventArgs) Handles hinhbentrai.MouseDown, _
hinhbenphai.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim pic As PictureBox = CType(sender, PictureBox)
' G i s ki n kéo thọ ự ệ ả
If Not pic.Image Is Nothing Then
pic.DoDragDrop(pic.Image, DragDropEffects.Move)
End If
End If
End Sub
Trang | 5