alexandremanowar

Cara a primeira parte funcionou mas a segunda não. A primeira parte está igual coloquei acima apenas alterei o Handle e funcionou porque é um calculo simples do textbox1 com textbox2 e o resultado fica na label1. Porém eu tenho mais três calculos parecidos ou seja tenho a textbox3 que soma com a textbox4 e resultado fica la label2 e assim por diante o total são 4 label com resultados desse mesmo tipo com soma de dois textbox. Agora tenho um label8 que tem que exibir o valor da soma das labels e não estou conseguindo fazer. Ou seja pegar o resulatdo das labels e somar. Fiz do seu modo mas não funcionou, veja como fiz: Private Sub lbltotalproduto_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbltotalproduto.LostFocus Dim calc1 As Decimal Dim calc2 As Decimal Dim final As Decimal .....''outras variaveis calc1 = Val(lbltotal1.Text) calc2 = Val(lbltotal2.Text) ...... final = calc1 + calc2+calc3+calc4 lbltotalproduto.Text = final Não está exibindo valor nenhum. Deixei o métodos como LostFocus mas não funcionou, porém se eu dixar o método como click e der um clique na label funciona será que tem algum modo que ele faça isso sói sem precisar clicar? você pode me ajudar?

Consegui resolver dessa forma: Private Sub lbltotal1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtunitario1.TextChanged If txtunitario1.Text.Length > 0 Then alterei o Handles Falou

Olá pessoal Estou estudando vb.net com winform e estou tentando fazer o seguinte, tenho um texbox1 e um textbox2 e label1. Eu quero digitar um valor no textbox1 e no textbox2 e somar os dois valores para que o resulatdo saia no label1 isso tudo no mesmo form e sem precisar usar botão algum ou seja apenas digito e o valor aparece no label1 automaticamente. Fiz alguns modos mas não está dando certo. Olha como fiz: Dim teste As New Nota Dim calc1, calc2, final calc1 = Val(teste.txtquantidade1.Text) calc2 = Val(teste.txtunitario1.Text) final = calc1 * calc2 lbltotal1.Text = final Tentei também assim: Dim calc1, calc2, final calc1 = Val(txtquantidade1.Text) calc2 = Val(txtunitario1.Text) final = calc1 * calc2 lbltotal1.Text = final Já tentei esses dois tipos aí mas não funcionou. Primeiro coloquei o código direto no método do form aí não deu certo. Depois coloquei no método da label mas também não funcionou. Quero fazer isso de modo dinâmico ou seja digito no textbox1 e no textbox2 e resultado aparece na label1. Isso com winform Alguém sabe como resolver isso?

Cara eu dei uma lida no site, mas fala pouco referente a modificações em termos de comandos ou instruções será que existe algum endereço que fale as mudanças que existirá do vs.net 2003 para vs.net 2005?

Valeu pela força galera consegui resolver o problema. O código esta certo o problema era o driver da impressora que estava com problema reinstalei e funcionou legal Até a próxima

Entendi cara valeu pela força. Mais uma matéria que aprendi. Muito obrigado e até a próxima

Cara funcionou o problema estava no modo que abro o foumulário, eu abro assim: mdiFilho.Close() mdiFilho = New form2 mdiFilho.MdiParent = principal.ActiveForm mdiFilho.Show() e você abre assim f2.MdiParent = Me f2.Show() Não acredito que tentei tantas coisas e era só isso Qual a diferença dos modos?

Cara realmente está igual o que eu fiz nada diferente a não um detalhe que eu acho que é aí que está o problema. É o seguinte os forms que você fez são forms comum os dois e você abre elas dessa forma f2.Show() O meu form 1 é mdi e o meu form 2 é comum eu abro o form2 dentro do mdi dessa forma: mdiFilho.Close() mdiFilho = New form2 mdiFilho.MdiParent = principal.ActiveForm mdiFilho.Show() Eu fiz um modelo sem mdi e fucionou mas com o mdi não funciona. Vi outra diferença no form comum o acesso fica assim: Dim f2 As New Form2() No mdi fica assim Dim f2 As New Form2 Ou seja no mdi o final fica sem parenteses Será que para trabahar com mdi tenho que chamar o formulário de modo diferente? Pela lógica e pelo que vi no seu o meu código está certo, mas a variável continua vazia. você sabe o que pode ser?

