📄 vcc19.htm

📁 SHELL排序算法与应用
💻 HTM
字号:
<html>
<head>
<title>c++系列</title>
 
 
 
 
 
 
 
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
 
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center> 
  <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
    <tbody> 
    <tr> 
      <td width=200 height="59"> 
         
    </tr>
    </tbody> 
  </table>
  <table border=1 bordercolordark=#ffffff bordercolorlight=#ffffff cellpadding=0 
cellspacing=0 width=685 align="center" height="70">
    <tbody> 
    <tr> 
      <td bgcolor=#F9D23C height=14> 
        <div align=center class=H1> <b><b>防止文本控件中的部分滚动</b> 
          </b></font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=212> <font color="#FF0000">　　<br>
        　　 <font color="#000000">Windows API的SendMessage函数可以用来向Visual Basic控件中发送消息,例如向文本框控件上发送消息。本文介绍如何利用该函数防止文本框控件中的部分文本滚动,即该控件中不能滚动的部分不能被用户看见。<br>
        <br>
        发送消息到文本框控件 <br>
        　　Visual Basic中的文本框控件就是一个最小化的字处理程序。当该文本控件的MultiLine属性被设置为True时,则文本可以自动换行;当在文本框控件中键入了许多文本时,控件中的文本会向上滚动。这时文本就变得看不到了,但这些文本实际上仍然在控件中——它们并没有被删除。<br>
        　　Windows API的SendMessage函数可以用来防止文本框控件中的文本滚动而超出我们的视线。当创建该文本框控件时,它的客户区域格式化为一个矩形(该区域就是键入文本的地方),可以给该控件发送EM_SETRECTNP消息,对该矩形区域进行限制,以在文本框的客户区域中指定一个特定区域。<br>
        　　在下面的样例程序中,我们希望文本控件的后一半原封不动地保持完整,即不希望文本滚动而超出视线。可以从文本框控件的Height属性中提取出它的高度,并将该值除以2,得到该文本框控件后一半的坐标。然后将该结果传递给SendMessage函数,告诉EM_SETRECTNP防止该矩形区域滚动。<br>
        有些程序员可能会希望使用EM_SETRECT消息代替EM_SETRECTNP消息。但是,使用EM_SETRECT消息会停止Windows对该格式化矩形区域中的文本的重新绘制,导致文本框控件中的文本看不到。<br>
        <br>
        样例程序 <br>
        　　该程序显示了如何临时冻结一个文本框控件中的特定部分,该部分包含的文本不能滚动,因而不会超出视线之外,如下图所示。<br>
        　　1.在Visual Basic中开始一个新的工程,采用缺省的方法建立Form1。<br>
        　　2.将如下常量和声明语句添加到Form1的通用声明部分中(注意该声明语句需要书写在一行内):<br>
        Private Declare Function SendMessage Lib &quot;User&quot; (ByVal hWnd 
        As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As 
        Any) As Long<br>
        Const WM_USER = &amp;H400<br>
        Const EM_SETRECTNP = WM_USER + 4<br>
        Const EM_SETRECT = WM_USER + 3<br>
        　　对于32位环境下使用Visual Basic 5.0的用户,需要将如下声明语句添加到Form1的通用声明部分中:<br>
        Private Declare Function SendMessage Lib &quot;user32&quot; Alias &quot;SendMessageA&quot; 
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam 
        As Any) As Long<br>
        Const EM_SETRECTNP = &amp;HB4<br>
        Const EM_SETRECT = &amp;HB3<br>
        　　3.将如下代码添加到Form1的Form_Load事件中:<br>
        Private Sub Form_Load()<br>
        Text1.Text = &quot;这是我们希望显示出来的第一段&quot;<br>
        Text1.Text = Text1.Text &amp; &quot;它位于文本框控件中&quot;<br>
        Text1.Text = Text1.Text &amp; Chr$(13) &amp; Chr$(10) &amp; &quot;这是第二段,我们&quot;<br>
        Text1.Text = Text1.Text &amp; &quot;希望将之冻结以使文本不能滚动 &quot;<br>
        End Sub<br>
        　　4.将如下代码添加到Form1的Click事件中:<br>
        Private Sub Form_Click()<br>
        Dim R As RECT<br>
        Dim X As Long<br>
        ScaleMode = 3<br>
        R.Left = 0<br>
        R.Top = 0<br>
        R.Right = Text1.Width<br>
        R.Bottom = Text1.Height / 2<br>
        X = SendMessage(Text1.hWnd, EM_SETRECTNP, 0, R)<br>
        End Sub<br>
        　　5.创建一个新的模块,采用缺省的方法建立Module1.Bas。<br>
        　　6.将如下TYPE结构添加到Module1.Bas中:<br>
        Type RECT<br>
        Left As Integer<br>
        Top As Integer<br>
        Right As Integer<br>
        Bottom As Integer<br>
        End Type<br>
        　　对于32位环境下使用Visual Basic 5.0的用户,需要将如下TYPE结构添加到Module1<br>
        .Bas中:<br>
        Type RECT<br>
        Left As Long<br>
        Top As Long<br>
        Right As Long<br>
        Bottom As Long<br>
        End Type<br>
        　　7.在Form1上添加一个文本框控件,采用缺省的方法建立Text1,将其MultiLine属性设置为True。<br>
        　　按下F5来执行该程序,我们可以看到文本框显示在Form1上。在窗体上单击一次鼠标,将新的文本键入到该文本框控件中。这时我们可以注意到,当我们在文本框控件的开头处键入新的文本时,在文本框控件下半部分的文本不会滚动。<br>
        　　如果我们将EM_SETRECT消息替代EM_SETRECTNP消息发送给文本框,再次运行该程序,这时我们会发现,文本框的下半部分显示不出来,尽管实际上文本仍然是存储在控件中的。 
        </font></font><font 
      color=#ffa000><b><br>
        　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　[</b></font><a 
      href="javascript:window.close();"> </a><font 
      color=#ffa000><b>］</b></font> </td>
    </tr>
    </tbody> 
  </table>
  <table border=0 cellpadding=0 cellspacing=0 width=638 align="center">
    <tbody class="unnamed1"> 
    <tr valign=center> 
      <td height=70> 
        <div align=center>  <br>
           </font></span><br>
           

</script>
          <br>
          <br>
        </div>
      </td>
    </tr>
    <tr valign=center> 
      <td height=10> 
        <div align="center"><font 
color=#009900>--- ----------------  </a> 
          |   </a>|  </a> 
          |<a href="../2e.htm" target="_blank"> </a> ------------------</span>-</font></div>
      </td>
    </tr>
    <tr valign=bottom> 
      <td> 
        <div align=center><img height=1 
      src="../pic/xian1.gif" width=500></div>
      </td>
    </tr>
    <tr align=middle valign=bottom> 
      <td height=20> 
        <div align=center class="unnamed3"> <br>
          <font size="-1">
           
          </font> </div>
      </td>
    </tr>
    </tbody> 
  </table>
</div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -