| 分類:[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("項目A", GetType(String)) DtTbl.Columns.Add("項目B", GetType(String)) DtTbl.Columns.Add("項目C", 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 = "項目A*" Column1.Width = 100 ts.GridColumnStyles.Add(Column1) '(2) Dim Column2 As New DataGridTextBoxColumn() Column2.MappingName = "Column2" Column2.HeaderText = "項目B*" Column2.Width = 50 ts.GridColumnStyles.Add(Column2) '(3) Dim Column3 As New DataGridTextBoxColumn() Column3.MappingName = "Column3" Column3.HeaderText = "項目C*" Column3.Width = 50 ts.GridColumnStyles.Add(Column3)
Return (ts) End Function
|