2012-04-14 7 views
4

古いvb6アプリケーション(長い話、.NET Frameworkは利用できません)で作業しています。Visual Basic 6クラスのプロパティ型を列挙型にすることができます

私が知りたいのは、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 

クラスモジュール:

のみのコメントはEnd Subの、エンド機能の後に表示される、または終了するプロパティ

をコンパイルするとき

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 

はしかし、私はエラーを取得しますエラーは、クラスの次のPrivate文で強調表示されます。

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

ありがとうございます。

+0

エラーは、Enumの使用にVB6でいくつかの制限事項があるという事実には関係ありません。あなたは単にどこかでタイプミスをしました。 – Dabblernl

+0

あなたが持っているものはクラスまたはモジュールで宣言されたenumのいずれかで私にとって完璧に細かいものですが、問題は他の場所にあるはずです。 –

+0

Portの後に別のPropertyを追加してから、コードを実行してください。クラスのPortプロパティの後に何も持っていなければ、Portプロパティの後に他のプロパティが定義されていればエラーになります。 – Ben

答えて

5

実際のコーダが役立ちます。

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

関連する問題