GIÁO TRÌNH MICOSOFT VISUAL BASIC - Chương 16 Lập trình Drag-and-Drop

Khả năng lập trình Drag-and-Drop (kéo-nhả) đã được hỗ trợ từ những phiên bản đầu tiên của Visual Basic, chương này trình bày kỹ thuật lập trình kéo-nhả trong Visual Basic 6.0. 1. Kéo-nhả tự động Visual Basic hỗ trợ hai chế độ kéo-nhả: tự động và bằng tay. Trong chế độ tự động, người lập trình chỉ cần gán một thuộc tính trong lúc thiết kế (design-time) hoặc trong lúc chạy chương trình (run-time), Visual Basic sẽ thực hiện mọi việc; ngược lại trong chế độ bằng tay, người lập trình phải viết lệnh trong một số...
Nội dung trích xuất từ tài liệu:
GIÁO TRÌNH MICOSOFT VISUAL BASIC - Chương 16 Lập trình Drag-and-Drop Giáo trình Visual Basic 6.0 159 Chương 16 Lập trình Drag-and-DropI. TỔNG QUANKhả năng lập trình Drag-and-Drop (kéo-nhả) đã được hỗ trợ từ những phiên bảnđầu tiên của Visual Basic, chương này trình bày kỹ thuật lập trình kéo-nhả trongVisual Basic 6.0. 1. Kéo-nhả tự độngVisual Basic hỗ trợ hai chế độ kéo-nhả: tự động và bằng tay. Trong chế độ tựđộng, người lập trình chỉ cần gán một thuộc tính trong lúc thiết kế (design-time)hoặc trong lúc chạy chương trình (run-time), Visual Basic sẽ thực hiện mọi việc;ngược lại trong chế độ bằng tay, người lập trình phải viết lệnh trong một số sựkiện xảy ra trong lúc đối tượng đang được kéo. Chế độ lập trình bằng tay cho phépngười lập trình tác động lên qui trình kéo-nhả một cách linh hoạt hơn.Hầu hết các đối tượng điều khiển chuẩn và một số đối tượng điều khiển ActiveXhỗ trợ chế độ kéo-nhả. Một số chỉ có thể là đối tượng đích, một số khác có thể vừalà đối tượng nguồn, vừa là đối tượng đích. Chỉ có một số đối tượng có thể hoạtđộng ở chế độ kéo-thả tự động.Để xác định đối tượng là nguồn trong hoạt động kéo-nhả, người lập trình sử dụngthuộc tính OLEDragMode. Để xác đối tượng là đích trong hoạt động kéo-nhả,người lập trình sử dụng thuộc tính OLEDropMode. Bảng 16.1 tóm tắt mức độ hỗtrợ của các loại đối tượng trong hoạt động kéo-nhả. Bảng 16.1 Đối tượng OLEDragMode OLEDropModeTextBox, PictureBox, Image, vbManual, vbNone,RichTextBox, MaskEdBox vbAutomatic vbManual, vbAutomatic vbManual, vbNone,ComboBox, ListBox, DirListBox, vbAutomatic vbManualFileListBox, DBCombo, DBList,TreeView, ListView, ImageCombo,DataList, DataCombo Không hỗ trợ vbNone,Form, Label, Frame, CommandButton, vbManualDriveListBox, Data, MSFlexGrid, SSTab,TabStrip, Toolbar, StatusBar,ProgressBar, Slider, Animation, UpDown,MonthView, DateTimePicker, CoolBar160 Giáo trình Visual Basic 6.0Đối với đối tượng hỗ trợ chế độ kéo-nhả tự động, để lập trình kéo-nhả, người lậptrình chỉ cần gán các thuộc tính OLEDragMode và OLEDropMode có giá trịvbAutomatic. Ví dụ để viết một ứng dụng sử dụng RichTextBox cho phép nhận dữliệu kéo-nhả từ các ứng dụng xử lý văn bản khác như MS Word hoặc WordPad,người lập trình chỉ cần gán giá trị vbAutomatic cho các thuộc tính OLEDragModevà OLEDropMode của RichTextBox. 2. Kéo-nhả điều khiển bằng chương trìnhChế độ kéo-nhả điều khiển bằng chương trình (manual drag-and-drop) bằng taycho phép người lập trình tác động lên qui trình kéo-nhả một cách linh hoạt hơn.Hình 16.1 mô tả các bước viết lệnh trên đối tượng nguồn và đích khi muốn điềukhiển hoạt động kéo-nhả bằng chương trình. Người sử dụng click trên đối tượng nguồn Sub Source_MouseDown(…) Đối tượng nguồn định dạng source.OLEDrag dữ liệu sẽ được chuyển đi Người sử dụng di chuyển mouse Sub Source_OLEStartDrag(Data, effects) trên đối tượng đích. Đối tượng Data.SetData [bytes][, format] đích gán một hoặc nhiều hiệu ứng kéo-nhả Đối tượng nguồn nhận phản hồi Sub Target_OLEDragOver(Data, effects…) bằng cách thay đổi dang con trỏ Effects = vbDropEffectCopy Sub Source_OLEGiveFeedback(Data, DefaultCursors) Screen.MousePointer=vbCustom Người sử dụng nhả phím chuột Sub Target_OLEDragDrop(Data, effects…) If Data.GetFormat(vbCFText) then Text = Data.GetData(vbCFText) Đối tượng nguồn hoàn tất hoạt động kéo-nhả bằng cách xóa dữ liệu nguồn nếu là lệnh Move Sub Source_OLECompleteDrag(format)Hình 16.1: Các sự kiện được kích hoạt khi kéo-nhả điều khiển bằng chương trìnhNguyễn Đăng QuangGiáo trình Visual Basic 6.0 161II. MỘT CHƯƠNG TRÌNH VÍ DỤPhần này trình bày một chương trình ví dụ có giao diện như hình 16.2 Hình 16.2: Giao diện chương trình ví dụChương trình gồm một RichTextBo ...