VB開發技巧三則

2019-11-18 17:33:13

字體：大中小

來源：轉載

供稿：網友

一、用控件拖放表單
----怎樣用控件拖放表單呢？很簡單，將這段代碼插入到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-Height)/2的方法來實現。但是當用戶使用Windows95或NT操作系統時，在屏幕的底端會有一任務條，上述的實現方法并未考慮該任務條所占的空間，表單實際并未處于屏幕可利用區域的正中央。下面的代碼段實現了在每次啟動應用程序時，無論屏幕是否有任務條，表單都會處于屏幕可利用區域的正中央。在工程中增添一模塊，在模塊中加上如下的代碼：
OptionExplicit
PRivateConstSPI_GETWORKAREA=48
PrivateDeclareFunctionSystemParametersInfo&Lib"User32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)
PrivateTypeRECT
LeftAsLong
TopAsLong
RightAsLong
BottomAsLong
EndType

PublicFunctionCenterForm32(frmAsForm)
DimScreenWidth&,ScreenHeight&,ScreenLeft&,ScreenTop&
DimDesktopAreaAsRECT
CallSystemParametersInfo(SPI_GETWORKAREA,0,DesktopArea,0)
ScreenHeight=(DesktopArea.Bottom-DesktopArea.Top)*Screen.TwipsPerPixelY
ScreenWidth=(DesktopArea.Right-DesktopArea.Left)*Screen.TwipsPerPixelX
ScreenLeft=DesktopArea.Left*Screen.TwipsPerPixelX
ScreenTop=DesktopArea.Top*Screen.TwipsPerPixelY
frm.Move(ScreenWidth-frm.Width)/2 ScreenLeft,(ScreenHeight-frm.Height)/2 ScreenTop
EndFunction

----要調用CenterForm32函數，可在表單的Load事件中增添代碼CenterForm32Me即可。以上代碼在VB4/32，VB5中實現。

三、在RichTextBox控件中實現上、下標形式
----VB提供了一個優秀的控件RichTextBox，我們可以在其中實現文本的各種編輯方式。下面的程序是在RichTextBox控件中實現上標和下標的形式，主要是使作為上、下標的字符的尺寸小一些，位置在基線上下浮動。程序利用屬性SelCharOffset，由它確定RichTextBox控件中的文本是出現在基線上（正常狀態），當SelCharOffset>0時，文本出現在基線之上，成為上標形式；
----當SelCharOffset<0時，文本出現在基線之下，成為下標形式。

----該屬性在設計時無效。

----在表單的Load事件中添加以下代碼：

PrivateSubForm_Load()
RichTextBox1.Font.Name="TimesNewRoman"
RichTextBox1.Font.Size=10
RichTextBox1.Text="H2SO4"
'Movethenumbersdown2points.
OffsetRichTextRichTextBox1,1,1,2
OffsetRichTextRichTextBox1,4,1,-2
EndSub

PrivateSubOffsetRichText(boxAsRichTextBox,startAsInteger,lengthAsInteger,offsetAsInteger)
'box指RichTextBox控件；start指作為上下標的
'字符的起始位置；length指上下標字符的長度；
'offset指上標還是下標，大于0上標；小于0下標。
box.SelStart=start
box.SelLength=length
box.SelFontSize=box.Font.Size-abs(offset)
box.SelCharOffset=ScaleY(offset,vbPoints,vbTwips)
box.SelStart=0
box.SelLength=0
EndSub
該程序在VB4/32和VB5上調試通過。最后在RichTextBox
控件中字符串的形式為：H2SO4.->

上一篇：VB常見問題解答(1)

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