Jittaさんへ
ありがとうございます。 "後回しにしないで、まず解決したらどうですか !" という意味に、私は理解しましたので、やってみました。
最後に、うまく作動したコードを載せます。 欠点・問題点は、あるかもしれませんが。
＞「作る」という作業を何か勘違いされていませんか？ ソフトウェアというのは実体がないからか、とても簡単に作れると思っている方が多いように思います。しかし、本当のところは、＞とても難しいものなのです。
いえ、大丈夫です。 勘違いはしていないと、思います。 作成が難しく大変な作業なのは、承知しています。 これを、一般（？）の人が誤解しているのも承知しています。 「普通、これは簡単だろう、２、３行書けば、終わるだろう」 と、一般人（？）が感じることが、逆にソフト作成では非常に大変だということも、経験しています。 私は、本職ではないですが、会社で使用するソフト作成が未経験なわけではありません。 少しは作成しましたので、ソフト作成の大変さが普通の人には理解されにくいのも、経験済みです。 この理解されないという事実は、ソフト作成者にとっては、理不尽と言えるかもしれないですね。
＞この説明書を作る作業を「設計」と呼ぶ場合があります。説明書に書き出す書き出さないは別として、「設計」という作業は必ず必要です。
設計が重要・かつ不可欠なのも承知しています。 これができたら、ソフト作成はほぼ終わりだということも、どこかで聞いたことがあります。 でも、私はまだ、この段階には達していないかもしれないですが。
今後とも、よろしく、ご指導をお願いします。
Yksaila
以下は、作成コードです（一応うまくいっています）：
Imports System.ComponentModel
Public Class MyComboBox
Inherits ComboBox
' Public ListMember1 As String '以前は、Publicだったけど、Privateで良い？ → 不要なので消去、使用しない
' Public ListMember2 As String '以前は、Publicだったけど、Privateで良い？ → 不要なので消去、使用しない
Private Const ListWidth1 As Integer = 50
Private Const ListWidth2 As Integer = 80
Public Sub New()
Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
Me.DropDownWidth = ListWidth1 + ListWidth2 + 20
End Sub
Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)
'SQL認証接続
Dim St As String
Dim Con As New System.Data.SqlClient.SqlConnection
Dim SQL As System.Data.SqlClient.SqlCommand
Dim ServerName As String = "******" 'サーバー名(またはIPアドレス)
Dim UserID As String = "*****" 'ユーザーID
Dim Password As String = "*****" 'パスワード
Dim DatabaseName As String = "******"
St = "Server=" & ServerName & ";"
St &= "User ID=" & UserID & ";"
St &= "Password=" & Password & ";"
St &= "Initial Catalog=" & DatabaseName
Con.ConnectionString = St
SQL = Con.CreateCommand
Con.Open()
Dim adapter = New SqlClient.SqlDataAdapter()
' Dim foundrows() As Data.DataRow
'コンボボックス:T_M_Area ----コンボボックス表示準備(CB_Area_ID)
Dim dsCombo4 = New DataSet
Dim sqCombo4 As String
sqCombo4 = "SELECT T_M_Area.Area_ID, T_M_Area.AreaCode, T_M_Area.AreaName FROM T_M_Area ORDER BY T_M_Area.Indication"
adapter.SelectCommand = New SqlClient.SqlCommand(sqCombo4, Con)
adapter.SelectCommand.CommandType = CommandType.Text
adapter.Fill(dsCombo4)
Dim dtCombo4 As New DataTable
dtCombo4 = dsCombo4.Tables(0)
Dim MyComboBox1 As MyComboBox = New MyComboBox
'自作コンボボックス:MyComboBox1 ----コンボボックス表示準備(MyComboBox1)
MyComboBox1.DataSource = dtCombo4
MyComboBox1.DisplayMember = "AreaName"
MyComboBox1.ValueMember = "Area_ID"
MyComboBox1.DropDownStyle = ComboBoxStyle.DropDown
'
'▼データの内容を取得
Dim Row As DataRowView
Dim ItemString1 As String 'ここをIntegerにすると、下の ”ItemString1 = MyComboBox1.ValueMember”がエラーになる。
Dim ItemString2 As String
'Try
Row = DirectCast(Me.Items(e.Index), DataRowView)
ItemString1 = MyComboBox1.ValueMember
ItemString2 = MyComboBox1.DisplayMember
ItemString1 = Row(ItemString1).ToString '*****
'ItemString1 = DirectCast(Row(ItemString1), Integer) 'これは、エラー表示になる。
ItemString2 = DirectCast(Row(ItemString2), String)
'▼項目と線を描画
Dim Rect As RectangleF
Dim myBrush As Brush
Dim LineLeft As Integer = e.Bounds.X + ListWidth1
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
myBrush = New SolidBrush(Color.White)
Else
myBrush = New SolidBrush(Me.ForeColor)
End If
'背景
e.DrawBackground()
'コード
Rect = New RectangleF(e.Bounds.X, e.Bounds.Y, LineLeft, e.Bounds.Height)
e.Graphics.DrawString(ItemString1, e.Font, myBrush, Rect)
'e.DrawFocusRectangle() '追加？ →不要
'e.Graphics.Flush() '追加？ →不要
'区切り線
e.Graphics.DrawLine(Pens.Black, LineLeft, e.Bounds.Y, LineLeft, e.Bounds.Y + e.Bounds.Height)
'名前
Rect = New RectangleF(LineLeft + 1, e.Bounds.Y, e.Bounds.Width - LineLeft - 1, e.Bounds.Height)
e.Graphics.DrawString(ItemString2, e.Font, myBrush, Rect)
e.DrawFocusRectangle()
e.Graphics.Flush()
'Catch ex As Exception
'End Try
Con.Close()
'▼後処理,追加-2012/04/16）
dtCombo4.Dispose()
adapter.Dispose()
SQL.Dispose()
Con.Dispose()
End Sub
End Class
