📄 1854.html
字号:
<html> <head> <title>可以了!!</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK=""> <center> <h1>可以了!!</h1> </center><HR><p>Posted by <a href="mailto:chroma1@ms4.hinet.net">Jerry</a> on February 03, 1998 at 23:14:14:<p>In Reply to: <a href="1845.html"><b>SelText 属性</b></a> posted by 小吴 on February 03, 1998 at 17:26:46:<p><br>: 既然你都知道要用 SelXXX 属性，那为什么忘了用 SelText 属性呢?看看下面的例子，应该就是你要的结果。<p>: With RichTextBox1<br>: .SelColor = QBColor(Int(Rnd * 16))<br>: .SelText = "Abcd"<br>: End With<br>感谢您给的提示, 问题已解决, 我是这样做的:<p>Private Sub Text1_KeyPress(KeyAscii As Integer)<br> Static coo As Integer<br> If KeyAscii = 13 Then<br> rtxt.SelStart = maxi<br> rtxt.SelText = Text1.Text & Chr(10) & Chr(12)<br> rtxt.SelLength = Len(Text1.Text)<br> rtxt.SelColor = QBColor(coo)<br> maxi = maxi + Len(Text1.Text) + 2<br> Text1.Text = ""<br> coo = coo + 1<br> If coo > 16 Then coo = 0<br> End If<br>End Sub<p><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1854--></ul><!--end: 1854--><br><HR><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -