9965.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 30 行

HTML
30 行
字号 
<html>
  <head>
    <title>小吴,麻烦回答一下好吗?</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>小吴,麻烦回答一下好吗?</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by Linkii on February 09, 1999 at 09:05:10:<p>
请问我在 MSDN 的索引键入 ParaFormat ,会出现以下格式 ,<br>此结构对应 VB 应如何宣告,又( _WPAD ) 是什么意思 ? <br>typedef struct _paraformat { <br>UINT cbSize; <br>_WPAD _wPad1; ---------------□ 什么意思 ?<br>DWORD dwMask; <br>WORD wNumbering; <br>WORD wReserved; <br>LONG dxStartIndent; <br>LONG dxRightIndent; <br>LONG dxOffset; <br>WORD wAlignment; <br>SHORT cTabCount; <br>LONG rgxTabs[MAX_TAB_STOPS]; <br>} PARAFORMAT; <p><br>我想利用 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<br>Private Const Max_Tab_Stops=32<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(Max_Tab_Stops) As Long<br>End Type<p>Dim StructFormat As ParaFormat<p><br>Private Sub Command1_Click()<br>Dim result As Long<p>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<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9965-->
<!--top: 9981--><li><a href="9981.html">要有尝试的精神呀!</a> <b>小吴</b> <i>14:34:37 2/09/99</i>
(<!--responses: 9981-->1)
<ul><!--insert: 9981-->
<!--top: 10043--><li><a href="10043.html">Re: 要有尝试的精神呀!</a> <b>Linkii</b> <i>15:54:02 2/10/99</i>
(<!--responses: 10043-->0)
<ul><!--insert: 10043-->
</ul><!--end: 10043-->
</ul><!--end: 9981-->
</ul><!--end: 9965-->
<br><hr size=7 width=75%><p>

</body></html>

9965.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 9965.html 源码文件，采用 HTML 编程语言编写，共 30 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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