程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VB開發技巧三則

VB開發技巧三則

編輯:VB綜合教程
一、用控件拖放表單
  ----怎樣用控件拖放表單呢?很簡單,將這段代碼插入到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.->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved