Microsoft Visual Basic Express
Ver Más instrucciones
1
 Inicie Microsoft Visual Basic Express , haga clic en "Nuevo proyecto ... " en el panel izquierdo de la pantalla y luego seleccione " Aplicación de Windows Forms ". Haga clic en " Aceptar". 
 2 
 doble clic en " botón" en el panel " Toolbox" para añadir un nuevo control de botón . Haga doble clic en " DataGridView " para añadir un nuevo control de la red . Haga clic en el control " DataGridView " , seleccione " Añadir columna ... " para abrir el " Agregar columna " Ventana 
 3 
 Seleccione " DataGridViewCheckBoxColumn " al lado . " Tipo: " y haga clic en " Agregar ". Haga clic en " Cerrar". Acaba de añadir la primera columna para incluir casillas de verificación . 
 4 
 doble clic en " Button1 " para abrir el módulo " Form1.vb " . Pulse la tecla "Ctrl " y " A ", a continuación, pulse "Eliminar " para eliminar todo el código existente. 
 5 
 Copia y pega el siguiente código al módulo " Form1.vb " para agregar datos a su DataGridView controlar y determinar qué casillas están seleccionadas. 
 
 Public Class Form1 
 
 Private Sub Form1_Load ( ByVal remitente como System.Object , ByVal e como System.EventArgs ) _ 
 
 Asas MyBase.Load 
 
 DataGridView1.ColumnCount = 3 
 
 DataGridView1.RowCount = 5 
 
 DataGridView1 
 
 . Columnas ( 1 ) . Name = " Apellido "
 
 . Columnas ( 2 ) . Name =" " 
 
 . artículo ( 1 , 0). Valor = " Posición Gonzalez " 
 
 . artículo ( 1 , 1 ) . Valor = " López " 
 
 . artículo ( 1 , 2 ) . Valor = " Garza " 
 
 . artículo ( 1 , 3 ) . Valor = " Ramos " 
 
 . artículo ( 2 , 0). Valor = "Doctor " 
 
 . artículo ( 2 , 1 ) . Valor = "Ingeniero" 
 
 . artículo ( 2 , 2 ) . Valor = "Maestro " 
 
 . artículo ( 2 , 3 ) . Valor = " Administrador " 
 
 extremo con 
 
 End Sub 
 
 Private Sub Button1_Click ( remitente de ByVal como sistema . Object, ByVal e como System.EventArgs ) Handles Button1.Click 
 
 tmpStr dévil como secuencia 
 
 para cada fila como DataGridViewRow En DataGridView1.Rows 
 
 Si DataGridView1.Rows ( row.Index ) . células ( 0 ) . Valor = True Luego 
 
 tmpStr = tmpStr y row.Index & "," 
 
 End If 
 
 Siguiente 
 < p> Si tmpStr < > "" Entonces 
 
tmpStr tmpStr.Substring = ( 0 , tmpStr.Length - 1) spanish
 MsgBox ( tmpStr & " ! filas se comprueban ") 
 
 End If End Sub 
 
 
 
 End Class 
 6 
 Press "F5 " para ejecutar la aplicación , a continuación, pulse " Button1 " para mostrar un mensaje caja con las filas seleccionadas . 
 
 
          
