VB.Net elegir opción seleccionada en un combobox mostrar y ocultar controles

[Calonso]

Que tal ..... nuevamente vuelvo a solicitarles su ayuda gente. tengo este problema estoy programando en visual studio 2013

estoy trabajando con una base de datos en access 2010 y se trata de tal manera que en la primera pantalla me capture el numero de empleado (consulta desde access con todos los registros que existen en la tabla) si existe el numero de empleado deberá mostrarme "en ese mismo form" un numero de registro ( que ya esta capturado en la base de access *consulta* ) un numero de parte y la fecha de registro todo esto como les decía ya esta capturado en la DB de access.

No tengo problemas con mostrar los datos capturados si no que estas son mis preguntas

1. Como puedo hacer para ocultar combobox, label y una imagen del form 1 (esto es como si fuera un login ) para poder mostrar textbox label y de mas en ese mismo formulario.

2. Cuando corro el visual en el combobox me aparece el num de empleado yo lo que quiero que me aparezca en blanco, por lo cual ya use varias sentencias como estas

Me.Combobox1.Text = ""
Me.Combobox1.SelectedItem = -1
combobox1.selectedindex = - 1

3. Los datos aun que ya estan en una tabla de access resgitrados, se tienen que volver a guardar cada que ves que registren un num de parte

les mando el codigo y algunas pantallas. Gracias y saludos

Código: [Seleccionar]

Dim conexion As New OleDb.OleDbConnection
        Dim comandos As New OleDb.OleDbCommand
        Dim adapter As New OleDb.OleDbDataAdapter
        Try
        Catch
            conexion.ConnectionString = ("provider=microsoft.ace.oledb.12.0;Data source = " & " C:\CLIENTE INVENTARIOS\ENTRADAS\ENTRADAS-SALIDAS.accdb)")
            conexion.Open()
        End Try
        ComboBox1.SelectedItem = ""
        Dim consulta As String

        consulta = "select * From NUMERO USUARIO label = '" & ComboBox1.Text & "'"
        comandos = New OleDb.OleDbCommand(consulta, conexion)
        adapter.SelectCommand = comandos

        If ComboBox1.Text = "1712" Then
            MsgBox("Login Correcto", MsgBoxStyle.Information)
            ComboBox1 = False
            Label1.Text = Visible = False
            'Form1.Show()
            'Me.Hide()


        Else
            ComboBox1.Text = ""
            MsgBox("Login Incorrecto", MsgBoxStyle.Critical)
            ComboBox1.Text = ""

Olvidaba decirles que en las imagenes que envie son los dos forms que utilice sin embargo tienen que utilizarse en un solo form, alguna recomendacion

Les agradesco mucho por la ayuda que me puedan brindar de verdad asi como a ogramar y demas desarrolladores que andan en esta pagina.

Gracias

[César Krall]

Hola!

Como orientación indicarte en respuesta

Punto 1. Usa los métodos show y hide para mostrar y ocultar elementos

Punto 2. Puedes establecer que una opción del combobox sea texto en blanco, y cuando lo necesites hacer que la opción elegida sea el texto en blanco. En vez de texto en blanco podría ser algo como Seleccionar... ó Elegir...

El punto 3 no entiendo bien lo que sería necesario

En este código se puede ver a modo de ejemplo (partiendo de un formulario con un combobox y 4 buttons):

- Al pulsar el botón 1 la opción elegida en el combobox es ninguna (texto en blanco)

- Al pulsar el botón 2 la opción elegida es la 2 (oracle)

- Al pulsar el botón 3 se oculta el combobox (deja de verse)

- Al pulsar el botón 4 se muestra el combobox (pasa a verse)

Código: [Seleccionar]

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add(".net")
        ComboBox1.Items.Add("java")
        ComboBox1.Items.Add("oracle")
        ComboBox1.Items.Add("oraclo")
        ComboBox1.Items.Add("oraclu")
        ComboBox1.Items.Add("")
        MsgBox("Ejecutando")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ComboBox1.SelectedIndex = 5
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ComboBox1.SelectedIndex = 2
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ComboBox1.Hide()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ComboBox1.Show()
    End Sub
End Class

Saludos!