داله Draw Text الكاتب ReadOnly

Declare Function DrawText Lib "user32" Alias "DrawTextA" _ 
(ByVal hdc As Long, ByVal lpStr As String, ByVal nCount _ 
As Long, lpRect As RECT, ByVal wFormat As Long) As Long

DT_EXPANDTABS : Expands tab characters. The default number 
of characters per tab is eight. 

DT_EXTERNALLEADING: Includes the font’s external leading 
in the line height. Normally, external leading is not 
included in the height of a line of text. 

DT_MODIFYSTRING : Modifies the given string to match the displayed text. 
This flag has no effect unless the DT_END_ELLIPSIS 
or DT_PATH_ELLIPSIS flag is specified. 

DT_NOPREFIX : Turns off processing of prefix characters. 
Normally, DrawText interprets the ampersand (&) 
mnemonic-prefix character as a directive to 
underscore the character that follows, and 
the two-ampersand (&&) mnemonic-prefix characters 
as a directive to print a single ampersand. 
By specifying DT_NOPREFIX, this processing 
is turned off. 
DT_TABSTOP : Sets tab stops. The high-order byte of nFormat 
is the number of characters for each tab. The 
default number of characters per tab is eight

'DrawText تصريح الدالة 
Private Declare Function DrawText Lib "user32" Alias _ 
"DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, _ 
ByVal nCount As Long, lpRect As RECT, _ 
ByVal wFormat As Long) As Long 

'RECT البنية 
Private Type RECT 
Left As Long 
Top As Long 
Right As Long 
Bottom As Long 
End Type 

Const DT_SINGLELINE = &H20 

Private Sub Form_Load() 
With Picture1 
.Left = 0: .Top = 0: .Width = Me.ScaleWidth 
End With 
End Sub 

Private Sub Command1_Click() 
Dim Txt As String, Rct As RECT 
Txt = "السلام عليكم" 
'حدود المستطيل 
Rct.Left = Picture1.Left: Rct.Top = Picture1.Top 
Rct.Right = Picture1.Left + Picture1.Width 
Rct.Bottom = Picture1.Top + Picture1.Height 
'طباعة النص 
DrawText Picture1.hdc, Txt, Len(Txt), Rct, DT_SINGLELINE 
End Sub