1) Peguei o código Delphi abaixo e preciso passa-lo para VB.Net.
Será quie alguém pode me ajudar?
procedure TCPedidos.InicializaListaPgto;
var
Idx :Integer;
OpStr : string;
begin
// limpa seleção
for Idx := 0 to CLBpgto.Items.Count -1 do
CLBpgto.Checked[Idx] := False;
// marca selecionados, conf. foi gravado
OpStr := Trim(QryPedidosListaPgto.AsString);
while OpStr <> '' do
begin
Idx := Pos(' ', OpStr);
if Idx > 0 then
begin
CLBpgto.Checked[StrToInt(Copy(OpStr, 1, Idx -1))] := True;
Delete(OpStr, 1, Idx);
end else
begin
CLBpgto.Checked[StrToInt(OpStr)] := True;
OpStr := '';
end;
end;
end;
A ideia aqui é pegar o resultado de listbox gravado no banco que chega separado por virgula
e Popula a listbox.
2) O código abaixo é um código que faz validação de campos vazios no formulario.
Mas, não sei porque cargas d'água o código sai dando as mensagens de campo vazio 1 por 1 e só para (faz o exit sub) só no endereco.text:
Veja:
Private Function Valida() As Boolean
Dim ret As Boolean = True
' Assume sucesso na validao.
If tipo1.Checked = False Then
If tipo2.Checked = False Then
MessageBox.Show("Escolha o tipo da pessoa se fsica ou jurdica!")
tipo1.Focus()
ret = False
End If
End If
If Nome.Text = "" Then
If tipo1.Checked = True Then
MessageBox.Show("Preencha o Nome!")
Nome.Focus()
ret = False
ElseIf tipo2.Checked = True Then
MessageBox.Show("Preencha a Razo Social!")
Nome.Focus()
ret = False
End If
End If
If cpf_cnpj.Text = "" Or cpf_cnpj.Text = "___.___.___-__" Or cpf_cnpj.Text = "__.___.___/____-__" Then
If tipo1.Checked = True Then
MessageBox.Show("Preencha o CPF!")
cpf_cnpj.Focus()
ret = False
ElseIf tipo2.Checked = True Then
MessageBox.Show("Preencha o CNPJ!")
cpf_cnpj.Focus()
ret = False
End If
End If
If Len(cpf_cnpj.Text) = 14 Then
If Not ValidaCPF(cpf_cnpj.Text) Then
MessageBox.Show("CPF Invlido!")
cpf_cnpj.Focus()
ret = False
End If
ElseIf Len(cpf_cnpj.Text) = 18 Then
If Not ValidaCNPJ(cpf_cnpj.Text) Then
MessageBox.Show("CNPJ Invlido!")
cpf_cnpj.Focus()
ret = False
End If
End If
If Endereco.Text = "" Then
MessageBox.Show("Preencha campo Endereo!")
Endereco.Focus()
ret = False
End If
If Bairro.Text = "" Then
MessageBox.Show("Preencha campo Bairro!")
Bairro.Focus()
ret = False
End If
If Cidade.Text = "" Then
MessageBox.Show("Preencha campo Cidade!")
Cidade.Focus()
ret = False
End If
If Estado.Text = "" Then
MessageBox.Show("Preencha campo Estado!")
Estado.Focus()
ret = False
End If
If Telefone.Text = "" Then
MessageBox.Show("Preencha campo Telefone!")
Telefone.Focus()
ret = False
End If
Return ret
End Function
E para chamar: Assim:
Private Sub Novo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Novo.Click
If Novo.Text = "Novo" Then
For Each c As Control In Me.grpClientes.Controls
If TypeOf c Is TextBox OrElse TypeOf c Is MaskedTextBox Then
c.Text = ""
End If
Next
Codigo.Enabled = False
cpf_cnpj.Visible = False
Nome.Visible = False
LabelNome.Visible = False
data.Visible = False
Codigo.Visible = False
LabelCodigo.Visible = False
IE.Visible = False
LabelIE.Visible = False
LabelCPF.Visible = False
Atualizar.Enabled = False
Eliminar.Enabled = False
tipo1.Checked = False
tipo2.Checked = False
Encerrar.Text = "Cancela"
Novo.Text = "Incluir"
habilita()
Nome.Focus()
ElseIf Novo.Text = "Incluir" Then
If Not Valida() Then
Exit Sub
End If
dr = dt.NewRow
incluirRegistro(dr)
Novo.Text = "Novo"
Encerrar.Text = "Encerrar"
Atualizar.Enabled = True
Eliminar.Enabled = True
desabilita()
End If
End Sub
Pergunta
Carlos Rocha
Dois dificuldades;
1) Peguei o código Delphi abaixo e preciso passa-lo para VB.Net.
Será quie alguém pode me ajudar?
A ideia aqui é pegar o resultado de listbox gravado no banco que chega separado por virgula e Popula a listbox. 2) O código abaixo é um código que faz validação de campos vazios no formulario. Mas, não sei porque cargas d'água o código sai dando as mensagens de campo vazio 1 por 1 e só para (faz o exit sub) só no endereco.text: Veja: E para chamar: Assim:Onde será que esta o erro?
Link para o comentário
Compartilhar em outros sites
14 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.