با سلام و سپاس خدمت کاربران سایت یاهو ۹۸ YAHOO

امروز براتون قطعه کدی کاربردی مهیا کرده ایم که امیدوارم مفید واقع گردد

ایجاد فاصله یا Padding محتوای داخل ویو ها از دیواره های اون

مثلا یک لیبل داریم، وقتی چپ چین یا راست چین میکنیم نمیخوایم متنِ داخلش کاملاً بچسبه به سمت راست.

تابع:

 

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

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

 

 SetPadding(Label1,0,0,10dip,0)

 

(البته بیسیک های جدید، خودشون متد Padding رو دارن که فرق نداره و کار هردو تابع دقیقا یکی هست)