MyTetra Share
Делитесь знаниями!
Подогнать текст под размер Label, сократив его точками
Время создания: 08.04.2018 14:17
Текстовые метки: VB,
Раздел: VB - Формы

Подогнать текст под размер Label, сократив его точками

        Me.Label1.AutoSize = False

        Me.Label1.Size = New Size(100, 20)

 

        Dim s As String = "c:\uririreiu\ewriouwe\werr.ttt"

 

        TextRenderer.MeasureText(s, _

                                 Me.Label1.Font, _

                                 Me.Label1.Size, _

                                 TextFormatFlags.PathEllipsis Or TextFormatFlags.ModifyString)

        Me.Label1.Text = s

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования