17-10-12, 04:49 PM
كاتب الموضوع : AhmedEssawy
يمكن استخدام الخاصية autosize مباشرة بالشكل التالي :كود :
Button1.AutoSize = Trueكود :
Dim surface As Graphics = Button1.CreateGraphics
Dim textSize As SizeF = surface.MeasureString(" " & Button1.Text & " ", Button1.Font)
surface.Dispose()
Button1.Width = CInt(textSize.Width)