|
分類:[VB.NET/VB2005 以降]
おはようございます。
初めまして
WindowsEmbededdCompact7 をターゲットに
VisualStudio2008VB（.net Compact Framework3.5）を
使用して開発を行っています。
DataGridView がないとの事なので
DataGrid を使用して作成を行っています。
セル幅を変更したいのですが
セル幅を変更することが出来ません。
DataGrid コントロールのプロパティは
初期値のままで下記の様にコード入力しています。
何か、設定等が必要なのでしょうか
ご存知の方、ご教示いただけないでしょうか
初心者の様な質問で申し訳ありません。
宜しくお願いします。
下記が実際のコードです。
Private Sub AAA()
Dim DtTbl As System.Data.DataTable = New System.Data.DataTable()
DtTbl.Clear()
DtTbl.Columns.Add("項目Ａ", GetType(String))
DtTbl.Columns.Add("項目Ｂ", GetType(String))
DtTbl.Columns.Add("項目Ｃ", GetType(String))
DtTbl.Rows.Add("AAA", "BBB", "CCC")
DataGrid1.DataSource = DtTbl
'列の幅 変更
Call DataGrid1.TableStyles.Clear()
Call DataGrid1.TableStyles.Add(Get_DataGridTableStyle())
End Sub
Private Function Get_DataGridTableStyle() As DataGridTableStyle
Dim ts As New DataGridTableStyle()
ts.MappingName = "DataGridTableStyle1"
'(1)
Dim Column1 As New DataGridTextBoxColumn()
Column1.MappingName = "Column1"
Column1.HeaderText = "項目Ａ*"
Column1.Width = 100
ts.GridColumnStyles.Add(Column1)
'(2)
Dim Column2 As New DataGridTextBoxColumn()
Column2.MappingName = "Column2"
Column2.HeaderText = "項目Ｂ*"
Column2.Width = 50
ts.GridColumnStyles.Add(Column2)
'(3)
Dim Column3 As New DataGridTextBoxColumn()
Column3.MappingName = "Column3"
Column3.HeaderText = "項目Ｃ*"
Column3.Width = 50
ts.GridColumnStyles.Add(Column3)
Return (ts)
End Function
|