VB控制項的左對齊和上對齊Sub

2021-07-04 17:07:58 字數 1705 閱讀 2779

'vb控制項的左對齊和上對齊sub

'這兩個通用過程「左對齊和上對齊」可以很方便的設定控制項的位置和大小,

'節省了很多**,也不需要在設計階段就把每個控制項都設定好。

'在form load過程或者其他過程都可以呼叫。

sub ctrleftalignment(ctra as control, ctrb as control, optional ctrbtopgap as long = 0, optional ctrbwidth as long = 0, optional ctrbheight as long = 0)

'控制項左對齊

'ctra作為基準,ctrb左邊與其左邊對齊,ctrb在下

'ctrbtopgap是兩個控制項縱向的間隔(不是兩個top的差)

'ctrbwidth是寬度,0表示與ctra等寬,負數表示不變(不設定寬度)

'ctrbheight是高度,0表示與ctra等高,負數表示不變(不設定高度)

ctrb.left = ctra.left

ctrb.top = ctra.top + ctra.height + ctrbtopgap

if ctrbwidth = 0 then

ctrb.width = ctra.width

elseif ctrbwidth > 0 then

ctrb.width = ctrbwidth

else '<0 不設定(保持現有值或設計值)

end if

if ctrbheight = 0 then

ctrb.height = ctra.height

elseif ctrbheight > 0 then

ctrb.height = ctrbheight

else '<0 不設定(保持現有值或設計值)

end if

end sub

sub ctrtopalignment(ctra as control, ctrb as control, optional ctrbleftgap as long = 0, optional ctrbwidth as long = 0, optional ctrbheight as long = 0)

'控制項上對齊

'ctra作為基準,ctrb上邊與其上邊對齊,ctrb在右

'ctrbleftgap是兩個控制項橫向的間隔(不是兩個left的差)

'ctrbwidth是寬度,0表示與ctra等寬,負數表示不變(不設定寬度)

'ctrbheight是高度,0表示與ctra等高,負數表示不變(不設定高度)

ctrb.left = ctra.left + ctra.width + ctrbleftgap

ctrb.top = ctra.top

if ctrbwidth = 0 then

ctrb.width = ctra.width

elseif ctrbwidth > 0 then

ctrb.width = ctrbwidth

else '<0 不設定(保持現有值或設計值)

end if

if ctrbheight = 0 then

ctrb.height = ctra.height

elseif ctrbheight > 0 then

ctrb.height = ctrbheight

else '<0 不設定(保持現有值或設計值)

end if

end sub

iOS上如何讓按鈕文字左對齊問題

原文 button.titlelabel.textalignment nstextalignmentleft 這句無效 button.contenthorizontalalignment uicontrolcontenthorizontalalignmentleft button.titleedge...

將選定的文字物件左對齊 右對齊或對中

程式名稱 物件水平對齊程式 執行命令 txtal 程式功能 將選定的物件左對齊 右對齊或對中。defun c txtal selobjs oldcmdecho 定義命令txtal,區域性變數selobjs,oldcmdecho setq oldcmdecho getvar cmdecho oldcm...

c語言的輸出預設的是左對齊還是右對齊

左對齊還是右對齊是在有對齊的需要的時候才有意義的。由於你並沒有指定每個int值輸出的長度,因此int值有多長就會輸出多長,此時沒有討論左對齊或者右對齊的意義。你只有加上 10d的時候 10只是我舉的例子 這時候限定了int值輸出長度為10,而12345這個int值的長度為5,這時候就有左對齊還是右對...