tailieunhanh - THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 3

Trong chương trình nầy ta muốn hễ khi đè nút trái của Mouse xuống và di chuyển chuột thì khi con trỏ chuột đi đến đâu, hình INTL_NO được vẽ đến đó. Bước 5: Ta sẽ dùng một biến để đánh dấu nút-trái-của-Mouse-Down, đặt tên là IsMousedown. Khi nhận được sự kiện MouseDown ta đặt IsMouseDown thành True, và khi nhận được sự kiện MouseUp ta đặt lại IsMouseDown thành False. Mỗi lần nhận được sự kiện MouseMove thì nếu IsMouseDown là True ta sẽ vẽ hình INTL_NO. Trong phần [General]\[Declaration], khai báo biến sau: Dim IsMouseDown As Boolean Bước. | TT. Visual Basic Trong chương trình nầy ta muốn hễ khi đè nút trái của Mouse xuống và di chuyển chuột thì khi con trỏ chuột đi đến đâu hình INTL_NO được vẽ đến đó. Bước 5 Ta sẽ dùng một biến để đánh dấu nút-trái-của-Mouse-Down đặt tên là IsMousedown. Khi nhận được sự kiện MouseDown ta đặt IsMouseDown thành True và khi nhận được sự kiện MouseUp ta đặt lại IsMouseDown thành False. Mỗi lần nhận được sự kiện MouseMove thì nếu IsMouseDown là True ta sẽ vẽ hình INTL_NO. Trong phần General Declaration khai báo biến sau Dim IsMouseDown As Boolean Bước 6 Đầu tiên biến này phải được khởi tạo là False trong sự kiện Form_Load Private Sub Form_Load IsMouseDown False End Sub Bước 7 Ta xử lý các sự kiện MouseUp MouseDown MouseMove của Form như sau Private Sub Form_MouseDown Button As Integer Shift As Integer X As Single Y As Single IsMouseDown True End Sub Private Sub Form_MouseMove Button As Integer Shift As Integer X As Single Y As Single If IsMouseDown Then Vẽ hình tại vị trí X Y PaintPicture X Y End If End Sub Private Sub Form_MouseUp Button As Integer Shift As Integer X As Single Y As Single IsMouseDown False End Sub Bước 8 Chọn Form1 trong cửa sổ Project Explorer ta sẽ xử lý sự kiện khi ta nhấp chọn mục Xoa man hinh trên menu như sau Private Sub mnuXoa_Click Cls End Sub Bước 9 Khi ta nhấp chọn mục Thoat trên menu chương trình tự động đóng lại sự kiện mnuThoat_Click được xử lý Private Sub mnuThoat_Click End End Sub Bước 10 Lưu dự án lại chạy chương trình thử kéo chuột trên Form. Quan sát kết quả. Trang 31 TT. Visual Basic HÀM PSET Bước 11 Ta dùng hàm PSet Point Set để vẽ một pixel lên form. Ta cần cho biết PSet ở đâu và với màu gì tức là ta cho nó tọa độ X Y của pixel và một màu được tính từ hàm RGB. Dưới đây là đoạn mã để vẽ pixels đủ màu lên form một cách bất chừng randomly về vị trí và màu sắc khi người dùng chọn mục Pixel trên menu Private Sub mnuPixel_Click Dim i As Integer Tọa độ vẽ X Y Dim iXCoord As Integer Dim iYCoord