VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2004/09/14(Tue) 13:30 |
| 投稿者 | ： ダンボ |
| ＵＲＬ | ： |
| タイトル | ： コントロールを引数で渡す |
コントロール(テキストボックス、グリッドなど)を引数で渡したいのですが、下記のようなイメージで
・渡されたものがコントロールであるかどうか…IsControlみたいな
・渡されたコントロールの種類…TypeOfに似たもの
を受け取り側で、得る方法は無いでしょうか? Webで探したけれどちょっと見つかりませんでした。
Public Sub SubClassSetUp(usrCNT As Control)
Dim o_CNT as Control, o_hWnd as Long
If not IsControl(usrCNT) Then Exit Sub
Set o_CNT = usrCNT
Select case TypeOf(o_CNT)
Case "TextBox"
Case "FLXGrid"
o_hWnd = o_CNT.hWnd
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）