Trong khi các Graphical Controls như Shape, Line cho ta vẽ hình lúc thiết kế thì Graphics Methods cho ta vẽ những thứ ấy lúc run-time. Ta cũng có thể chấm từng đóm (pixel) hay copy cả một Picture từ chỗ nầy đến chỗ khác. Chỉ cần một chút kinh nghiệm bạn có thể làm hoạt họa (animation) hay tạo visual effects tuyệt diệu mà không cần phải đụng đến Windows API (Application Programming Interface) để dùng Function BitBlt. . | Khóa Hàm Thụ Visual Basic Chương Mười Hai - Dùng Đồ Họa Phần III Graphics Methods Trong khi các Graphical Controls như Shape Line cho ta vẽ hình lúc thiết kế thì Graphics Methods cho ta vẽ những thứ ấy lúc run-time. Ta cũng có thể chấm từng đóm pixel hay copy cả một Picture từ chỗ nầy đến chỗ khác. Chỉ cần một chút kinh nghiệm bạn có thể làm hoạt họa animation hay tạo visual effects tuyệt diệu mà không cần phải đụng đến Windows API Application Programming Interface để dùng Function BitBlt. Method PaintPicture Method PaintPicture cho phép bạn copy rất nhanh một khối dữ kiện đồ họa nói nôm na là một khu vực trong một hình graphic trên form PictureBox hay Printer đến một nơi khác. Thí dụ bạn copy một hình từ chỗ nầy đến chỗ khác trong form hay từ form PictureBox ra Printer Object để một chốc sau bạn in nó hãy khởi động một dự án VB6 mới và DoubleClick lên PictureBox Icon trong ToolBox để đặt một PictureBox lên form. Đặt tên PictureBox ấy là picGraphic và set property Visible của nó ra False để ta không thấy nó lúc run-time. Bây giờ load một hình vào property Picture của picGraphic bằng cách Browse một Bitmap file từ cửa sổ Properties. Ở đây ta chọn từ folder Program Files Microsoft Visual Studio Common Graphics Bitmaps Assorted 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 Mouse cursor thì khi cursor đi đến đâu hình INTL_NO được vẽ đến sẽ dùng một Flag để đánh dấu nút-trái-của-Mouse-Down đặt tên là flgMouseDown. Khi nhận được Event MouseDown ta set flgMouseDown thành True và khi nhận được Event MouseUp ta reset flgMouseDown thành False. Mỗi lần nhận được Event MouseMove thì nếu flgMouseDown là True ta sẽ PaintPicture INTL_NO. Để xóa background của form ta thêm một button tên CmdClearForm để chạy graphic method Cls. Dưới đây là liệt kê code mẫu Flag that indicates that the Mouse s left button is depressed Dim flgMouseDown As Boolean Private Sub Form Load Initialise flgMouseDown to False flgMouseDown False .
