タイトル | : クラスについて |
記事No | : 13073 |
投稿日 | : 2008/09/30(Tue) 17:42 |
投稿者 | : tecc |
こんばんは
開発環境はVB6です。
クラスモジュールについて質問です。
http://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/index.html こちらのサイトを3回読みました。
私にとってのクラスの現在の解釈は、自分でメソッドやプロパティを作る所程度です。 私はこの認識では間違っている/甘いと感じています。 ですが、理解力が乏しい為、なかなかすーっと頭にくるような理解ができません。
試しにクラスを作ってみました。
---------------------------------------------------------------------- Dim m_counter As Long Dim n_counter As Long Dim CNT As Long Dim OraDynaset As OraDynaset '** ORACLE定義用 ---------------------------------------------------------------------- Public Function MaxCounter() As Long
strSQL = "SELECT MAX(KEY) CNT FROM OTYA_DATA" Set OraDynaset = OraDatabase.CreateDynaset(strSQL, 1& + 4& + 8&) MaxCounter = OraDynaset(CNT).Value
End Function ---------------------------------------------------------------------- Public Function NormalCounter() As Long strSQL = "SELECT COUNT(KEY) CNT FROM OTYA_DATA" Set OraDynaset = OraDatabase.CreateDynaset(strSQL, 1& + 4& + 8&) NormalCounter = OraDynaset(CNT).Value End Function ----------------------------------------------------------------------
見て理解されるとは、思いますが、データ数を数えるソースコードです。 メインモジュールで、変数にNormal/Max・Counterの値を入れています。 これでは、メインモジュールで行っても大差がないと考えてしまいます。 その為、この様な使い方しか思いつかず、何故かすっきりしません。
クラスの使い方について、私の認識が間違っている点のご指摘 または、正しい?クラスの使い方など教えていただけないでしょうか? できれば中学生にも理解できる程度にお願いします。
---------------------------------------------------------------------- VB6のソースコード的な質問ではないのですが、こちらで良いでしょうか? 駄目でしたら削除します。
|