ご回答ありがとうございました。
鉛筆マークの件ですが、Comboboxに直接入力をしている間は黒い三角マークになり、直接入力をせず、矢印キーでリストから選択する場合は
鉛筆マークのままになっています。
また、テストで同じようなものを作成してみたのですが、結果は同じでした。
以下に、テストで作成したコードです。
デザイナ
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTest
Inherits System.Windows.Forms.Form
'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Windows フォーム デザイナで必要です。
Private components As System.ComponentModel.IContainer
'メモ: 以下のプロシージャは Windows フォーム デザイナで必要です。
'Windows フォーム デザイナを使用して変更できます。
'コード エディタを使って変更しないでください。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.CDataGridView1 = New HpSystem.CDataGridView
Me.clmDate = New System.Windows.Forms.DataGridViewTextBoxColumn
Me.clmEmployee = New System.Windows.Forms.DataGridViewComboBoxColumn
Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn
CType(Me.CDataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'CDataGridView1
'
Me.CDataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.CDataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmDate, Me.clmEmployee, Me.Column1})
Me.CDataGridView1.Location = New System.Drawing.Point(12, 46)
Me.CDataGridView1.Name = "CDataGridView1"
Me.CDataGridView1.RowTemplate.Height = 21
Me.CDataGridView1.Size = New System.Drawing.Size(562, 339)
Me.CDataGridView1.TabIndex = 0
'
'clmDate
'
Me.clmDate.HeaderText = "日付"
Me.clmDate.Name = "clmDate"
'
'clmEmployee
'
Me.clmEmployee.HeaderText = "社員"
Me.clmEmployee.Name = "clmEmployee"
'
'Column1
'
Me.Column1.HeaderText = "Column1"
Me.Column1.Name = "Column1"
'
'frmTest
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(586, 445)
Me.Controls.Add(Me.CDataGridView1)
Me.Name = "frmTest"
Me.Text = "frmTest"
CType(Me.CDataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents CDataGridView1 As HpSystem.CDataGridView
Friend WithEvents clmDate As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents clmEmployee As System.Windows.Forms.DataGridViewComboBoxColumn
Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class
フォームのコード
Imports System.Data.SqlClient
Public Class frmTest
Private DT As DataTable
Private Sub SetCombobox()
DT = New DataTable
Using Cn As New SqlConnection(My.MySettings.Default.Con)
Using Cmd As New SqlCommand
With Cmd
.Connection = Cn
.CommandType = CommandType.StoredProcedure
.CommandText = "s_s_ptsearch"
.Parameters.AddWithValue("@firstkana", "")
.Parameters.AddWithValue("@lastkana", "")
End With
Using DA As New SqlDataAdapter
DA.SelectCommand = Cmd
DA.Fill(DT)
End Using
Dim clm As DataGridViewComboBoxColumn = Me.CDataGridView1.Columns("clmEmployee")
With clm
.DataSource = DT
.DisplayMember = "ptname"
.ValueMember = "pt_ptcode"
End With
End Using
End Using
End Sub
Private Sub SetDateFormat()
'日付の書式設定
Dim Wareki As New clsDGVWarekiTextBoxCell
Dim clm As DataGridViewColumn = Me.CDataGridView1.Columns("clmDate")
clm.CellTemplate = Wareki
'Headerの文字位置設定
Me.CDataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
For ColumnIndex As Integer = 0 To Me.CDataGridView1.ColumnCount - 1
Me.CDataGridView1.Columns(ColumnIndex).SortMode = DataGridViewColumnSortMode.NotSortable
Next
End Sub
Private Sub frmTest_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
SetCombobox()
SetDateFormat()
End Sub
End Class
