Jump to content

Not em VB:net, Combo Boz


jviana
 Share

Recommended Posts

Olá pessoal tenho duas dúvidas:

1º:Fiz um programa para adicionar registos e não consigo a fazer assim uma coisa:

Se a textbox1 está vazia dá um erro, se não faz uma função. Aqui está o código: (vou destacar onde preciso de ajuda)

 'Private Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Erro ao não preencher o formulálio
        If TextBox3.Text = "" Then
            MsgBox("Por Favor Preencha o Formulário Todo", MsgBoxStyle.Exclamation)
            ' E aqui eu queria que contraira-se a expressão anterior, tipo : Se Não
        End If
        Dim item As New ListViewItem
        Dim subitem As New ListViewItem.ListViewSubItem
        item.Name = TextBox3.Name
        item.Text = TextBox3.Text
        item.SubItems.Add(subitem)
        ListView1.Items.Add(item)
        'End Sub
    End Sub

2º:Quando se adiciona um Sub Item eu tenho Lá uma ComboBox para escolher o sítio para onde elá vai. E ainda não persebi como se faz.

Por favor ajudem-me.

Learning

  • VB.Net
  • HTML
  • C/C++

Link to comment
Share on other sites

Para executar algo na parte falsa de um teste lógico, podes usar, nesse caso, um ELSE:

        If TextBox3.Text = "" Then
            MsgBox("Por Favor Preencha o Formulário Todo", MsgBoxStyle.Exclamation)
            Else
            MsgBox("Tudo em grande, toca a avançar")
        End If

Quanto à segunda parte da tua dúvida, explica melhor o que pretendes.

Combobox para escolher o sítio para onde vai? Procura sempre explicar o âmbito da funcionalidade para que consigamos entender.

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Para executar algo na parte falsa de um teste lógico, podes usar, nesse caso, um ELSE:

        If TextBox3.Text = "" Then
            MsgBox("Tudo em grande, toca a avançar")
        End If

Continua a não dar. Não sei Porque... Não Adiciona um membro , mas com a MsgBox dá!

Learning

  • VB.Net
  • HTML
  • C/C++

Link to comment
Share on other sites

Ainda não percebi bem o que pretendes fazer, mas ainda assim posso-te indicar que não estás a dar texto ao subitem (subitem.text="???"), e consequentemente vai parecer que não foi adicionado (embora lá esteja).

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Vou explicarte a 1º dúvida. Em portugues em ves de vb.net

Se a caixa de  texto 1 estiver com o seguinte texto : "", então aparece um mengagem a dizer "Erro", com o estilo Imformação.
Se não: adiciona uma coluna há lista.

Learning

  • VB.Net
  • HTML
  • C/C++

Link to comment
Share on other sites

E já colocas-te o código assim, como te disse o ribeiro55?

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox3.Text = "" Then
            MsgBox("Por Favor Preencha o Formulário Todo", MsgBoxStyle.Exclamation)
       Else
            Dim item As New ListViewItem
            Dim subitem As New ListViewItem.ListViewSubItem
            item.Name = TextBox3.Name
            item.Text = TextBox3.Text
            item.SubItems.Add(subitem)
            ListView1.Items.Add(item)
        End If
    End Sub

"Nós somos o que fazemos repetidamente, a excelência não é um feito, e sim, um hábito."
Não respondo a questões por PM que possam ser colocadas no fórum!

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.