📄 10078.html
字号:
<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 11, 1999 at 21:18:45:<p>
小吴,我已经试了好久,能否指导下列程式的错误,谢谢!<br>我想在 RichTextBox做格式的定位.<p>Option Explicit<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 MAX_TAB_STOPS = 32<br>Private Const PFM_STARTINDENT = &H1<br>Private Const PFM_RIGHTINDENT = &H2<br>Private Const PFM_OFFSET = &H4<br>Private Const PFM_ALIGNMENT = &H8<br>Private Const PFM_TABSTOPS = &H10<br>Private Const PFM_NUMBERING = &H20<br>Private Const PFM_OFFSETINDENT = &H80000000<p><br>Private Type ParaFormat<br> cbSize As Integer<br> wPad1 As Long<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> wAlignment As Integer<br> cTabCount As Byte<br> rgxTabs(0 To MAX_TAB_STOPS - 1) As Long<br>End Type<p>Dim StructFormat As ParaFormat<p>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> StructFormat.rgxTabs(0) = 48 * Screen.TwipsPerPixelX<br> StructFormat.rgxTabs(1) = 96 * Screen.TwipsPerPixelX<br> StructFormat.rgxTabs(2) = 144 * Screen.TwipsPerPixelX<br> StructFormat.rgxTabs(3) = 192 * Screen.TwipsPerPixelX<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10078-->
<!--top: 10094--><li><a href="10094.html">宣告有错啦</a> <b>CWW</b> <i>11:16:25 2/12/99</i>
(<!--responses: 10094-->1)
<ul><!--insert: 10094-->
<!--top: 10224--><li><a href="10224.html">Re: 宣告有错啦</a> <b>Linkii</b> <i>12:32:49 2/22/99</i>
(<!--responses: 10224-->0)
<ul><!--insert: 10224-->
</ul><!--end: 10224-->
</ul><!--end: 10094-->
</ul><!--end: 10078-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -