VB .Net/Visual Basic 2003/Visual Basic 2005/Visual Basic 2008 Data Grid Freeze, Data Grid Change Column Header Font And Data Grid Column Header Align

Wednesday, November 2, 2011

Hai Teman-Teman x ini saya bahas Data Grid View ide ini berasal dari permasalahan pada saat kerja ada User minta agar tampilan data yang di Gridview bisa di Freeze seperti di Excel. Langsung aja teman2 kita buat.
1. Buat Project baru
2. Buat Form Baru
3. Tambahkan 1 Datagridview
4. Tambahkan 15 Column pada Datagridview
5. Copy Paste Code di bawah ini ke Form Even Load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With DataGridView1

For i As Integer = 0 To 50
.Rows.Add()
.Item(0, i).Value = "AB-" & i.ToString
.Item(1, i).Value = "Column Ke 2 Row Ke " & i.To
String
.Item(2, i).Value = "Column Ke 3 Row Ke " & i.ToString
.Item(3, i).Value = "Column Ke 4 Row Ke " & i.ToString
.Item(4, i).Value = "Column Ke 5 Row Ke " & i.ToString
.Item(5, i).Value = "Column Ke 6 Row Ke " & i.ToString
.Item(6, i).Value = "Column Ke 7 Row Ke " & i.ToString
.Item(7, i).Value = "Column Ke 8 Row Ke " & i.ToString
.Item(8, i).Value = "Column Ke 9 Row Ke " & i.ToString
.Item(9, i).Value = "Column Ke 10 Row Ke " & i.ToString
.Item(10, i).Value = "Column Ke 11 Row Ke " & i.ToString
.Item(11, i).Value = "Column Ke 12 Row Ke " & i.ToString

.Item(12, i).Value = "Column Ke 13 Row Ke " & i.ToString
.Item(13, i).Value = "Column Ke 14 Row Ke " & i.ToString
.Item(14, i).Value = "Column Ke 15 Row Ke " & i.ToString

Next

.AutoResizeColumns()
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
Dim f As New System.Drawing.Font("Tahoma", 8, FontStyle.Bold)
.ColumnHeadersDefaultCellStyle.Font = f
.Columns(0).Frozen = True
End With
End Sub
6. Run Project

Maka akan tempil seperti berikut
selamat Mencoba semoga sukses...


0 comments: