K-du

Olá amigos, o problema é o seguinte : tenho 3 forms Serviços Mostrar Serviços Pacotes sendo que no Serviço eu cadastro um tipo de serviço ,exemplo: =====FORM SERVIÇO======== Código 1 Nome : Motorista Especificação do Serviço: nenhuma Valor do Serviço: R$ 500,00 Valor da Especificação: R$ 0,00 Valor total : R$ 500,00 ===================== Aqui está um cadastro de exemplo e os respectivos campos do formulário.Ai eu criei uma rotina que chamada "inserir" , cujo segue o código abaixo Private Sub inserir() Dim linha as integer If linha > 0 Then frmmostrar.flex.Rows = frmmostrar.flex.Rows + 1 End If linha = linha + 1 frmmostrar.flex.TextMatrix(linha, 1) = cmbcodigo.Text frmmostrar.flex.TextMatrix(linha, 2) = txtnome.Text frmmostrar.flex.TextMatrix(linha, 3) = txtespecial.Text frmmostrar.flex.TextMatrix(linha, 4) = txtvalor3.Caption frmmostrar.flex.Row = linha End Sub Onde: linha = variável constante da linha da flex frmmostrar = formulário intermediário entre o formulário (serviços e pacotes)* Feito isto a cada cadastro eu adiciono os dados na flex do frmmostrar. Ate ai beleza, o problema é o seguinte eu cadastrei um agora vou atéo frmmostrar e lá está, eu fecho o form e não está mais seria algum erro de additem ou While not ? ======================================================================== Segunda Peergunta... No frmpacotes eu tenho uma flex que você pode listar até 5 serviços, clicando em um botão irá abrir o *frmmostrar que possui somente uma flex e nada mais no qual recebeu os dados cadastrados no frmserviço. Então Programei um botão para jogar os itens da flex do frmmostrar no formpacotes, segue o codigo abaixo Private Sub CommandButton1_Click() If linha > 0 Then frmpacotes.flex.Rows = frmpacotes.flex.Rows + 1 End If linha = linha + 1 frmpacotes.flex.Row = linha flex.TextMatrix(linha, 1) = frmpacotes.flex.TextMatrix(linha, 1) flex.TextMatrix(linha, 2) = frmpacotes.flex.TextMatrix(linha, 2) flex.TextMatrix(linha, 3) = frmpacotes.flex.TextMatrix(linha, 3) flex.TextMatrix(linha, 4) = frmpacotes.flex.TextMatrix(linha, 4) End Sub no intuito de quando clicar neste botão ele ira jogar os itens da flex do frmmostrar no formpcotes. Só que ai ele não joga e ainda apaga o que estava na flex do frmmostar,ou seja, porque isso acontece ? MUITO GRATO DESDE DE JÁ!

o meu botão ALTERAR não copila o código e quando eu clico nele nada acontece como se NÃO estivesse programado. eis o código completo do botão abaixo ____________________________________ Private Sub btnalterar_Click If cmbcodigo.Text = Empty Or txtnome.Text = Empty Or txtlogradouro.Text = Empty Or txtbairro.Text = Empty Or _ txtcidade.Text = Empty Or cmbuf.Text = "..." Or cmbuf.Text = Empty Or masktel = "(__) ____-____" Or _ maskcel = "(__) ____-____" Or maskcp = "___.___.___-__" Or maskrg = "________-_" Or cmbdia.Text = "Dia" Or _ cmbmes.Text = "Mês" Or cmbano.Text = "Ano" Then MsgBox "Campo obrigatório em branco, digite antes de alterar", 64, "Atenção" Else cliente.Index = "indcodigo" cliente.Seek "=", cmbcodigo.Text If cliente.NoMatch Then cliente.Edit cliente("codigo") = cmbcodigo.Text cliente("nome") = txtnome.Text cliente("rg") = maskrg cliente("cpf") = maskcpf cliente("tel") = masktel cliente("cel") = maskcel cliente("logradouro") = txtlogradouro.Text cliente("cep") = maskcep cliente("cidade") = txtcidade.Text cliente("uf") = cmbuf.Text cliente("bairro") = txtbairro.Text cliente("ano") = cmbano.Text cliente("dia") = cmbdia.Text cliente("mes") = cmbmes.Text cliente("id") = maskid cliente("email") = txtemail.Text cliente.Update MsgBox "Dados Alterados com Sucesso!", 64, "Parabéns" btnalterar.Enabled = False txtnome.SetFocus btncadastrar.Enabled = False btnexcluir.Enabled = True End If End If End Sub

Muito obrigado Vitor Byte

Olá a sua dúvida é bem simples , existem dois tipos de botões no Visual Basic os dois são CommandButton com uma diferença, o padrão (o que já começa lá nas ferramentas ao iniciar o vb) e o segundo que é adicionado à barra de ferramentas quando você marca o componente Microsoft Forms 2.0 Object Library. Para marcar o componente é simples... vá ao menu Project - Componentes e depois é so procurar por lá , marca-lo e confirmar feito isso você vai a diferença Usando o botão padrão verá que não existe a propriedade ForeColor, justamente a que altera a cor da fonte. Usando o botão que é adicionado com o componente a propriedade ForeColor é listada nas propriedades. OBS - para mudar a cor do botão adicionado pelo componente , basta mudar a propriedade BackStyle Espero ter ajudado.

Estou desenvolvendo uma aplicação em vb6 e gostaria queno inicio aparecesse um formulário splash como em alguns programas conhecidos como: Photoshop , Corel Draw e o próprio Visual Basic.... estou fazendo a imagem que eu quero e quero deixar o formulário no formato dela... que é quadrada além disso gostaria de inserir um "timer" e criar 1 label e mudar umas 50 vezes só que rápido como se estivesse lendo o programa exemplo lendo banco de dados... carregando formulários... (após 2 sec) carregando padrões...(após 2 sec) iniciando aplicação ...(após 2 sec) concluido (após 2 sec) e fecharia o formulário splash e abriria já no acesso do sistema. gostaria de saber a programação para o timer e como fazer o formulário splash Grato desde de já

Obrigado Aparecido você ajudou muito

Amigo esse efeito pode ser feito de várias formas, só que o efeito da foto me parece ser um Brush então se você quiser fazer um efeito semelhante a foto , primeiramente você deve baixar brushes fluorescentes e aplicar alguns efeitos básicos como brilho externo , brilho interno entre outros. Mas você também pode criar linhas de luzes da seguinte forma selecione a ferramenta caneta, na barra de opções( lá em cima) você deve marcar a segunda opção criar uma nova camada selecionar o tamanho é brush desejado - obs de preferência de 10px para baixo no tamanho desenhar a forma desejada depois botão direito - traçar demarcador - na caixa de dialogo selecionar Píncel (Brush) e marcar simular pressão e então eis a sua linha com efeito de luz então é isso, espero ter ajudado

Olá , gostaria de saber como faço para inserir um comando SQL em meu projeto de vb6 no intuito de escrever algo em uma textbox e aparecer uma listbox com tudo que tenho em meu banco de dados referente aquele letra ou parcela da palavra exemplo Digito "a" na textbox e aparece uma list box com os seguintes resultados -Ademir -Amanda -Amarilda E então se eu digitar "am" aparecer -Amanda -Amarilda Se eu alguém puder ajudar ficarei muito grato!!