تکه کد Padding دادن به Label

[Kazem Forghani 2,927]

با سلام خدمت تمامی کاربران ،

بوسیله این تکه کد می توانید به لیبل خود Padding بدهید. (متن داخل را از کناره های لیبل فاصله دهید.)

ابتدا کتابخانه JavaObject را تیک بزنید.

Sub SetPadding(lbl As Label, Left As Int, Top As Int, Right As Int, Bottom As Int)
	Dim jo As JavaObject = lbl
	jo.RunMethod("setPadding", Array As Object(Left, Top, Right, Bottom))
End Sub

روش استفاده:

SetPadding(Label1, 10, 7, 5, 0)

کد بالا به Label1 از سمت چپ 10 از سمت بالا 7 از سمت چپ 5 و از سمت پایین 0 Padding می دهد.

با عدد ها کار کنید تا بهترین نتیجه حاصل شود.

 

موفق باشید