jawa score 2975
2017/01/31 13:07 投稿
| もう少し具体的な例などあるとアドバイスしやすいです。 |
| 例えば |
| ``` |
| Dim d As Date |
| d = Now |
| ``` |
| のNowのように、変数のようにも見えなくはないけど実は引数のない命令文というようなものもあります。 |
| またClassオブジェクトのように独自の名称で作成でき、独自のプロパティや関数を提供するものもあります。 |
| 例：clsShohinクラス |
| 例：自作の商品クラス |
| ``` |
| 'クラスモジュール本体（クラス名：clsShohin） |
| Public Name As String |
| Public Value As Double |
| Const Tax As Double = 0.08 |
| Public Function GetInfo() As String |
| Dim strInfo As String |
| strInfo = "" |
| strInfo = strInfo & "【商 品 名】" & Name & vbCr |
| strInfo = strInfo & "【税抜価格】" & CStr(Value) & "円" & vbCr |
| strInfo = strInfo & "【税込価格】" & CStr(Value + (Value * Tax)) & "円" |
| '戻り値に設定 |
| GetInfo = strInfo |
| End Function |
| ``` |
| クラスモジュールの呼び出し |
| 商品クラスの呼び出し |
| ``` |
| Sub test() |
| Dim sho As New clsShohin |
| sho.Name = "りんご" 'クラスモジュールのメンバ変数に値を設定 |
| sho.Value = 100 |
| Dim strMsg As String |
| strMsg = sho.GetInfo 'クラスモジュールの関数を呼び出して結果を取得 |
| MsgBox strMsg |
| End Sub |
| ``` |
| --- |
| 的を得ない回答かもしれませんが、質問されているものはこういったものでしょうか？ |
