?? cspellcheckerexe.cls
字號:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CSpellCheckerEXE2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' Fig. 17.55 ActiveX EXE example
' Class CSpellCheckerEXE2 that provides a
' Friend method
Option Explicit
Private mWordRef As Word.Application
Private mString As String
Private Sub Class_Initialize()
Set mWordRef = New Word.Application
End Sub
' Function procedure returns False if word is
' spelled incorrectly
Public Function SpellCheckWord(ByVal s As String) As Boolean
mString = s
SpellCheckWord = mWordRef.CheckSpelling(mString)
End Function
' Friend method is only visible within the current application
Friend Function GetCaption() As String
GetCaption = mWordRef.Caption
End Function
Private Sub Class_Terminate()
Call mWordRef.Quit
Set mWordRef = Nothing
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -