投稿日 | : 2003/12/23(Tue) 00:51 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re: OCXファイルについて |
> エラー内容:実行時エラー'429'「ActiveXコンポーネントはオブジェクトを作成できません。」
> ActiveXコントロール名は「Cp32Ctrl」です。
CreateObjectで指定する文字列とコントロール名とは、必ずしも一致するとは限りません。
そもそも、そのコントロールはCreateObjectからでも利用できるように設計されているのでしょうか?
> もしCreateObject以外で、コントロールオブジェクトを動的に
> 生成できる手法がありましたら、そちらもご指南しただけると非常に助かります。
VB6であれば、「Licensesコレクション」+「ControlsコレクションのAddメソッド」を使ってみるとか。
Option Explicit
Private WithEvents RichTextBox1 As VB.VBControlExtender
Private Sub Form_Load()
VB.Global.Licenses.Add "RICHTEXT.RichtextCtrl"
Set RichTextBox1 = Me.Controls.Add("RICHTEXT.RichtextCtrl", "RichTextBox1")
RichTextBox1.Move 0, 0, 2880, 2880
RichTextBox1.Visible = True
End Sub
Private Sub RichTextBox1_ObjectEvent(Info As EventInfo)
Dim Evt As VBRUN.EventParameter
Debug.Print Info.Name,
For Each Evt In Info.EventParameters
Debug.Print "["; Evt.Name; "]="; Evt.Value,
Next
Debug.Print
End Sub