Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
call Rellenar_DataGridV()
End Sub
Private Sub Rellenar_DataGridView() ' lo rellenamos con datos tomados del foro...
DataGridView1.ColumnCount = 3
DataGridView1.ColumnHeadersVisible = True
Dim miEstiloCabecera As New DataGridViewCellStyle()
miEstiloCabecera.BackColor = Color.Orange
miEstiloCabecera.ForeColor = Color.BlueViolet
miEstiloCabecera.Alignment = DataGridViewContentAlignment.MiddleCenter
miEstiloCabecera.Font = New Font("Arial", 20, FontStyle.Underline + Font.Bold, GraphicsUnit.Pixel)
DataGridView1.ColumnHeadersDefaultCellStyle = miEstiloCabecera
' nota si hemos creado diferentes perfiles de estilo de cabecera se usan desde la siguiente línea
DataGridView1.ColumnHeadersDefaultCellStyle.ApplyStyle(miEstiloCabecera)
DataGridView1.EnableHeadersVisualStyles = True
DataGridView1.Columns(0).Name = "Nombre Usuario"
DataGridView1.Columns(1).Name = "Ubicación"
DataGridView1.Columns(2).Name = "nº Mensajes"
DataGridView1.Columns(3).Name = "Rango"
Dim fila1() As String = {"Iron Man", "Barcelona", "1005", "Administrador"}
Dim fila2() As String = {"Avalon", "Avalon", "447", "Usuario muy activo"}
Dim fila3() As String = {"ibito", "Méjico", "519", "Miembro HIPER activo"}
Dim fila4() As String = {"Robert.29", "Valladolid", "421", "Usuario muy activo"}
Dim fila5() As String = {"Marlon", "?????", "152", "Miembro muy activo"}
Dim fila6() As String = {"r3dsk1", "La tierra de los conocimientos...", "291", "Miembro muy activo"}
Dim fila7() As String = {"Jimbenit", "Colombia", "70", "Miembro activo"}
Dim filas() As Object = {fila1, fila2, fila3, fila4, fila5, fila6, fila7}
Dim Fila As String()
For Each Fila In filas
DataGridView1.Rows.Add(Fila)
Next Fila
End Sub
Private Sub DataGridView1_RowsAdded(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
MsgBox("La fila nº: " & DataGridView1.RowCount & " ha sido cargada...")
End Sub
end class