VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -