| 投稿日 | ： 2005/05/27(Fri) 15:28 |
| 投稿者 | ： 白くまさん |
| Ｅメール | ： shirokuma_39@yahoo.co.jp |
| ＵＲＬ | ： |
| タイトル | ： ユーザコントロール(ocx)の作成について |
はじめまして
ユーザコントロール(ocx)の作成についてどなたかご教授願います。
ユーザコントロールに貼り付けたテキストボックスをユーザコントロールの
サイズが変更されたときにテキストボックスのサイズを変更したいです。
ユーザコントロールの Resize イベントに下記のようにコードを記述してみましたが
うまくいきませんでした。
実行すると「実行時エラー13、型が一致しません。」とエラーが出力されます。
Private Sub UserControl_Resize()
Dim UC As UserControl
Set UC = Me
Text1.Height = UC.ScaleHeight
Text1.Width = UC.ScaleWidth
End Sub