I. Câc cấu trúc điều khiển
9. Print Method
Cú phâp : [Object.]Print OutputList
Tâc dụng : cho phĩp in giâ trị câc biểu thức trong OutputList ra đối tượng. OutputList lă một danh sâch câc biểu thức cần in. Object lă tín đối tượng mă ta cần in lín đó.
Nếu muốn in mây in thì tín Object lă Printer. Ví dụ :
Private Sub Command1_Click() Dim MyVar
MyVar = "Chúc câc bạn lập trình thật tốt với Visual Basic." Print MyVar
End Sub
10. PrintForm Method
Tâc dụng : cho phĩp in tất cả câc hình ảnh của biểu mẫu ra giấy. Nếu không chỉ rõ tín Form thì Form đang lăm việc sẽ được in. Object ở đđy lă tín Form cần in.
Ví dụ
Private Sub Command1_Click() Dim Msg ' Declare variable.
On Error GoTo ErrorHandler ' Set up error handler. PrintForm ' Print form.
Exit Sub
ErrorHandler:
Msg = "The form can't be printed." MsgBox Msg ' Display message. Resume Next
End Sub
11. PSet Method
Cú phâp : [Object.]Pset [Step] (X, Y)[, Color]
- Object : An object expression that evaluates to an object in the Applies To list. If object is omitted, the Form with the focus is assumed to be object.
- Step : A keyword specifying that the coordinates are relative to the current graphics position given by the CurrentX and CurrentY properties.
- (X, Y) : Single-precision values indicating the horizontal (x-axis) and vertical (y-axis) coordinates of the point to set.
- Color: Long integer value indicating the RGB color specified for point. Tâc dụng : tương tự như Point Method.
Ví dụ : vẽ câc chấm điểm với mău sắc vă vị trí ngẫu nhiín trín cửa sổ Form.
Private Sub Form_Click ()
Dim CX, CY, Msg, XPos, YPos ' Declare variables. ScaleMode = 3 ' Set ScaleMode to pixels.
DrawWidth = 5 ' Set DrawWidth.
ForeColor = QBColor(4) ' Set background to red. FontSize = 24 ' Set point size.
CX = ScaleWidth / 2 ' Get horizontal center. CY = ScaleHeight / 2 ' Get vertical center. Cls ' Clear form.
Msg = "Chúc mừng năm mới!"
CurrentX = CX - TextWidth(Msg) / 2 ' Horizontal position. CurrentY = CY - TextHeight(Msg) ' Vertical position.
Print Msg ' Print message. Do
XPos = Rnd * ScaleWidth ' Get horizontal position. YPos = Rnd * ScaleHeight ' Get vertical position.
PSet (XPos, YPos), QBColor(Rnd * 15) ' Draw confetti. DoEvents ' Yield to other
Loop ' processing. End Sub
Tâc dụng : cho phĩp "lăm tươi'" lại đối tượng, nghĩa lă nó cho phĩp vẽ lại hình ảnh của Object.
Ví dụ :
Private Sub Form_Click ()
Dim FNMA, I, Msg ' Declare variables.
File1.Pattern = "TestFile.*" ' Set file pattern. For I = 1 To 8 ' Do eight times.
FNMA = "TESTFILE." & I
Open FNMA For Output As FreeFile ' Create empty file. File1.Refresh ' Refresh file list box.
Close ' Close file. Next I
Msg = "Choose OK to remove the created test files." MsgBox Msg ' Display message.
Kill "TESTFILE.*" ' Remove test files. File1.Refresh ' Update file list box. End Sub
13. Scale Method
Cú phâp : [Object.]Scale [(X1, Y1) - (X2, Y2)]
- Object : tín của đối tượng cần định lại hệ thống tọa độ. - (X1, Y1) : tọa độ góc trín bín trâi.
- (X2, Y2) : tọa độ góc phải bín dưới.
Tâc dụng : qui định lại hệ thống tọa độ theo yíu cầu người sử dụng. Nếu không có (X1, Y1) vă (X2, Y2) thì trả hệ thống tọa độ về giâ trị ngầm định.
Ví dụ :
Private Sub Tile_Click()
Dim I, OldFontSize ' Declare variables.
Width = 8640: Height = 5760 ' Set form size in twips. Move 100, 100 ' Move form origin.
AutoRedraw = -1 ' Turn on AutoRedraw.
OldFontSize = FontSize ' Save old font size. BackColor = QBColor(7) ' Set background to gray.
Scale (0, 110)-(130, 0) ' Set custom coordinate system. For I = 100 To 10 Step -10
Line (0, I)-(2, I) ' Draw scale marks every 10 units. CurrentY = CurrentY + 1.5 ' Move cursor position. Print I ' Print scale mark value on left.
Line (ScaleWidth - 2, I)-(ScaleWidth, I)
CurrentY = CurrentY + 1.5 ' Move cursor position. CurrentX = ScaleWidth - 9
Print I ' Print scale mark value on right. Next I
' Draw bar chart.
Line (10, 0)-(20, 45), RGB(0, 0, 255), BF ' First blue bar. Line (20, 0)-(30, 55), RGB(255, 0, 0), BF ' First red bar. Line (40, 0)-(50, 40), RGB(0, 0, 255), BF
Line (50, 0)-(60, 25), RGB(255, 0, 0), BF Line (70, 0)-(80, 35), RGB(0, 0, 255), BF
Line (80, 0)-(90, 60), RGB(255, 0, 0), BF Line (100, 0)-(110, 75), RGB(0, 0, 255), BF Line (110, 0)-(120, 90), RGB(255, 0, 0), BF
CurrentX = 18: CurrentY = 100 ' Move cursor position. FontSize = 14 ' Enlarge font for title.
Print "Widget Quarterly Sales" ' Print title. FontSize = OldFontSize ' Restore font size.
CurrentX = 27: CurrentY = 93 ' Move cursor position. Print "Planned Vs. Actual" ' Print subtitle.
Line (29, 86)-(34, 88), RGB(0, 0, 255), BF ' Print legend. Line (43, 86)-(49, 88), RGB(255, 0, 0), BF
Scale End Sub
Chú ý : ta có thể thay đổi đơn vị đo trong Visual Basic bằng câch thay đổi trị số của ScaleMode trong bộ thuộc tính Properties.
14. SetFocus Method
Cú phâp : [Object.]SetFocus
Tâc dụng : cho phĩp tham chiếu đến Object có tín được chỉ định để thực hiện câc thay đổi trín đó nếu có.
Ví dụ : Vehinh.SetFocus