Cara mei complicado o que você falou mas tentei fazer ontém à noite e hoje desde de 7 horas, mas não cheguei em resultado algum. Olha como tentei fazer, você escreveu que eu tenho que criar o f visível para todos, ou seja criá-lo no corpo da classe então fiz o seguinte primeiro criei em módulo dessa forma: Public f As New Nota E na mnuItem1 deixei assim: Dim teste teste = f.txtnatureza.Text Msgbox(teste,....) Ele não deu erro mas também continuou vazio Então criei no inicio da classe, assim: Public Class principal Inherits System.Windows.Forms.Form Dim f As New Nota .... criei também dessa forma: Public Class principal Inherits System.Windows.Forms.Form Public f As New Nota .... A opção do mnuItem 1 ficou igual, mas continuou tudo do mesmo jeito ou seja vazio, tentei outras formas mas todas sem resultado. Eu sei que você já explicou mas você poderia me dar exemplos. Onde exatamente eu jogo esse código Dim f As New Nota. Desde já valeu pela ajuda

E ae Graymalkin beleza Cara resolvi o problema do ToolBar, ficou legal, mas estou com problema em copiar o valor do TextBox do form2 para o form1, Olha como estou fazendo: Dim f As New Nota Dim teste teste = f.txtnatureza.Text MsgBox(teste, MsgBoxStyle.Information, "ok") Quero que o valor do form2 apareça no Msgbox do form1, mas a variável teste ´fica vazia ou seja ele não puxa o valor do TextBox O meu form1 é mdi, aí eu faço o seguinte clico no botão novo do meu ToolBox, ele chama o form2, então eu digito os valores no textBox, então clico no botão abrir, fiz essa função dentro do botão abrir do toolbar para testar, e ele exibi o msgbox vazio. ele deveria exibir o texto que digitei no textbox. Na Opção Modifiers da propriedade do TextBox coloquei como Public O que estou fazendo errado?

Olá pessoal Minha primeira dúvida é como copiar o valor de um TExtBox de um formulário para uma variável em outro formulário. No vb6 eu fazia assim: Dim variavel variavel = Formulario.TextBox.Text No vb.net eu não estou conseguindo Estou com problemas no toolbar é o seguinte, coloquei o toolbar no formulário mdi criei 4 botões que são novo,abrir,salvar e imprimir, cliquei duas vezes no botão novo e fiz a seguinte função para abrir outro formulário: mdiFilho.Close() mdiFilho = New Nota mdiFilho.MdiParent = principal.ActiveForm mdiFilho.Show() testei o botão e funcionou beleza o problema é que todos os botões fazem a mesma função, eu criei os botões com o opção collection da propriedade do toolbar. Como eu faço parta que cada botão assuma uma função Alguém pode me ajudar?

Cara olha como eu fiz, tá bagunçado ainda mas ta funcionado: Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim g As Graphics = e.Graphics Dim g2 As Graphics = e.Graphics Dim mensagem As String Dim teste2 As String Dim teste teste = TextBox1.Text '' mensagem = mensagem & " - " & System.Environment.UserName() mensagem = teste teste2 = TextBox2.Text Dim FonteMensagem As New Font("Roman", 14, System.Drawing.GraphicsUnit.Point) g.DrawString(mensagem, FonteMensagem, Brushes.Black, 400, 800) Dim FonteMensagem2 As New Font("Roman", 14, System.Drawing.GraphicsUnit.Point) g2.DrawString(teste2, FonteMensagem, Brushes.Black, 400, 900) End Sub Dessa forma imprimiu legal. Fiz o texte na epson cx1500, funcionou redondo na c45 também, mas fui textar na matricial epson lx-300, ele imprime eu controlo o eixo y mas não controlo o eixo X. Porque? Ele imprime sempre no começo da folha Como eu faço para controlar o eixo X da epson lx-310 Nas outras coloridas eu controlo normal tanto X como Y.

Cara eu li o barato, mas sou novo nesse negócio to quebrando o coco, to tentando alguns comandos mas não sai o que eu quero, por exemplo quero imprimir o que está no textbox, aí coloquei assim: PrintDocument1.Print() Mas ele só imprimiu uma frase de apresentação, então tentei assim: PrintDocument1.Print(TextBox1.Text) Deu erro você pode me dar uma força de como eu faço para imprimir apenas o contúdo do TextBox?

