タイトル : クラスについて 投稿日 : 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のソースコード的な質問ではないのですが、こちらで良いでしょうか? 駄目でしたら削除します。 |