Hopes
          

          Start Here..
          

           
          
			
          
				
					
	
          
		
          
			VB自動改變控件大小
		
          
		
          當窗體大小改變時，如何動態的改變控件的大小是許 多VB程序員頭痛的事。有的人設置窗體Resizable但卻不改變控件的大小；有的人則根據控件 的絕對位置與窗口大小相加減的辦法來重新定位控件與改變大小，這種辦法比較繁瑣，且不 可重用；當然也有人則限定窗口干脆不讓改變。有沒有一種簡便易行的辦法？答案是肯定的， 下面給出一個一勞永逸的辦法，源程序如下:
          OptionExplicit
          PrivateFormOldWidthAsLong
          保存窗體的原始寬度
          PrivateFormOldHeightAsLong
          保存窗體的原始高度
          在調用ResizeForm前先調用本函數
          PublicSubResizeInit(FormNameAsForm)
          DimObjAsControl
          FormOldWidth=FormName.ScaleWidth
          FormOldHeight=FormName.ScaleHeight
          OnErrorResumeNext
          ForEachObjInFormName
          Obj.Tag=Obj.Left&""&Obj.Top&""
          &Obj.Width&""&Obj.Height&""
          NextObj
          OnErrorGoTo0
          EndSub
          按比例改變表單內各元件的大小，
          在調用ReSizeForm前先調用ReSizeInit函數
          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
          根據控件的原始位置及窗體改變大小
          的比例對控件重新定位與改變大小
          Obj.MovePos(0)*ScaleX,Pos(1)
          *ScaleY,Pos(2)*ScaleX,Pos(3)*ScaleY
          Nexti
          NextObj
          OnErrorGoTo0
          EndSub
          PrivateSubForm_Load()
          CallResizeInit(Me)在程序裝入時必須加入
          EndSub
          PrivateSubForm_Resize()
          CallResizeForm(Me)確保窗體改變時控件隨之改變
          EndSub          　　本例中給出了二個函數:ResizeInit和ResizeForm, 在調用ResizeForm之前必須先調用ResizeInit。你可以將本程序拷到窗體代碼段里，然后在 窗體里加入任意控件即可進行測試。
          
		
          
			posted on 2012-05-25 14:56 ** 閱讀(229) 評論(0)  編輯  收藏  
		
          
	
          
	
	


	


          
	    
    




          





          


          

	
          
		
          
				
		
	
		
          
		
		
          只有注冊用戶登錄后才能發表評論。
          
		
          
			
		
          
			
		
          
		
		
          
		


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網站導航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
			
          
			
          
				
					

          導航
          

					

          統計
          
	
					

          公告
          
	你好！

					

          常用鏈接
          


          留言簿(2)
          


		
          隨筆檔案
          
		
				
			
	
		
          文章分類
          
		
				
			
	
		
          文章檔案
          
		
				
			
	
		
          新聞檔案
          
		
				
			
	
		
          相冊
          
		
				
			
	
		
          收藏夾
          
		
				
			
	
		
          C#學習
          
		
				
			
	
		
          友情鏈接
          
		
				
			
	



          搜索
          



          最新評論
	
          

          
	
			
		

          


          閱讀排行榜
          



          評論排行榜
          


				
			
          			
			

	

    







          
        
	




主站蜘蛛池模板：
竹北市|
驻马店市|
都安|
通化市|
福建省|
左贡县|
肃宁县|
普定县|
万全县|
虹口区|
平昌县|
道孚县|
合山市|
潍坊市|
商河县|
盖州市|
开原市|
左云县|
库尔勒市|
屏东县|
定结县|
丰顺县|
湖南省|
买车|
陆良县|
天长市|
黄龙县|
星子县|
聂荣县|
屯留县|
海口市|
兴隆县|
阳春市|
富平县|
紫云|
云林县|
页游|
柳林县|
中阳县|
巴彦县|
普兰店市|