Joel Spolsky
質問する
2086 次
1 に答える
15
VB6バージョンは次のとおりです。
Private Sub DHTMLEdit1_onkeypress()
Dim e As Object
Set e = DHTMLEdit1.DOM.parentWindow.event
'Perform smart-quote replacement'
Select Case e.keyCode
Case 34: 'Double-Quote'
e.keyCode = 0
If IsAtWordEnd Then
InsertDoubleUndo ChrW$(8221), ChrW$(34)
Else
InsertDoubleUndo ChrW$(8220), ChrW$(34)
End If
Case 39: 'Single-Quote'
e.keyCode = 0
If IsAtWordEnd Then
InsertDoubleUndo ChrW$(8217), ChrW$(39)
Else
InsertDoubleUndo ChrW$(8216), ChrW$(39)
End If
End Select
End Sub
Private Function IsLetter(ByVal character As String) As Boolean
IsLetter = UCase$(character) <> LCase$(character)
End Function
Private Sub InsertDoubleUndo(VisibleText As String, HiddenText As String)
Dim selection As Object
Set selection = DHTMLEdit1.DOM.selection.createRange()
selection.Text = HiddenText
selection.moveStart "character", -Len(HiddenText)
selection.Text = VisibleText
End Sub
Private Function IsAtWordEnd() As Boolean
Dim ch As String
ch = PreviousChar
IsAtWordEnd = (ch <> " ") And (ch <> "")
End Function
Private Function PreviousChar() As String
Dim selection As Object
Set selection = m_dom.selection.createRange()
selection.moveStart "character", -1
PreviousChar = selection.Text
End Function
注: このソリューションは、元に戻すチェーンに追加のレベルを挿入します。たとえば、「これはテストです」と入力すると、「これはテストです」->「これはテストです」-> 「これはテストです->「->」(太字の追加レベル) のチェーンになります。PostMessage+subclassing
この余分なレベルを削除するには、ネイティブ キープレスのキャンセルを伴わない何らかのソリューションを実装する必要があります。
edit: Windows Vista をターゲットにしている場合は、再配布可能な DHTML Editing Controlを含めることを忘れないでください。
于 2008-09-15T08:57:53.247 に答える