ハイパーテキスト
サイバーキャンパス「鷹山」
の単元です。
小単元
概要
ナビケーションクラスから継承。パラグラフオブジェクト1)のコレクションを持ちます。
Inherits NavigateUrl
Private szHeaderText As String = "説明"
Private szHyperText As String
Private objKeywords As New Keywords
Private bIsAuthenticated As Boolean = False
Private bIsPublicated As Boolean = True 'デフォルトで公開
Public hStatus As New HyperStatus
Public DoRejectSpace As Boolean '文字列を処理する場合に余計な空白を除きます
Public MyParagraph As New Collection ' 追加の説明
Public Content As New Collection ' 追加の説明
Dim kx(128) As Integer
Dim kw(128) As String
'文法解析までやるクラスだよん!
'キーワードとかな
Public Sub New()
DoRejectSpace = True
End Sub
2)