掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
型の変更 (ID:100831)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たとえば 'IBoolean クラス -- マーカインタフェイス Option Explicit Public Function getValue() As Boolean: End Function 'clsTrue クラス implements IBoolean Private Function IBoolean_getValue() As Boolean IBoolean_getValue = True End Function 'clsFalse クラス implements IBoolean Private Function IBoolean_getValue() As Boolean IBoolean_getValue = False End Function 'アプリケーションエントリポイント Dim cls As IBoolean If MsgBox("はい=true いいえ=false", vbYesNo) = vbYes Then Set cls = New clsTrue Else Set cls = New clsFalse End If MsgBox "clsの値=" & cls.getValue() の様にしてしまうとか
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.