saludos!

tengo un datagriedview y dentro de el en una de sus celdas tengo un combobox del tipo DataGridViewComboBoxColum

que mienbro dentro del DataGridViewComboBoxColumn existe que me ayude a fijar una opcion del combobox al correr el sistema.
ejempo:

si tengo

Dim columna_combobox As New DataGridViewComboBoxColum
 
        columna_combobox.Name = "nombre" 
        columna_combobox.Items.Add("No")
        columna_combobox.Items.Add("Si")
        DataGridView_signos.Columns.Add(columna_combobox_signo) ' Añado la columna combobox al datagrid
 

como podria hacer para que cuando este corriendo el sistema en la pantalla salga por defecto la opcion(NO) seleccionada??

el evento selectindex() no me sirviria claro esta.

gracias..............

tengo la siguiente tabla:

signos:
-id
-descripcion
 

y lleno un datagridview con la siguiente forma:

        Dim ds_signos As New DataSet
        orden = "Select descripcion,valor from signos"
        ds_signos.Tables.Add("signos")
        Dim adaptador_signos As New OleDb.OleDbDataAdapter(orden, bd)
        adaptador_signos.Fill(ds_signos.Tables("signos"))
        ds_signos.Tables(0).Columns(0).ColumnName = "Descripcion"
        ds_signos.Tables(0).Columns(1).ColumnName = "Valor"
        DataGridView_signos.DataSource = ds_signos.Tables("signos")
 
 

ahora como podría hacer para que la 2da columna(valor) tenga un combobox de respuesta SI/NO ????

de modo que seleccione los signos indicando con respuesta(SI y NO)

saludos!

en VB estoy haciendo un sistema, donde require de un usuario y una clave para ingresar al sistema, pero cuando ingreso el usuario y su clave, y presiono el boton Aceptar, al hacer la consulta, me esta borrando todos los registro de la tabla de la base de dtos, y no entiendo por que. Aqui el codigo:

    Private Sub Button_aceptar_Click(sender As Object, e As EventArgs) Handles Button_aceptar.Click
 
        orden = "Select * from experto where usuario = '" & Trim(TextBox_usuario_experto.Text) & "'"
        t_experto.CommandText = orden
        registro = t_experto.ExecuteReader
 
        If registro.HasRows = True Then
            registro.Read()
 
            If registro(0) = Trim(TextBox_usuario_clave.Text) Then
                'Hacer
            Else
                MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
            End If
        Else
            MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
        End If
 
    End Sub
 

que estoy haciendo mal???

Amigos como puedo cambiar el color del fondo por 5 segundos?

cada vez que presiono un botton llamado Error, este cambiara el color de fondo del form por 5 segundos. y que despues vuelva al color original

Me.BackColor = System.Drawing.Color.OrangeRed
 

si quiero mostrar un dato al dar clic en un botton, como lo haria?

el funcionamiento es el siguiente, cada vez que le de clic a el mismo boton el cambie la informacion que se muestra alli dentro del boton, crei que si pasaba por parametro el dato a la funcion me funcionaria, pero no funciono, hice esto ps:

Private Sub button_resp1_Click(sender As Object, e As EventArgs, byref res as string) Handles button_resp1.Click
button_resp1.tex = res
end sub
 

pero me arroja un error:

Error	1	El método 'Private Sub button_resp1_Click(sender As Object, e As System.EventArgs, ByRef res As String)' no puede controlar el evento 'Public Event Click(sender As Object, e As System.EventArgs)' porque no tienen una firma compatible.
 
 

que me recomiendadn?

gracias!

Saludos!

tengo el siguiente codigo:

        Dim oracion As String = "Hola Mundo Como estas?"  'Trim(TextBox_oracion.Text())
        Dim i As Integer = 1
        Dim posicion As Integer
        Dim palabra As String
 
        Do
            posicion = InStr(i, oracion, " ")
            If posicion > 0 Then
                palabra = Mid(oracion, i, posicion - i)
                ListBox_separar.Items.Add(cambiar_palabra(palabra))
                posicion = posicion + 1
                i = posicion
            End If
        Loop Until posicion = 0
 

