.
With djie_MSFlexGrid1
.Clear
.Cols = 10
.Rows = 100
For i = 0 To .Cols - 1
.TextMatrix(0, i) = "Column Ke " & i
Next
For j = 1 To .Rows - 1
For i = 0 To .Cols - 1
.TextMatrix(j, i) = "Row Ke " & j & ",Column Ke " & i
Next
Next
End With
Untuk VB.6 Codingnya Adalah :
With djie_MSFlexGrid1
.Clear
.Cols = 10
.Rows = 100
For i = 0 To .Cols - 1
.TextMatrix(0, i) = "Column Ke " & i
Next
For j = 1 To .Rows - 1
For i = 0 To .Cols - 1
.TextMatrix(j, i) = "Row Ke " & j & ",Column Ke " & i
Next
Next
End With
Update! 2012-04-16
Download Full Source Project
0 komentar:
Posting Komentar