1,451
社区成员
发帖
与我相关
我的任务
分享关于richtextbox的问题，高手请进
我如何让richtextbox只显示999行呢。
由于richbox中显示了颜色，如果直接判断行数大于999，就richtextbox.text = ....
这样的话就可以实现。但是有个问题，richbox中我显示了各种颜色，如果简单的这样操作后，颜色就没有了，请问该如何实现呢?
由于richbox中显示了颜色，如果直接判断行数大于999，就richtextbox.text = ....
这样的话就可以实现。但是有个问题，richbox中我显示了各种颜色，如果简单的这样操作后，颜色就没有了，请问该如何实现呢?
...全文
请发表友善的回复…
发表回复
tokyfeng228 2005-10-29
- 打赏
- 举报
还是不行啊
northwolves 2005-10-28
- 打赏
- 举报
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
Private Const EM_GETLINECOUNT = &HBA
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
Dim i As Long
i = SendMessageByNum(RichTextBox1.hWnd, EM_GETLINECOUNT, 0, 0)
If i > 999 Then KeyAscii = 0
End Sub
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
Dim i As Long
i = SendMessageByNum(RichTextBox1.hWnd, EM_GETLINECOUNT, 0, 0)
If i > 999 Then KeyAscii = 0
End Sub
northwolves 2005-10-28
- 打赏
- 举报
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
Dim i As Long
i = SendMessageByNum(RichTextBox1.hWnd, EM_GETLINECOUNT, 0, 0)
If i > 999 Then KeyAscii = 0
End Sub
tokyfeng228 2005-10-28
- 打赏
- 举报
ding
tokyfeng228 2005-10-27
- 打赏
- 举报
怎么实现啊
vansoft 2005-10-27
- 打赏
- 举报
用API取行數啊。
