Печать текста в центре прямоугольника - VB

Формулировка задачи:

Как разместить текст симметрично в центре прямоугольника, чтобы при масштабировании текст не смещался, а оставался в центре? Печать с одним сдвигом не даёт центрального расположения, например символы I и W разной ширины и т.д.

Решение задачи: «Печать текста в центре прямоугольника»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
        Ttl$ = "Привет из VB6!"
        Me.Picture1.Font.Name = "Tahoma"
        Me.Picture1.Font.Size = 16
        Me.Picture1.Font.Bold = True
        w_txt# = Me.Picture1.TextWidth(Ttl$)
        h_txt# = Me.Picture1.TextHeight(Ttl$)
        Me.Picture1.CurrentX = (Me.Picture1.Width - w_txt#) * 0.5
        Me.Picture1.CurrentY = (Me.Picture1.Height - h_txt#) * 0.5
        Me.Picture1.Print Ttl$
End Sub
                        

Оцени полезность:

14 голосов , оценка 3.929 из 5

Похожие ответы