9885.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 22 行

HTML
22 行
字号 
<html>
  <head>
    <title>请问 VB 高手 , richtextbox 控制项问题 ?</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>请问 VB 高手 , richtextbox 控制项问题 ?</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by Linkii on February 05, 1999 at 12:32:40:<p>
我想利用 RichTextBox 控制项,做 4 个栏位的格式定位,<br>分别起始位置为 20 , 140 , 260 ,380 (Pixels) ,请问下列程式有错误 .<br>谢谢 !<p><br>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<p>Private Const WM_USER = &H400<br>Private Const EM_SETPARAFORMAT = WM_USER + 71<br>Private Const PFM_TABSTOPS = &H10<p>Private Type ParaFormat<br>  cbsize As Byte<br>  dwMask As Long<br>  wNumbering As Integer<br>  wReserved As Integer<br>  dxStartIndent As Long<br>  dxRightIndent As Long<br>  dxOffset As Long<br>  wAligment As Integer<br>  cTabCount As Byte<br>  rgxTabs() As Long<br>End Type<p>Dim StructFormat As ParaFormat<p><br>Private Sub Command1_Click()<br>  Dim result As Long<br>  <br>  result = SendMessage(Text1.hwnd, EM_SETPARAFORMAT, 0, StructFormat)<br>  Text1.Text = Chr(9) & "the" & Chr(9) & "is" & Chr(9) & "a" & Chr(9) & "dog" & vbCrLf<br>  Text1.Text = Text1.Text & Chr(9) & "te" & Chr(9) & "i" & Chr(9) & "afdf" & Chr(9) & "dog" & vbCrLf<br>  Me.Caption = result<br>End Sub<p>Private Sub Form_Load()<br>  StructFormat.cbsize = Len(StructFormat)<br>  StructFormat.dwMask = PFM_TABSTOPS<br>  StructFormat.cTabCount = 4<br>  ReDim StructFormat.rgxTabs(3) As Long<br>  StructFormat.rgxTabs(0) = 20<br>  StructFormat.rgxTabs(1) = 140<br>  StructFormat.rgxTabs(2) = 260<br>  StructFormat.rgxTabs(3) = 380<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9885-->
</ul><!--end: 9885-->
<br><hr size=7 width=75%><p>

</body></html>

9885.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 9885.html 源码文件，采用 HTML 编程语言编写，共 22 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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