亚洲AV永久无码精品放毛片 ,亚洲男女内射在线播放,亚洲日韩中文在线精品第一

Start Here..

VB自動(dòng)改變控件大小

當(dāng)窗體大小改變時(shí)，如何動(dòng)態(tài)的改變控件的大小是許多VB程序員頭痛的事。有的人設(shè)置窗體Resizable但卻不改變控件的大小；有的人則根據(jù)控件的絕對(duì)位置與窗口大小相加減的辦法來重新定位控件與改變大小，這種辦法比較繁瑣，且不可重用；當(dāng)然也有人則限定窗口干脆不讓改變。有沒有一種簡(jiǎn)便易行的辦法？答案是肯定的，下面給出一個(gè)一勞永逸的辦法，源程序如下:

OptionExplicit
PrivateFormOldWidthAsLong
保存窗體的原始寬度
PrivateFormOldHeightAsLong
保存窗體的原始高度
在調(diào)用ResizeForm前先調(diào)用本函數(shù)
PublicSubResizeInit(FormNameAsForm)
DimObjAsControl
FormOldWidth=FormName.ScaleWidth
FormOldHeight=FormName.ScaleHeight
OnErrorResumeNext
ForEachObjInFormName
Obj.Tag=Obj.Left&""&Obj.Top&""
&Obj.Width&""&Obj.Height&""
NextObj
OnErrorGoTo0
EndSub
按比例改變表單內(nèi)各元件的大小，
在調(diào)用ReSizeForm前先調(diào)用ReSizeInit函數(shù)
PublicSubResizeForm(FormNameAsForm)
DimPos(4)AsDouble
DimiAsLong,TempPosAsLong,StartPosAsLong
DimObjAsControl
DimScaleXAsDouble,ScaleYAsDouble
ScaleX=FormName.ScaleWidth/FormOldWidth
保存窗體寬度縮放比例
ScaleY=FormName.ScaleHeight/FormOldHeight
保存窗體高度縮放比例
OnErrorResumeNext
ForEachObjInFormName
StartPos=1
Fori=0To4
讀取控件的原始位置與大小
TempPos=InStr(StartPos,
Obj.Tag,"",vbTextCompare)
IfTempPos>0Then
Pos(i)=Mid(Obj.Tag,
StartPos,TempPos-StartPos)
StartPos=TempPos+1
Else
Pos(i)=0
EndIf
根據(jù)控件的原始位置及窗體改變大小
的比例對(duì)控件重新定位與改變大小
Obj.MovePos(0)*ScaleX,Pos(1)
*ScaleY,Pos(2)*ScaleX,Pos(3)*ScaleY
Nexti
NextObj
OnErrorGoTo0
EndSub
PrivateSubForm_Load()
CallResizeInit(Me)在程序裝入時(shí)必須加入
EndSub
PrivateSubForm_Resize()
CallResizeForm(Me)確保窗體改變時(shí)控件隨之改變
EndSub

　　本例中給出了二個(gè)函數(shù):ResizeInit和ResizeForm, 在調(diào)用ResizeForm之前必須先調(diào)用ResizeInit。你可以將本程序拷到窗體代碼段里，然后在窗體里加入任意控件即可進(jìn)行測(cè)試。

posted on 2012-05-25 14:56 ** 閱讀(232) 評(píng)論(0) 編輯收藏

新用戶注冊(cè) 刷新評(píng)論列表


只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。




網(wǎng)站導(dǎo)航: 博客園 IT新聞 Chat2DB C++博客博問管理

Hopes

VB自動(dòng)改變控件大小

導(dǎo)航

統(tǒng)計(jì)

公告

常用鏈接

留言簿(2)

隨筆檔案

文章分類

文章檔案

新聞檔案

相冊(cè)

收藏夾

C#學(xué)習(xí)

友情鏈接

搜索

最新評(píng)論

閱讀排行榜

評(píng)論排行榜