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 .