Sair da Sub Rotina

[Rogério Oliveira 0]

Olá fiz o código abaixo, porém quando executo o programa não sai da sub rotina.

 'tipo de pessoa
		If rbtFisica.Checked = False And rbtjuridica.Checked = False Then
			lblObservacoes.Visible = True
			ListBox1.Visible = True
			ListBox1.Items.Add("Uma das opções tipo de pessoa deve ser preenchida" & vbTab)
		End If
		'Razão Social
		If rbtFisica.Checked = False And rbtjuridica.Checked = False And txtnome.Text = "" Then
			lblObservacoes.Visible = True
			ListBox1.Visible = True
			ListBox1.Items.Add("O campo Razão Social é de preenchimento obrigatório" & vbTab)
			Exit Sub
		End If

O que fiz de errado

[quintelab 91]

Rogério, Seja Bem Vindo ao Fórum Imasters, de uma olhada em nossas regras: http://forum.imasters.com.br/index.php?act=Help

 

Primeiramente sua aplicação é web ou windows? Pois vou mover para o sub-fórum correto.

Seu código esta certo, mas já debugou para ver se esta entrando dentro da condição do seu If??

 

Abraços...

[Rogério Oliveira 0]

Olá obrigado pela atenção. O meu código esta no Windows

Quando debugui o programa entrou na confição do IF, porém não entendeu o exit sub

[quintelab 91]

Movido Plataforma .NET » Visual Studio .NET http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET » Windows Applications

 

Fiz um teste simples aqui e funcionou, faça o mesmo teste

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
		TesteExit(1, 1)
	End Sub

	Protected Sub TesteExit(ByVal v1 As Integer, ByVal v2 As Integer)
		Dim Result As Integer
		Result = v1 + v2
		If (Result = 2) Then
			Exit Sub
		End If
		Label1.Text = "Não sai da sub!"
	End Sub

Abraços...