平码公式规律出肖|平码可以买3个平码吗

VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)
首頁 - 經驗之談 - Visual Basic開發要點三則
發表評論(0)作者:不詳, 平臺:VB6.0+Win98, 閱讀:7465, 日期:2001-06-19
Visual Basic開發要點三則
張華成

--------------------------------------------------------------------------------
b>一、 用控件拖放表單

---- 怎樣用控件拖放表單呢?很簡單,將這段代碼插入到Declare部分。

Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

再在控制的Mousedown事件中插入:

Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Ret&
ReleaseCapture
Ret& = SendMessage(Me.hWnd, &H112, &HF012, 0)
End Sub

二、 把表單放在屏幕的正中央

---- 在開發VB程序時,一般希望將表單放在屏幕可利用區域的正中央,實現上可以利用Move(Screen.Width - Width)\2,(Screen.Height - Height)\2的方法來實現。但是當用戶使用Windows 95或 NT 操作系統時,在 屏幕底端會有一任務條,上述的實現方法并未考慮該任務條所占的空間,表單實際并未處于屏幕可利用區域的正中央。下面的代碼段實現了在每次啟動應用程序時,無論屏幕是否有任務條,表單都會屏幕可利用區域的正中央。在工程中增添一模塊,在模塊中加上如下的代碼:

Option Explicit
Private Const SPI_GETWORKAREA = 48
Private Declare Function SystemParametersInfo& Lib "User32" Alias
"SystemParametersInfoA" (ByVal uAction As Long,ByVal uParam As Long, lpvParam As
Any, ByVal fuWinIni As Long)
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Function CenterForm32 (frm As Form)
Dim ScreenWidth&, ScreenHeight&, ScreenLeft&, ScreenTop&
Dim DesktopArea As RECT
Call SystemParametersInfo (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
d Function



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

三、 在RichTextBox 控件中實現上、下標形式

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

---- 當SelCharOffset$#@60; 0 時,文本出現在基線之下,成為下標形式。

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

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

Private Sub Form_Load()
RichTextBox1.Font.Name = "Times New Roman"
RichTextBox1.Font.Size = 10
RichTextBox1.Text = "H2SO4"
" Move the numbers down 2 points.
OffsetRichText RichTextBox1, 1, 1, 2
OffsetRichText RichTextBox1, 4, 1, -2
End Sub

Private Sub OffsetRichText(box As RichTextBox, start As Integer, length As Integer,
offset As Integer)

"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
End Sub

上述程序在WINDOWS98/ME中通過。
平码公式规律出肖 江苏十一选五开奖图 澳客网手机版首页 南京麻将算法 北京十一选五前三遗 股票推荐群里推荐股票增资是好是坏 港股配资 吉林麻将 秒速飞艇为什么这么 今日上证指数 福利彩票p62今晚开奖结果