'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,這時候就有左對齊還是右對...