Mensajes

XXX-ZERO-XXX muchas gracias por responder, pero como hago para que lo agregue en la hoja que acabo de crear, por que lo hago a si pero no se ve nada.

Código (vbnet) [Seleccionar] Expandir


Private Sub Btn_Aceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Aceptar.Click
        Dim myTabPage As New TabPage()
        Dim Txt_Buscar As New TextBox()
        If Cmb_Actividad.Text = "Norm.Compl. 1F (Sin CM)" Then
            myTabPage.Text = "Norm.Compl 1F" & (Frm_Almacen.TabControl1.TabPages.Count + 1)
            myTabPage.BackColor = Color.Black
            Frm_Almacen.TabControl1.TabPages.Add(myTabPage)
            Txt_Buscar.Width = 96
            Txt_Buscar.Height = 21
            Txt_Buscar.Location = New Point(5, 8)
            Frm_Almacen.Controls.Add(Txt_Buscar)
        End If
End Sub

Desde ya muchas gracias!!!

Hola a todos,
      Tengo un formulario al cual contiene un Tabcontrol, las páginas de este tabcontrol las creo en tiempo de ejecución, mediante el siguiente código

Código (vbnet) [Seleccionar] Expandir


Private Sub Btn_Aceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Aceptar.Click
       Dim myTabPage As New TabPage()
       Dim Txt_Buscar As New TextBox()
       If Cmb_Actividad.Text = "Norm.Compl. 1F (Sin CM)" Then
           myTabPage.Text = "Norm.Compl 1F" & (Frm_Almacen.TabControl1.TabPages.Count + 1)
           Frm_Almacen.TabControl1.TabPages.Add(myTabPage)

       End If
       If Cmb_Actividad.Text = "Norm.Compl. 3F Direc. (Sin CM)" Then
           myTabPage.Text = "Norm.Compl 3F" & (Frm_Almacen.TabControl1.TabPages.Count + 1)
           Frm_Almacen.TabControl1.TabPages.Add(myTabPage)
       End If
   End Sub

Me gustaria me puedan ayudar con lo sigueinte: como puedo agregar en cada pagina que cree (con el codigo anterior) un Textbox y un Boton

Desde ya muchas gracias.

Hola a todos, estoy haciendo una aplicación para dispositivo mobil y quisiera saber si se puede hacer un AutoComplete en un Textbox o Combobox, he intentado con la siguiente propiedad TextBox1.AutoCompleteCustomSource pero al parecer esta propiedad no esta soportada para este tipo de aplicaciones, de que otra manera se puede hacer.

Desde ya muchas gracias!!!

seba123neo gracias por tu ayuda se ve muy bueno el link ojala me sirva.

Hola diego_lp gracias por la respuesta, pero NO es un DatagridView, es un DataGrid ya que es una aplicación móvil para windows ce y en estos proyectos solo aparecen los Datagrid.
pero muchas gracias por la ayuda!!!

Hola a todos, estoy haciendo una aplicación para dispositivo mobil y necesito hacer lo siguiente:
tengo un DataGrid el cual me muestra los datos de una tabla de la base de datos hasta aquí todo anda bien pero lo que no se como hacer es poder agregar 2 columnas mas a este DataGrid y que las celdas de estas 2 columnas nuevas queden habilitadas para escritura.
me pueden ayudar a esto por favor!!!
Desde ya muchas gracias!!!!

seba123neo gracias por tu ayuda,hice lo que me dijiste y me quedo de esta manera el código:

Código (vbnet) [Seleccionar] Expandir

   consulta = String.Format("select MED_MARCA from cmb_medidores ")
        Dim Sqlstr As New SQLiteCommand(consulta, cnnloc2)
        Dim drDatos As SQLiteDataReader = Sqlstr.ExecuteReader(CommandBehavior.CloseConnection) ' aca dentro hago la consulta que devuelve el datareader con los registros
        ComboBox1.Items.Clear()
        ComboBox1.Items.Add(New Combo_itemData("SELECCIONE...", "...")) ' item por defecto
        While drDatos.Read() ' aca recorro los registros y voy llenando el combo, si queres aca podes concatenar campos, o hacer lo que quieras.
            ComboBox1.Items.Add(New Combo_itemData(drDatos("MED_MARCA"), drDatos("id")))
        End While

        drDatos.Close()
        drDatos = Nothing

pero me da error en la siguiente linea:

ComboBox1.Items.Add(New Combo_itemData(drDatos("MED_MARCA"), drDatos("id")))
me dice algo como "IndexOutOfRangeException"

"MED_MARCA" es el campo de mi base de datos que quiero mostrar en el combobox

muchas gracias a todos, y disculpen por ser tan cabeza dura pero es que soy nuevo en esto de vb.net es mas esto es casi lo primero que hago, me podrían poner un ejemplo de como hacerlo, si no es mucha la molestia.
desde ya muchas gracias.

Novlucker
gracias nuevamente,

si, lo los valores vacíos ya quedo solucionado.

con los del datarow lo que me pasa es que me da el siguiente error:

  ("DataRow" es un tipo y no se puede usar como expresión)

Puedes poner los códigos?

Saludos

Novlucker este es mi codigo:
Novlucker así puse el código que me dijiste:

Código (vbnet) [Seleccionar] Expandir

Dim adp2 As New SQLiteDataAdapter("select MED_MARCA from cmb_medidores ", cnnloc2)
       adp2.Fill(vds2, "CMB_MEDIDORES")
       ComboBox1.DataSource = vds2.Tables("CMB_MEDIDORES")
       ComboBox1.DisplayMember = "MED_MARCA"
       DataRow(dr = vds2.Tables("CMB_MEDIDORES").NewRow())
       dr[0] = "SELECCIONE..." 'El valor que quieras
       dr([x] = "MED_MARCA") 'La que sea que estes mostrando en el combobox
       vds2.Tables("CMB_MEDIDORES").Rows.InsertAt(dr, 0)