📄 8579.html
字号:
<html>
<head>
<title>Re: 可以Undo，但仅能Undo最近一次的设定</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 可以Undo，但仅能Undo最近一次的设定</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by jason on December 24, 1998 at 11:05:24:<p>
In Reply to: <a href="8570.html">可以Undo，但仅能Undo最近一次的设定</a> posted by cww on December 24, 1998 at 08:36:57:<p>
: Private Sub Command1_Click()<br>: CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth ' 显示「字型」对话方块<br>: CommonDialog1.ShowFont<br>: RichTextBox1.SelFontSize = CommonDialog1.FontSize<br>: RichTextBox1.SelFontName = CommonDialog1.FontName<br>: End Sub<p><br>如果要undo字型大小应该怎么做?<br>: Private Sub Command2_Click()<br>: Dim i As Long<br>: i = SendMessage(RichTextBox1.hwnd, EM_UNDO, 0, 0)<br>: End Sub<p>: 以上面的例子来说，只会undo SelFontName的设定而<br>: SelFontSize则不受影响，原因很清楚吧<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 8579-->
</ul><!--end: 8579-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -