vb_jiqiao.txt

真是vb技巧

防止窗口重画　 WXJ_Lake 编译

　　这则代码演示了如何防止窗口的一部分重画。当你要往ListBox或ListView这样的控件里添加许多项时，暂缓重画可以相当地提高处理速度。
在我的系统上，往一个ListBox中加10000项比原来提速30%

　　新建一个项目，添加一个ListBox、一个Command和一个CheckBox。把CheckBox的Caption设为"&Lock Update",Command的Caption设为"&Load"。
然后，把下列代码粘贴到窗体中：

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command1_Click()
　Dim i As Long
　Dim lTIme As Long

　lTIme = timeGetTime()
　　
　If (Check1.Value = Checked) Then
　　 LockWindowUpdate List1.hWnd
　End If 
　　
　List1.Clear
　For i = 1 To 10000
　　 List1.AddItem "Test " & i
　Next i
　　
　If (Check1.Value = Checked) Then
　　 LockWindowUpdate 0
　　 List1.Refresh
　End If
　　
　MsgBox "Time: " & timeGetTime - lTIme
　　
End Sub

　　当你单击Command按钮，代码将往ListBox中添加10000项。如果"Lock Update"的复选框被选中，Windows将在往ListBox中添加项时防止它的重画。操作结束后，会弹出一个对话框报告运行时间。


-------------------------
防止用户编辑文本框控件中的内容
作者：谭翁 
Visual Basic中的文本框控件允许用户在其中键入文本,以便在程序中使用。相反,程序员可能会希望显示一些文本但不希望用户编辑该文本。本文介绍了如何创建只读的文本框控件的内容。

使一个文本框控件只读

在Visual Basic中,如果文本框控件的MultiLine属性设置为True,文本将会自动地换行到下一行。另外,如果文本框控件的ScrollBars属性设置为3-Both(或者1-Vertical,或者2-Horizontal),用户还能够滚动控件中的内容。

程序员要想实现文本框控件中的文本不可编辑,可将文本框控件中的内容设置为只读状态,这可以通过使用Microsoft Windows应用程序编程接口(API)的SendMessage函数来实现。

SendMessage函数可以用来发送一个EM_SETREADONLY消息到文本框控件中,这将使文本框控件变为只读。

要在程序中使用该SendMessage函数,需要将如下的声明语句包含在项目的通用声明部分中(注意该声明语句需要书写在一行内):

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"(By Val hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVallParam As Long) As Long

该SendMessage函数需要4个参数,如下所示:

·hwnd 一个长整数值,它包含文本框控件的句柄。

.wMsg 一个长整数值,它包含被发送的消息,在这个例子里,是EM_SETREADONLY。

·wParam 一个整数值,如果它为True,则控件被设置只读标记,如果它为False,则删除控件的只读标记。

·lParam 一个长整数值,它应该被设置为0(EM_SETREADONLY不使用它)。

在程序运行了此SendMessage函数之后,将返回一个长整数值,指明调用成功(返回值非 0)或是失败(返回值为0)。

样例程序

该程序显示了如何防止用户编辑一个文本框控件中的内容。

1.在Visual Basic中开始一个新的工程,采用缺省的方法建立Form1。

2.将如下的常量和声明语句添加到Form1的通用声明部分中(注意该声明语句需

要书写在一行内):

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (B yVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Const WM_USER = &H400

Const EM_SETREADONLY = (WM_USER + 31)

3.在Form1上添加一个文本框控件,采用缺省的方法建立Text1。将其MultiLine属性

设置为True,并且将它的ScrollBars属性设置为3-Both。

4.在Form1上添加一个命令按钮控件,采用缺省的方法建立Command1。

5.将如下的代码添加到Command1的单击事件中:

Private Sub Command1_Click()

Dim RetVal As Long

RetVal = SendMessage(Text1.hwnd, EM_SETREADONLY, True, ByVal 0&)

End Sub

通过按下F5键来执行样例程序。在文本框控件中键入一些文本,可以使用水平和垂直流动条来滚动文本,还可以改变文本的内容。单击命令按钮,用户仍然可以使用流动条或是光标键来查看文本框控件的内容,但是不能编辑它。