一、用控件拖放表单
----怎样用控件拖放表单呢?很简单,将这段代码插入到Declare部分。
DeclareFunctionReleaseCaptureLib"user32"()AsLong
DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
再在控制的Mousedown事件中插入:
SubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DimRet&
ReleaseCapture
Ret&=SendMessage(Me.hWnd,&H112,&HF012,0)
EndSub
二、把表单放在屏幕的正中央
----在开发VB程序时,一般希望将表单放在屏幕可利用区域的正中央,实现上可以利用Move(Screen.Width-Width)2,(Screen.Height-Heig...[ 查看全文 ]