发信人: aaaaaaaaa()
整理人: cobe(2000-03-12 14:41:14), 站内信件
|
编者的话
==============================================
大家好！
欢迎大家回答问题和提出问题，同时也欢迎大家
提供有关VB、VBA和ASP的好作品。
版主 冯德平
[email protected]
=============================================
目 录
a 调整 Combo 下拉部分的宽度
b 表单的位置
c 防止文本控件中的部分滚动
=============================================
VB邮件(7.22)
a 调整 Combo 下拉部分的宽度
声明：
Private Declare Function SendMessage Lib _
"USER32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const CB_GETDROPPEDWIDTH = &H15F
Private Const CB_SETDROPPEDWIDTH = &H160
Private Const CB_ERR = -1
函数：
' 取得 Combo 下拉的宽度
' 可以利用该函数比例放大或缩小宽度
Public Function GetDropdownWidth(cboHwnd As Long) As Long
Dim lRetVal As Long
lRetVal = SendMessage(cboHwnd, CB_GETDROPPEDWIDTH, 0, 0)
If lRetVal <> CB_ERR Then
GetDropdownWidth = lRetVal
'单位为 pixels
Else
GetDropdownWidth = 0
End If
End Function
'设置 Combo 下拉的宽度
'单位为 pixels
Public Function SetDropdownWidth(cboHwnd As _
Long, NewWidthPixel As Long) As Boolean
Dim lRetVal As Long
lRetVal = SendMessage(cboHwnd, _
CB_SETDROPPEDWIDTH, NewWidthPixel, 0)
If lRetVal <> CB_ERR Then
SetDropdownWidth = True
Else
SetDropdownWidth = False
End If
End Function
b 表单的位置
不同的電腦，可能設定了不同的解析度；而同一個Project中，可能包
含了許多不一樣的Form，此時，我們該如何設計程式，使得Form能隨
著每種差異的畫面，調整至相對的位置呢?
假如希望名稱為ff的Form能固定顯示在螢幕的中央，則寫法如下:
Sub CenterForm(ff As Form)
ff.Move (Screen.Width - ff.Width) / 2, (Screen.Height - ff.Height) /
2
End Sub
或者
Sub CenterForm(ff As Form)
ff.Left = (Screen.Width - ff.Width) / 2
ff.Top = (Screen.Height - ff.Height) / 2
End Sub
使用時，直接Call CenterForm(Form1)即可(Form1為該Form的名稱)。
同理，其他的畫面定位亦可依此原理來設計。
c 防止文本控件中的部分滚动
谭翁
Windows API的SendMessage函数可以用来向Visual Basic控件中发送消息,例
如向文本框控件上发送消息。本文介绍如何利用该函数防止文本框控件中的部分
文本滚动,即该控件中不能滚动的部分不能被用户看见。
发送消息到文本框控件
Visual Basic中的文本框控件就是一个最小化的字处理程序。当该文本控件
的MultiLine属性被设置为True时,则文本可以自动换行;当在文本框控件中键入了
许多文本时,控件中的文本会向上滚动。这时文本就变得看不到了,但这些文本实
际上仍然在控件中——它们并没有被删除。
Windows API的SendMessage函数可以用来防止文本框控件中的文本滚动而超出我
们的视线。当创建该文本框控件时,它的客户区域格式化为一个矩形(该区域就是
键入文本的地方),可以给该控件发送EM_SETRECTNP消息,对该矩形区域进行限制,
以在文本框的客户区域中指定一个特定区域。
在下面的样例程序中,我们希望文本控件的后一半原封不动地保持完整,即不希望
文本滚动而超出视线。可以从文本框控件的Height属性中提取出它的高度,并将该
值除以2,得到该文本框控件后一半的坐标。然后将该结果传递给SendMessage函数
,告诉EM_SETRECTNP防止该矩形区域滚动。
有些程序员可能会希望使用EM_SETRECT消息代替EM_SETRECTNP消息。但是,使用E
M_SETRECT消息会停止Windows对该格式化矩形区域中的文本的重新绘制,导致文本
框控件中的文本看不到。
样例程序
该程序显示了如何临时冻结一个文本框控件中的特定部分,该部分包含的文本
不能滚动,因而不会超出视线之外,如下图所示。
1.在Visual Basic中开始一个新的工程,采用缺省的方法建立Form1。
2.将如下常量和声明语句添加到Form1的通用声明部分中(注意该声明语句需要书
写在一行内):
Private Declare Function SendMessage Lib "User" (ByVal hWnd As Integer
, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Lo
ng
Const WM_USER = &H400
Const EM_SETRECTNP = WM_USER + 4
Const EM_SETRECT = WM_USER + 3
对于32位环境下使用Visual Basic 5.0的用户,需要将如下声明语句添加到Form1
的通用声明部分中:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam
As Any) As Long
Const EM_SETRECTNP = &HB4
Const EM_SETRECT = &HB3
3.将如下代码添加到Form1的Form_Load事件中:
Private Sub Form_Load()
Text1.Text = "这是我们希望显示出来的第一段"
Text1.Text = Text1.Text & "它位于文本框控件中"
Text1.Text = Text1.Text & Chr$(13) & Chr$(10) & "这是第二段,我们"
Text1.Text = Text1.Text & "希望将之冻结以使文本不能滚动 "
End Sub
4.将如下代码添加到Form1的Click事件中:
Private Sub Form_Click()
Dim R As RECT
Dim X As Long
ScaleMode = 3
R.Left = 0
R.Top = 0
R.Right = Text1.Width
R.Bottom = Text1.Height / 2
X = SendMessage(Text1.hWnd, EM_SETRECTNP, 0, R)
End Sub
5.创建一个新的模块,采用缺省的方法建立Module1.Bas。
6.将如下TYPE结构添加到Module1.Bas中:
Type RECT
Left As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type
对于32位环境下使用Visual Basic 5.0的用户,需要将如下TYPE结构添加到Modul
e1
.Bas中:
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
7.在Form1上添加一个文本框控件,采用缺省的方法建立Text1,将其MultiLine属性
设置为True。
按下F5来执行该程序,我们可以看到文本框显示在Form1上。在窗体上单击一次鼠
标,将新的文本键入到该文本框控件中。这时我们可以注意到,当我们在文本框控
件的开头处键入新的文本时,在文本框控件下半部分的文本不会滚动。
如果我们将EM_SETRECT消息替代EM_SETRECTNP消息发送给文本框,再次运行该程序
,这时我们会发现,文本框的下半部分显示不出来,尽管实际上文本仍然是存储在控
件中的。
=============================================
VB问答
问题部分：
回答部分：
=============================================
说 明
凡未署名的文章是网友推荐的作品，如果原作者
看到自己的文章未署自己的名字，请与版主联系。
如要转载本VB邮件请与原作者联系，不是版主的
文章请不要署版主的名字，但请注明摘自:
goodvbhome.yeah.net
谢谢大家的合作。
====================================================================
欢迎订阅VB免费邮件:
订阅地址 http://server.com/WebApps/mail-list-subscribe.cgi?id=16852
====================================================================
如果您觉得这个邮件列表好的话，请告诉您的朋友。
====================================================================
欢迎投稿 [email protected]
====================================================================
网易上的主页地址：http://www4.netease.com/~aaaaaaaaa
本网站主页镜像地址：goodvbhome.yeah.net
广东视灵通：http://personal.gz168.gnet.gd.cn/vbok/
====================================================================
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.48.221]
|
|