Текст на ProgressBar'e

[JumpingJack]

Всем привет!
Хочу написать текст на прогрессбаре, делаю так, но не работает.. в чем может быть дело?

Код: Выделить всё

Const DT_CENTER = &H1

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

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
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Form_Paint()
    Dim R As RECT
    Dim hdc As Long
    Dim hWnd As Long
   
    SetRect R, pb.Left / Screen.TwipsPerPixelX, _
            pb.Top / Screen.TwipsPerPixelY, _
            pb.Width / Screen.TwipsPerPixelX, _
            pb.Height / Screen.TwipsPerPixelY
   
    hWnd = pb.hWnd
    hdc = GetDC(hWnd)
   
    DrawText hdc, "Test !", Len("Test !"), R, DT_CENTER
End Sub


[keks-n]

Если не ошибаюсь, то все параметры в структуре RECT задаются от верхнего левого угла DC, а не экрана... т. е. верхний девый угол-(0,0)

[JumpingJack]

Так тоже не помогает..

Код: Выделить всё

SetRect R, 0, 0, _
            pb.Width / Screen.TwipsPerPixelX, _
            pb.Height / Screen.TwipsPerPixelY

[keks-n]

Итого:

Код: Выделить всё


Option Explicit
Const DT_CENTER = &H1
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
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
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Sub Form_Click()
    Me.ScaleMode = 3
    Dim R As RECT
    Dim hdc As Long
    Dim hWnd As Long
    R.Right = pb.Width
    R.Bottom = pb.Height
   
    hWnd = pb.hWnd
    hdc = GetDC(hWnd)
   
    DrawText hdc, "Test !", Len("Test !"), R, DT_CENTER
End Sub


З. Ы. В Form_Paint не работает, ибо прогрессбар рисуется отдельно.

[JumpingJack]

Огромное спасибо!