4

私は古いvb6アプリケーションに取り組んでいます（長い話、.NET Frameworkは利用できません）。

知りたいのですが、vb6クラスプロパティアイテムを列挙型として宣言できますか？

例えば

Public Enum WinInetPort
    INTERNET_INVALID_PORT_NUMBER = 0
    INTERNET_DEFAULT_FTP_PORT = 21
    INTERNET_DEFAULT_GOPHER_PORT = 70
    INTERNET_DEFAULT_HTTP_PORT = 80
    INTERNET_DEFAULT_HTTPS_PORT = 443
    INTERNET_DEFAULT_SOCKS_PORT = 1080
End Enum

クラスモジュール：

Private m_Port As WinInetPort
Public Property Get Port() As WinInetPort
    Port = m_Port
End Property
Public Property Let Port(val As WinInetPort)
    m_Port = val
End Property

しかし、コンパイル時にエラーが発生します

End Sub、End Function、またはEndPropertyの後にコメントのみが表示される場合があります

エラーは、クラス内の次のPrivateステートメントで強調表示されます。

ネット上のどこかで読んだことがありますが、vb6クラスはパブリック定数を公開できません-回避策はありますか？

ありがとう

4

1 に答える 1

5

すべてのプライベートステートメントがプロパティ宣言の上に配置されていることを確認してください。

于 2012-04-14T13:14:06.557 に答える