VB6 có method Print cho ta in thẳng trên Form, PictureBox hay Printer. Ba loại control nầy được coi như những khung vải mà họa sĩ vẽ hãy khởi động một chương trình VB6 mới. Đặt lên form một PictureBox tên Picture1 và một button tên CmdPrintTenLines với Caption Print Ten Lines. DoubleClick lên button nầy và viết code dưới đây: Private Sub CmdPrintTenLines_Click() Dim i As Integer ' String variable used for display Dim strLine As String ' Write 10 lines, one under the other For i = 1 To 10 strLine = "This is line " & CStr(i). | Khóa Hàm Thụ Visual Basic Chương Mười Hai - Dùng Đồ Họa Phần II In trên màn ảnh VB6 có method Print cho ta in thẳng trên Form PictureBox hay Printer. Ba loại control nầy được coi như những khung vải mà họa sĩ vẽ hãy khởi động một chương trình VB6 mới. Đặt lên form một PictureBox tên Picturel và một button tên CmdPrintTenLines với Caption Print Ten Lines. DoubleClick lên button nầy và viết code dưới đây Private Sub CmdPrintTenLines Click Dim i As Integer String variable used for display Dim strLine As String Write 10 lines one under the other For i 1 To 10 strLine This is line CStr i strLine Print on Form strLine Print on Picturel Next End Sub Bạn hãy chạy thử program rồi click nút Print Ten Lines. Trong trường hợp nầy ta dùng default Font và Color để in 10 hàng. Sau mỗi Print chương trình tự động xuống hàng. Kế đó thêm một button tên CmdPrintFontSizes với Caption Print Font Sizes. DoubleClick lên button nầy và viết code dưới đây Private Sub CmdPrintFontSizes Click Dim i As Integer Print numbers 1 to 10 one after the other on the same line For i 1 To 10 Define Font size i Define Color using Function QBColor QBColor i Print without moving to next line. Note the semicolon Str i Next End Sub Trong Sub CmdPrintFontSizes_Click ta thay đổi cở kiểu chữ để cho các con số được in ra lớn lên dần dần và thay đổi màu của các con số bằng cách dùng function QBColor. Để in các con số liên tục không xuống hàng ta dùng method Print với semicolon . Bạn hãy chạy chương trình lại. Click nút Print Ten Lines rồi click nút Print Font Sizes kết quả sẽ giống như dưới đây Bây giờ bạn thử minimize cửa sổ của chương trình kế đó restore nó lại kích thước cũ. Bạn sẽ thấy các hàng ta in lúc nãy không còn trong form hay PictureBox do là khi ta Print lên form hay PictureBox các hình ấy được vẽ trong graphic địa phương chớ không được VB6 kể là một phần của cửa sổ. Muốn tránh trở ngại nầy ta phải dặn VB6 nhớ vẽ
