VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/12/07(Wed) 19:41 |
| 投稿者 | ： とくのえもん |
| ＵＲＬ | ： |
| タイトル | ： MsflexGridをクラス化？ |
いつもお世話になっております。VB6.0SP6 WindowsXp sp2での質問です。
こちらのMsFlexGridのソースのサンプルを元に改造したフォームがあります。
(サンプル大変参考になりました。ありがとうございます。)
改造したフォームのうちMsFlexGridに関連する部分を再利用可能に
して他の画面でも使いたいと思いクラス化をしようとしましたが、
うまくいきません。
--SpreadSheet.cls-------------
Option Explicit
Dim obj_msflexgrid As msflexgrid
Public Property Let grid(pro_Grid As msflexgrid)
End Property
Public Property Get grid() As msflexgrid
Set grid = obj_msflexgrid.Clone
End Property
----------------------------------
--Form1-------------
Option Explicit
Private Sub Form_Load()
Dim flexgrid As Object
Set flexgrid = Controls.Add("Spreadsheet.grid", "msgrid")
End Sub
----------------------------------
とやってみましたがだめでした。(クラスの文字列が不正ですとでます)
別に再利用できればクラス化でなくてもいいのですが、モジュールにFunction
として書くと行き来する変数が非常に多くなってしまい(腕のせいもありますが)
Form内に残るコードもかなりあり、かえって再利用性、可読性がさがり、コピペ
以下になってしまいました。
なにかいい方法はないでしょうか。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）