[转]SendMessage函数的常用消息及其应用6

时　间:2008-12-08 08:21:00
作　者:andymark   ID：1350  城市：深圳
摘　要:SendMessage函数的常用消息及其应用
正　文:

8.设置控件的左边距。

Public Const EM_SETMARGINS& = &HD3
Public Const EC_LEFTMARGIN& = &H1

Function SetMargins(CTextBox As TextBox, nVal As Long) As Long
SetMargins = SendMessageBynum(CTextBox.hwnd, EM_SETMARGINS, EC_LEFTMARGIN, nVal)
End Function

9.利用SendMessage函数还可以实现一些有趣的效果：
　　例如在按钮的Click事件中加入如下语句：

SendMessage(Command1.hWnd,BM_SETSTYLE,BS_RADIOBUTTON,1)'BM_SETSTYLE = &HF4,BS_RADIOBUTTON = &H4

　　运行后点击按钮，就可以把按钮变成一个收音机按钮（经试，变成一个圆孔，有点象单选按纽）。
　　如要得到圆形或椭圆形按纽可使用另外2个API函数：

hdc=CreateEllipticRgn(3, 3, 25, 25) '试验成功，这两个函数也用于创建圆形窗体
SetWindowRgn Command1.hWnd, hdc, True
DeleteObject hdc

10.窗体操作
　　
Public Const WM_SYSCOMMAND = &H112
Public Const SC_CLOSE = &HF060 '关闭窗体
Public Const SC_MINIMIZE = &HF020 '最小化窗体
Public Const SC_MAXIMIZE = &HF030 '最大化窗体
Public Const SC_RESTORE = &HF120 '恢复窗体大小
Public Const WM_SETTEXT = &HC '设置窗体的Caption
Public Const WM_GETTEXT = &HD '取得窗体的caption

Private Sub Command_Click(Index As Integer)
Dim S As String
S = String(80, Chr(0))
Select Case Index
　Case 0: SendMessage Me.hwnd, WM_GETTEXT, Len(S), ByVal S: Text1 = Left(S, InStr(S, Chr(0)) - 1) '读出窗体的Caption
　Case 1: SendMessage Me.hwnd, WM_SETTEXT, 0, ByVal CStr(Text1.Text)'设置窗体的Caption，由于Text1.text属于Variant类型，所以一定先要用CStr把它转换成字符串
　Case 2: SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, ByVal 0&'窗体最大化
　Case 3: SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, ByVal 0&'窗体最小化
　Case 4: SendMessage Me.hwnd, WM_SYSCOMMAND, SC_RESTORE, ByVal 0&'窗体恢复原来的大小
　Case 5: SendMessage Me.hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&'关闭窗体
End Select
End Sub

11.文本垂直居中：
　　实现这个效果首先TextBox的MultiLine属性必须为True(多行文本,其实这个属性关系创建TextBox内部

使用哪个类,因此一旦创建就不能修改这个属性,所以不能在代码中修改这个属性）

Public Sub VerMiddleText(mText As TextBox)
Dim rc As RECT '以象素为单位
Dim tmpTop As Long
Dim tmpBot As Long
If mText.MultiLine = False Then Exit Sub
Call SendMessage(mText.hwnd, EM_GETRECT, 0, rc)'获得窗口区域的边界
   '进行位置数据计算
With Me.Font
  .Name = mText.Font.Name
  .Size = mText.Font.Size
  .Bold = mText.Font.Bold
End With
tmpTop = ((rc.Bottom - rc.Top) - (mText.Parent.TextHeight("H") \ Screen.TwipsPerPixelY)) \ 2
tmpBot = ((rc.Bottom - rc.Top) + (mText.Parent.TextHeight("H") \ Screen.TwipsPerPixelY)) \ 2
rc.Top = tmpTop
rc.Bottom = tmpBot
mText.Alignment = vbCenter
   '数据计算完毕,再发送EM_SETRECTNP消息(为一个编辑控件设置格式化矩形,与EM_SETRECT类似,只是控件此时不会重画）
Call SendMessage(mText.hwnd, EM_SETRECTNP, 0&, rc)
mText.Refresh
End Sub

12.调整边距：
　　如果你查看TextBox中常用的消息,你会发现有这样一对消息：EM_GETMARGINS 和 EM_SETMARGINS，MSDN的解
释是：获取和设置编辑控件的左、右边距(不得用于NT3．51)。具体是左还是右由该消息的参数决定。
　　这样做有什么意义呢？有的时候如果你想在texebox中放入其他对象,而又不希望文本被覆盖掉,你就需要用
到这个方法。

Private Sub SetMargin(nLeft As Integer, nRight As Integer, lhWnd As Long)
Dim lLongValue As Long
lLongValue = nRight * &H10000 + nLeft '高四位表示右边距,低四位为左边距
SendMessage lhWnd, EM_SETMARGINS, EC_LEFTMARGIN Or EC_RIGHTMARGIN, lLongValue
End Sub