如何给富文本框的“编辑”菜单加一个“全部替换”
已经有一个“替换”选项了,但只能一个一个换。
Private Sub ExchangeCmd_Click()
' 循环进行替换
Do While frmEditor!txtEdit.Find(FindTxt) <> -1
frmEditor!txtEdit.SelText = ExchangeTxt
Loop
MsgBox "替换完毕! ", vbInformation, "记事本 "
frmEditor!txtEdit.SetFocus
End Sub
[解决办法]
全部替换也是1个1个的替换的!
[解决办法]
replace
[解决办法]
replace "asdf ", "a ", "b "