VB使用編程技巧三則

2019-11-18 17:33:17

字體：大中小

來源：轉載

供稿：網友

----1、VB中實現動態移動控件

----窗體中的控件如按鈕、文本框等一般在運行時位置是固定不變的，但為了能給用戶更方便的功能，我們可以做到在運行時動態移動控件的位置，比如我們可以允許用戶隨便將按鈕放到自己喜歡的位置，而并非界面中固定的位置。其實這個功能實現起來是很容易的，只需要使用API函數SendMessage傳遞控件移動的消息即可。

----下面是一個例子，當用戶單擊按鈕后可以移動按鈕的位置。

----在窗體的總體聲明部分聲明SendMessage函數及用到的兩個常量：

PublicFunctionNewWindowProc
(ByValhwndAsLong,ByValmsgAsLong,_
ByValwParamAsLong,lParamAsWINDOWPOS)AsLong
Staticdone_beforeAsBoolean
Static aspectAsSingle
Dimnew_aspectAsSingle

Ifmsg=WM_WINDOWPOSCHANGINGThen
IflParam.cy>0Then
'保存原來的比例
IfNotdone_beforeThen
aspect=lParam.cx/lParam.cy
done_before=True
EndIf

new_aspect=lParam.cx/lParam.cy
Ifnew_aspect>aspectThen
lParam.cy=lParam.cx/aspect
Else
lParam.cx=aspect*lParam.cy
EndIf
EndIf
EndIf

NewWindowProc=CallWindowProc
(OldWindowProc,hwnd,msg,wParam,lParam)

EndFunction

----運行此程序，當用鼠標拉窗體的邊界擴大窗口時，將會發現另一邊也相應地擴大，整個窗口的比例不變，單擊command1結束程序。

----3、使用系統的“關于”對話框。

----也許你在軟件中需要一個“關于”對話框，如果要求不高的話，可以不必再用一個窗體做“關于”對話框，可利用系統的對話框，雖然其中含有微軟的一些信息，但你還是可以添加自己的某些信息，系統提供的“關于”對話框還有內存、資源等有關信息，你不需再為這些信息寫任何代碼。要使用系統的“關于”對話框，只需聲明API函數ShellAbout，然后直接調用即可，例如：

'聲明API函數
PrivateDeclareFunction
ShellAboutLib"shell32.dll"_
Alias"ShellAbout"(ByValhwnd
AsLong,ByValszAppAsString,_
ByValszOtherStuffAsString,
ByValhIconAsLong)AsLong

在需要的地方使用它：
PrivateSubABOUTCd_Click()
x=ShellAbout(Form1.hwnd,"VB編程樂園網站指南","博士電腦軟件工作室",Form1.Icon)
EndSub->

上一篇：VB軟件開發中的錯誤捕獲及處理技術

下一篇：VB里實現幫助文件速成

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注