Ширина текста в VB 6

Question

Чтобы проверить ширину текста, как установить режим масштабирования?

Это -

Debug.Print .ScaleMode = 1 

Или

Me.ScaleMode = 1 

Какой это работает?

я проверить его ниже код

Private Sub Command1_Click() 
Dim xStr As String 
    xStr = "W" 
    With frmLabel 
     .Font.Name = "Arial" 
     .Font.Size = 10 
     'Debug.Print .ScaleMode = 1 

     '0 to 7 
     Me.ScaleMode = 7 
     Debug.Print .TextWidth(xStr) ' TextWidth = 435 
     .Font.Size = 14 
     Debug.Print .TextWidth(xStr) ' TextWidth = 645 
    End With 
End Sub 

Как я мог определить тип измерения или единицы? Я ищу дюйм.

спасибо.

Answer 1

В контексте формы, UserControl или UserDocument «Me» уже является частью пространства имен, так что просто использовать что-то вроде:

ScaleMode = vbInches 

Вы можете использовать избыточную overqualification, если вы хотите, как:

Me.ScaleMode = vbInches 

Поскольку вы не можете писать код внутри PictureBox (и, следовательно, нет никакого местного «Me» в любом случае), вы пишете в контексте его контейнера, так, чтобы установить свойство picScrollbox вас» d:

picScrollbox.ScaleMode = vbInches 

То же самое относится к объекту принтера.

Но, пожалуйста, избегайте магических чисел и используйте встроенный Enum ScaleModeConstants, который облегчает чтение символических имен для следующего парня.

Answer 2

Me.Font.Name = "Arial" 
Me.Font.Size = 10 
Me.ScaleMode = vbInch ' 5 

TextWidth возвращает ширину, если текст был выведены с помощью Print с текущим шрифтом Формы. Вы не устанавливаете шрифт формы в коде в своем вопросе. Set Me.Font. http://msdn.microsoft.com/en-us/library/aa267168(v=vs.60).aspx

Значение возвращается в единицах, определяемых свойством ScaleMode формы. Возможные значения ScaleMode приведены в документах http://msdn.microsoft.com/en-us/library/aa445668(v=vs.60).aspx

В другой раз, почему бы не попробовать контекстно-зависимую помощь? В представлении кода VB6 IDE поместите курсор в ScaleMode и нажмите F1, чтобы перейти к теме ScaleMode в документах.