• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• tsukasa572009/01/25 00:17:56

  満足35pt

  こんにちは。

  試してみました。VB2005 さんのおっしゃるとおり、VisualBasic 2005 では

  http://msdn.microsoft.com/ja-jp/library/cc440873.aspx で示されている DLL はツールボックスに表示できませんでした。しかし VisualBasic 2005 ように変換すれば上記リンクの通りに使用できます。

  次の手順で作業して下さい。

  1. ImageComboBoxControl の sln ファイルを VisualBasic 2005 で開きます。すると変換ウィザードが表示されますのでウィザードを実行して下さい。
  2. 変換ウィザードが終了するとビルド出来るようになるのでビルドして下さい。ビルドが終わると ImageComboBoxControl.dll が出来ている（日時が変わっている）はずなので確認して下さい。
  3. VisualBasic 2005 で ImageComboBoxControl のプロジェクトを閉じて新しいプロジェクトを開きます。
  4. [ツールボックス]-[全般タブ]を選んで右クリックを押して[アイテムの選択]を選びます。ダイアログが表示されますから[参照]ボタンを押して先ほどビルドした ImageComboBoxControl.dll を選択します。すると [ツールボックス]-[全般タブ] に[ComboImage]ボタンが追加されます。

  あとは http://msdn.microsoft.com/ja-jp/library/cc440873.aspx のチュートリアルの通りです。試してみて下さい。

  スター

kokoro772009/01/25 00:34:55

満足35pt

そのURLを参考にしていますが




1.VB2005を起動しフォームにコンボボックスを貼り付けます。


2.貼り付けたコンボボックスを選択し、プロパティのDrawModeをOwnerDrawFixedに変更します。


3.イメージリストを追加します。


4.イメージリストのプロパティのImagesに画像を追加します。


5.Formのロードイベントにコンボボックスの内容を設定します。





    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("1行目")
        ComboBox1.Items.Add("2行目")
        ComboBox1.Items.Add("3行目")
    End Sub<BR>




5.コンボボックスのイベントからDrawItemを選択し、以下のコードを記述します。





    Private Sub ComboBox1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
        e.DrawBackground()
        e.DrawFocusRectangle()
        Dim bounds As New Rectangle
        bounds = e.Bounds
        Dim s As String = ComboBox1.Items(e.Index)
        Try
            If (ImageList1.Images.Count <> 0) Then
                ImageList1.Draw(e.Graphics, bounds.Left, bounds.Top, e.Index)
                e.Graphics.DrawString(s, e.Font, New SolidBrush(e.ForeColor), bounds.Left + ImageList1.Images(e.Index).Width, bounds.Top)
            Else
                e.Graphics.DrawString(s, e.Font, New SolidBrush(e.ForeColor), bounds.Left, bounds.Top)
            End If
        Catch ex As Exception
            e.Graphics.DrawString(s, e.Font, New SolidBrush(e.ForeColor), bounds.Left, bounds.Top)
        End Try
    End Sub




これで実行すれば画像表示されます。


スター
• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2009-01-24 21:44:55

終了日時

2009-01-31 21:45:02

回答条件

1人2回まで

この質問のカテゴリ

• コンピュータ
• インターネット

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者22時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者222時間前
• 内定してほしいポケモンはいますか？匿名質問者22時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