Olá pessoal Nuca usei comandos para imprimir, alguém pode me ensinar ? Eu tenho um WinForm e nele contém Labels, TextBox e outros objetos, eu criei um botão imprimir e gostaria que quando eu clicar nele imprima apenas o conteúdo dos TextBox. Como eu faço isso?

Valeu pela força Graymalkin Até mais

Cara consegui adicionar as opções do input32X, mas a opção não é Customize toolbox, o nome é ADD/Remove Items, agora as opções já estão na ToolBox, cliquei na opção DateBox e coloquei ela no formulário, mas ele está dando erro com essa mensagem: Clique aqui p/ ver Porém eu resolvi o problema usando a opção Mask Edit criou a máscara do mesmo jeito e o melhor é que é um componente do próprio windows. eu tava tentando arrumar o input32X e achei essa opção na guia COM Components, testei criei formato e rodou. Mas eu gostaria ainda de aprender a usar o input e se possível saber qual seria a diferença entre o mask edit e o inout32X Acho que tem que adicionar algum outro componente mas não estou achando tentei alguns deu até pau na minha máquina. Como Faço para corrigir esse erro?

Cara baixei o exemplo, mas ele só tem um formulário vazio, não achei nada. quando eu executei ele deu essa mensagem Vê se eu estou trabalhando certo, instalei o input32X na minha máquina. ele criou uma pasta input32X edit control, dentro tem um help. Estou olhando o help, mas nada me ensina como colocar o efeito no meu TextBox, no casa eu preciso usar o DateBox, já fiz assim: TextBox.DateBox TextBox.DateBox(//) E várias outras maneiras, mas não está funcionado, estou olhando o tutorial mas não acho nada de como usar isso no vb.net. O seu exemplo só tem um formulário vazio. Como eu faço? Como eu junto o input32X com o TextBox do WinForm?

Cara instalei o input32X, tentei estudar o artigo mas está em inglês, não manjo de inglês. Como eu faço para usar esse input32X, eu estava lendo e achei a opção de mascara no site mas não consegui fazer nada com ele. Você sabe como usar? Pode me ajudar? Estou precisando fazer essa mascara no TexBox no winform

Cara eu li os tutorias relacionados ao assunto, mas não ficou muito claro, por exemplo resumindo o que eu quero é seguinte que que quando o meu formulário for carregado o campo TextBox fique com um tipo de máscara igual no access ou seja ele vai ficar assim __/__/____ apenas para dar uma aprencia nos dados. Nos post que eu pesquisei o cara mandou usar isso: \d{2}\/\d{2}\/\d{4} Tentei usar isso em tudo que é propriedade mas não consegui. Onde exatamente eu usaria isso? E como eu uso? Um amigo me passou um código parecido em c#, estou tentando passar ele para vb.net, mas não está funcionando também, o código em c# é assim: /// <summary> /// formata um valor sobre uma mascara /// </summary> /// <param name="valor">valor a formatar</param> /// <param name="mascara">no formato ex.:##/##/#### ou ##.###,##</param> /// <returns>valor formatado</returns> public static string Formatar( string valor, string mascara ) { System.Text.StringBuilder dado = new System.Text.StringBuilder(); // remove caracteres não numericos foreach ( char c in valor ) { if ( Char.IsNumber© ) dado.Append©; } int indMascara = mascara.Length; int indCampo = dado.Length; for (; indCampo > 0 && indMascara > 0; ) { if ( mascara[--indMascara] == '#' ) indCampo--; } System.Text.StringBuilder saida = new System.Text.StringBuilder(); for (; indMascara < mascara.Length; indMascara++) { saida.Append( ( mascara[indMascara] == '#' ) ? dado[indCampo++] : mascara[indMascara] ); } return saida.ToString(); } O que eu estou convertendo é esse: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' <summary> ' formata um valor sobre uma mascara ' </summary> ' <param name="valor">valor a formatar</param> ' <param name="mascara">no formato ex.:##/##/#### ou ##.###,##</param> ' <returns>valor formatado</returns> Public Shared Function Formatar(ByVal valor As String, ByVal mascara As String) As String Dim dado As System.Text.StringBuilder = New System.Text.StringBuilder ' remove caracteres não numericos For Each c As Char In valor If Char.IsNumber Then dado.Append() End If Next Dim indMascara As Integer = mascara.Length Dim indCampo As Integer = dado.Length Do While ((indCampo > 0) _ AndAlso (indMascara > 0)) If (mascara(--, indMascara) = Microsoft.VisualBasic.ChrW(35)) Then indCampo = (indCampo - 1) End If Loop Dim saida As System.Text.StringBuilder = New System.Text.StringBuilder Do While (indMascara < mascara.Length) saida.Append((mascara(indMascara) = Microsoft.VisualBasic.ChrW(35))) 'TODO: Warning!!!, inline IF is not supported ? indMascara = (indMascara + 1) Loop Return saida.ToString End Function End Sub End Class Tenho que fazer algo antes? Está faltando algo?Tem problema declarar direto no formulário?Estou sem idéias Alguém consegue arrumar, não estou conseguindo. Estou trabalhando com WinForm. Talvez seja por isso que não estou conseguindo acho que o cara está usando WebForm. Alguém pode me ajudar?

Valeu pela força Graymalkin Cara eu não tive tempo de responder, mas pouco tempo depois que eu postei aqui, fiz mais alguns teste com algumas modificações e consegui Estou aprendendo legal essa linguagem Quem tiver o mesmo problema o código é esse: Dim Registro Dim cmd As New SqlCommand("select * from cadastro where nome='" & Trim(teste) & "'", sqlcon) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet Dim tb As New DataTable da.Fill(ds) ds.Tables.Add(tb) Dim nome nome = ds.Tables(0).Rows(0).Item("nome") nome2.Text = nome sqlcon.Close() Com esse código faço uma consulta no banco e separo o item de cada coluna em variáveis e depois posso imprimir o resulta em label, ficou bacana, nas minhas consulta eu estava listando com datagrid mas eu fiz dessa forma porque estava precisando listar apenas 4 campos do banco e na vertical o datagrid imprime na horizontal Valeu pessoal

Foi apenas um erro de digitação aqui, mas no programa está escrito certo. Mesmo assim não está funcionando!

Cara eu tentando aqui mas não está funcionando, olha o que eu fiz: Private Sub consultar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles consultar2.Click Dim teste teste = lista.SelectedItem Try Dim cmd As New SqlCommand("select * from cadastro where nome='" & Trim(teste) & "'", sqlcon) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet Dim tb As New DataTable da.Fill(tb) ds.Tables.Add(tb) Dim nome nome = tb.Cloumns("nome") nome2.Text = nome Catch ex As Exception End Try End Sub End Class Não está funcionado cara, a minha idéia é a seguinte, fiz a comsulta no banco e quero listar os campos dentro de alguns label, nesse caso eu estou tentando colocar o conteúdo do campo nome no label nome2, mas não está funcionando. Onde eu errei?

Valeu cara Funcionou coloquei assim: ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

Valeu Graymalkin, você está me ajudando bastante cara, to malhando bastante aqui para aprender cara. Valeu mesmo. Cara entendi ficou legal. O meu ComboBox ainda está com um problema, a consulta no banco funcionou legal encheu o combo com as informações do banco mas, ficou 2 problemas 1) Se o nome for muito grande ele não aparece no combobox todo, eu gostaria que o combo box fique do tamanho do nome que for clicado 2)Tentei desativar a opção que permite digitar dentro do combobox, ou seja eu abro o combo escolho um nome e o cursor fica ativo dentro do combo permitindo digitação eu quero que fique apenas leitura tentai algo como ReadyOnly = True, mas não achei nada não funcionou. Você sabe como fazer isso?

Cara valeu deu certo. Está dando um erro no meu exercíco que é seguinte, por exemplo faço um cadastro ele aramzena os dados tudos ok, mas se tento cadastrar em seguida ou fazer uma consulta ou qualquer ação que envolva banco de dados ele não funciona acho que é porque em cada função cadastro ou consulta eu tenho no inicio um comando para abrir o banco de dados, uso esse comando: sqlcon.Open() A minha conexão com banco eu fiz no módulo. Como eu faço para que quando o meu programa for aberto ele abra a conexão uma única vez e apenas quando eu finalizar o programa ele feche a conexão?