Как вписать текст на PictureBox в квадрат?

[TAlex]

Есть PictureBox с нарисованной сеткой (квадраты). Известна сторона квадрата. Нужно вписать в квадрат текст (по центру). И при изменении размера квадрата изменять текст.
Пишу:

Me.pictJap.Font.Name = "Arial"
japTextHeight = Me.pictJap.TextHeight("88") ' максимум два символа
Me.pictJap.Font.Size = (CellSize * Me.pictJap.Font.Size) / japTextHeight
If Me.pictJap.Font.Size <= 8 Then ' в MSDN пишут что так надо при размере шрифта меньше 8 пт.
Me.pictJap.Font.Name = Me.pictJap.Font.Name
Me.pictJap.Font.Size = Me.pictJap.Font.Size
End If
japTextWidth = Me.pictJap.TextWidth("88")
If japTextWidth > CellSize Then
Me.pictJap.Font.Size = (CellSize * Me.pictJap.Font.Size) / japTextWidth
If Me.pictJap.Font.Size <= 8 Then
Me.pictJap.Font.Name = Me.pictJap.Font.Name
Me.pictJap.Font.Size = Me.pictJap.Font.Size
End If
End If

И теперь если написать:
Me.pictJap.CurrentX = StartX
Me.pictJap.CurrentY = StartY
Me.pictJap.Print "88"
то текст вылезает вправо за край квадрата. Хотя если написать
Me.pictJap.Line -(xr, yb)
то диагональ точно вписывается в квадрат.

[GSerg]

Фигнёй не страдать.
Юзать функцию DrawText, указывая ей bounding rectangle.

[TAlex]

Написал

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

myRect.Left = Main.pictJap.CurrentX
myRect.Top = Main.pictJap.CurrentY
myRect.Right = myRect.Left + CellSize
myRect.Bottom = myRect.Top + CellSize
DrawText Main.pictJap.hwnd, "11", Len("11"), myRect, DT_CENTER + DT_VCENTER

Ничего не выводит. Что не так?

[Amed]

Единицы измерения - твипы или пикселы? Проверьте.

DrawText принимает пикселы. ж)

[TAlex]

Все равно не выводится текст. Сделал так:

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

twips_pixX = Screen.TwipsPerPixelX
twips_pixY = Screen.TwipsPerPixelY
myRect.Left = Main.pictJap.CurrentX / twips_pixX
myRect.Top = Main.pictJap.CurrentY / twips_pixY
myRect.Right = myRect.Left + CellSize / twips_pixX
myRect.Bottom = myRect.Top + CellSize / twips_pixY

DrawText Main.pictJap.hwnd, "11", Len("11"), myRect, DT_CENTER + DT_VCENTER

И даже так не получается:

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

myRect.Left = 1
myRect.Top = 1
myRect.Right = 100
myRect.Bottom = 100

Может с Len() что-то не то или с hwnd?
Есть рабочий пример? Позиция начинает считаться с переданного объекта?

[sash]

Надо не hwnd, а hdc передавать:

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

DrawText pic1.hDC, "Hello world!!!", Len("Hello world!!!"), rc, DT_CENTER Or DT_VCENTER Or DT_SINGLELINE

[TAlex]

Получилось. Спасибо.