y quiero que me separe las palabras y me las imprima una por una, pero me imprime esto:

Hola
Mundo 
Como
 

no me esta imprimiendo la palabra estas, donde tendre mi error?....

gracias!

Hola amigos!, estoy haciendo un codigo que me piden: dada una oracion, tomar cada palabra de dicha oracion una ves contar las vocales de cada palabra y mostrarla. He programado lo siguiente:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles procesar.Click
 
        Dim palabra(), oracion() As String
        Dim letra As String
        Dim indice As String = 1
        Dim contar_vocal As Integer = 0
        Dim i As Integer
 
        oracion = Split(TextBox1.Text)
 
        For i = 0 To Len(TextBox1.Text)
            If i > 0 Then
                For long_pal = 1 To Len(oracion(i)) + 1
                    letra = Mid(oracion(i), 1, long_pal)
 
                    Select Case letra
                        Case "a"
                            contar_vocal = contar_vocal + 1
                        Case "A"
                            contar_vocal = contar_vocal + 1
                        Case "e"
                            contar_vocal = contar_vocal + 1
                        Case "E"
                            contar_vocal = contar_vocal + 1
                        Case "i"
                            contar_vocal = contar_vocal + 1
                        Case "I"
                            contar_vocal = contar_vocal + 1
                        Case "o"
                            contar_vocal = contar_vocal + 1
                        Case "O"
                            contar_vocal = contar_vocal + 1
                        Case "u"
                            contar_vocal = contar_vocal + 1
                        Case "U"
                            contar_vocal = contar_vocal + 1
                    End Select
                    letra = ""
                Next
                '                mostrar.Items.Add(letra)
                ' mostrar.Items.Add(oracion(i))
                ' mostrar.Items.Add(" Numeros de Vocales: ")
                ' mostrar.Items.Add(contar_vocal)
                contar_vocal = 0
            Else
                '  mostrar.Items.Add(oracion(i))
            End If
            i = i + 1
        Next
 
    End Sub
 

me arroja un error en:

 For long_pal = 1 To Len(oracion(i)) + 1

el siguiente Información adicional: Índice fuera de los límites de la matriz.

me pueden ayudar?...

como podria hacer  para copiar el historial de navegacion de los exploradores en W7, es decir que todo sitio web que visite quede guardarlo de modo que cuando se limpie el historial de los navegadores, quede guardado un un archivo auxiliar... es posible??

Saludos!  amigos tengo un problema con mi lapto, cuando la enciendo, los botones de de la pila y wifi encienden pero el boton de disco duro no enciende, no da video, ni siquiera muestra la imagen de arranque, y tampoco emite ningun tipo de pitidos......

cuando la enciendo el procesador y tarjeta de video integrada se calientan lo normal, pero el fan cooler no enciende, decidi probar el fan cooler por aparte y esta bien, encendio, lo conecte a un USB de un CPU funcionando..... por lo que descarto q esta malo el fan cooler,...... y repito presiono el boton de encendido, los led de bateria y wifi encienden, el procesador esta funcionando por que esta  calentando, al igual que la tarjeta integrada de video.... cual podra ser la falla???......

ayudenme por favor, ya que aqui una lapto estan muy caras y quiero arreglar la mia......

Saludos amigos y Feliz Año!!! 

tengo un lenovo A376 y el SO se puso extraño,  cambia de tema, se pega mucho y se han desaparecido opciones administrativas(ej: cuando preciono el boton de "Power" me sale solo la opcion de "Apagar" cuando al principio me salia:"Apagar, Reiniciar,Modo Avion, Vibrar, sonar.") entonces opte por formatear el telefono completo, instalarle de nuevo el S.O. pero cuando trate de entrar en Mode Recovery para instalar de nuevo un SO me sale el signo de android con un signo de interrogacion rojo. y no puedo hacer nada, he buscado aplicaciones para Flashear el celular pero ninguna funciona, he usado:
-Descargadas desde Google play: ROM Mananger, Universal androot
-descargadas desde la PC: RecoverX,

y no me han funcionado ninguna, podrian ayudarme! a flashear mi celular??,,,,, gracias!