Tác giả: Đặng Minh Dự
Mô tả: 'Hàm dưới đây sẽ print lên DrwObj một đoạn text là sText từ vị trí posX, posY.
Mã: Chọn hết
- Private Function PrintAPos(posX As Single, posY As Single, sText As String, DrwObj As Variant)
- Dim iLine As Integer: iLine = DrwObj.TextHeight(vbCrLf)
- Dim iSpace As Integer: iSpace = DrwObj.TextWidth(" ")
- Dim i As Integer
- For i = 0 To posY \ iLine
- DrwObj.Print vbCrLf
- Next i
- For i = 0 To posX \ iSpace
- sText = " " & sText
- Next i
- DrwObj.Print sText
- End Function
- 'Có thể thay vbCrLf bằng " ", có thể thêm Int() để lấy nguyên kết quả các phép chia cho "chặt chẽ" (cũng ko cần thiết lắm!)
- 'Test:
- Private Sub Form_Load()
- PrintAPos 1000, 1000, "My ''Cute Grass''", frm
- End Sub