Lello

// Codigo no Formulario 2 ( Form2 ) private void button1_Click(object sender, EventArgs e) { Form1 frm1= new Form1(); frm1.textBox1.Text="Teste Textbox no (Form1)"; frm1.Show(); } Mas eu não quero Chamar o formulario Novamente , so quero adicionar o texto Porque ele já esta carregado. Muito Obrigado

Entendi, mas o poblema e que eu sou novo em .net , como faço isto sendo que eu so tenho um form, so o form1 e o visual studio declara sozinho para mim este form. o que eu quero fazer e criar uma classe que muda o tamanho e cor dos controles labels do form1 como faço isto.? muito obrigado

Achei algo na net que possa servir a voce http://msdn.microsoft.com/vcsharp/download...mm/default.aspx em visual basic 6.0 eu tenho algo parecido o que voce quer , eu fiz para ler codigo de barras , caso queira mande seu email !

Como faço para usar um textbox de outro formulario Exemplo em Visual Basic 6.0 me.Textbox1.text= form1.textbox2.text Muito Obrigado

Este Codigo eu consigo abrir o arquivo e ler linha por linha , mas quando eu vou pegar na string determinados caracters e ele não existe da um erro . Exemplo eu quero 10 caracters e no arquivo texto so existe 9 . Exemplo do codigo using (StreamReader sr = new StreamReader("c:\\teste.txt")) { String line; listBox1.Items.Clear(); while ((line = sr.ReadLine()) != null) { listBox1.Items.Add(line); listBox1.Items.Add(line.Substring(1, 10)); } } Como Faço para corrigir este erro. Porque mesmo que tiver nove eu quero pegar os caracters que tem na string.

Estou migrando para o C# .net 2005 e estou apanhando um pouco para chamar o segundo formulario em VB seria assim 'Exemplo form2.show vbmodal Consegui fazer uma instancia do formulario //exemplo Form2 myform2 = new Form2(); myform2.Show() ; mas na verdade eu queria chamar o form2 e não fazer uma instancia dele Como faco isto no .net muito obrigado

Descobri algo mas estou apanhando muito não consigo trocar a nome do form por uma variavel exemplo Private Sub Form_Load() List1.AddItem "Cadastro de Clientes" List1.AddItem "Cadastro de Produtos" FormObjects.Add FrmCadastrodeClientes, "Cadastro de Clientes" FormObjects.Add FrmCadastrodeProdutos, "Cadastro de Produtos" End Sub Private Sub List1_DblClick() Dim frm As Form On Error Resume Next Set frm = FormObjects(List1.Text) frm.Show End Sub Gostaria de Trocar o que esta em vermelho por uma variavel muito obrigado

Gostaria de saber como faço para chamar um form que sera cadastrado em um banco de dados ? exemplo: Tenho campos no banco de dados , DescricaoTela e DescricaoForm e irei Montar uma ListBox com todos os nomes do Campo DescricaoTela quando tiver um evento click na ListBox irei procurar pelo nome no banco de dados e chamar o Formulario correspondente. muito obrigado

E tinha me esquecido do chr(10) , Desculpe .

Este Funciona muito bem ZPL = Empty ZPL = ZPL & "^XA^PR4^PQ1" ZPL = ZPL & "^LH40,30" ZPL = ZPL & "^FO40,30^AUR80,10^FD " & i & " ^XZ " N = FreeFile() Open "lpt1:" For Output As #N Print #N, ZPL Close #N

Se entendi direito pega a primeira string pula a linha e pega a segunda string var1="teste1 teste1 teste1" var2="teste2 teste2 teste2" var3= var1 & chr(13) & var2 msgbox var3

Graymalkin , deu certo o tempo , gostaria de saber mais uma coisa como faço para passar a musica para frente neste dll ? Tentei pela função FSOUND_Stream_SetTime() mas esta dando erro muito obrigado

Muito Bom o Xplay , eu estava procurando na documentacao o tamanho em minutos e a posiçõa atual do mp3 em andamento mas não consegui encontrar . No Xplay Foi Feito tem como me informar qual função da Dll foi usada ? Sobre as duas placas de som eu também não a tenho , mas eu vi em um exemplo que vem com Fmod que tem como escolher o placa ,Tem um exemplo em C , mas não conheço muito bem esta linguagem o exemplo e o 3d.exe Muito obrigado pela ajuda

Descobri , deveria ser MsgBox FSOUND_Stream_GetPosition(streamHandle) alguém Conhece bem esta dll ? Como Faço para trabalhar com 2 placas de som ?

LABEL1.CAPTION = FSOUND_Stream_GetPosition(streamChannel) O QUE ESTA ERRADO NESSA DECLARACAO QUE ATE SAIR DO VISUAL BASIC ? MUITO OBRIGADO

Muito obrigado , esta funcao timeserial() eu não conhecia

De uma olhada neste poste e voce vai entender como usar o mid() http://scriptbrasil.com.br/forum/index.php?showtopic=77910

Eu consegui fazer , mas tem como simplificar o codigo seg = 217.3 / 60 For i = 1 To Len(seg) X1 = X1 & Mid(seg, i, 1) If Mid(seg, i, 1) = "," Then X2 = Mid(seg, i + 1, 3) Exit For End If Next i MsgBox X1 & Mid(Str(Val(X2) / 100) * 60, 1, 2)

Bom dia Tenho uma Duvida como posso converter segundos em minutos e segundos ex. 125,31 segundos vai ser igual a 2,09 ( Dois minutos e nove segundos ) 217,30 segundos vai ser igual a 3,62 (tres minutos e sessenta e dois segundos) 3,62 - como faço para corrigir este erro formula usada 217,30 / 60

Muito obrigado, acho que o problema maior era o windows xp , formatei minhas maquinas e funcionou não sei dizer exatamente o que era , mas valeu muito obrigado pela ajuda e dedicação

Segue abaixo o codigo da inserção With TbGzLvs .AddNew .Fields("NumeroDoc") = Val(Mid(TEXTLINE, 1, 6)) .Fields("NumeroPedido") = Mid(TEXTLINE, 7, 8) .Fields("TipoDoc") = Mid(TEXTLINE, 15, 1) .Fields("TipoRegistro") = Mid(TEXTLINE, 16, 2) .Fields("CodProduto") = Val(Mid(TEXTLINE, 18, 20)) .Fields("TipoProduto") = Mid(TEXTLINE, 38, 1) .Fields("Quantidade") = Mid(TEXTLINE, 39, 8) .Fields("ValorUnitario") = CCur(Mid(TEXTLINE, 47, 9) & "," & Mid(TEXTLINE, 56, 2)) .Fields("ValorTotal") = CCur(Mid(TEXTLINE, 60, 9) & "," & Mid(TEXTLINE, 69, 2)) .Fields("CodVendedor") = CInt(Mid(TEXTLINE, 71, 4)) .Fields("CodEmpresa") = CInt(Mid(TEXTLINE, 75, 3)) .Fields("CodCliente") = Val(Mid(TEXTLINE, 78, 16)) .Fields("TipoCliente") = Mid(TEXTLINE, 94, 1) .Fields("Loja") = CInt(Mid(TEXTLINE, 95, 3)) .Fields("Caixa") = CInt(Mid(TEXTLINE, 98, 3)) .Fields("Operador") = CInt(Mid(TEXTLINE, 101, 4)) .Fields("Data") = DateValue(Mid(TEXTLINE, 111, 2) & "/" & Mid(TEXTLINE, 109, 2) & "/" & Mid(TEXTLINE, 105, 4)) .Fields("Hora") = Mid(TEXTLINE, 113, 5) .Fields("CodFinalizadora") = Mid(TEXTLINE, 118, 3) .Fields("CGC") = Mid(TEXTLINE, 121, 19) .Fields("Banco") = Mid(TEXTLINE, 140, 3) .Fields("Agencia") = Mid(TEXTLINE, 143, 7) .Fields("AntigoContaCorrente") = Mid(TEXTLINE, 150, 9) .Fields("NumeroCheque") = Mid(TEXTLINE, 159, 6) If Trim(Mid(TEXTLINE, 165, 8)) <> "" Then .Fields("DataVencimento") = DateValue(Mid(TEXTLINE, 171, 2) & "/" & Mid(TEXTLINE, 169, 2) & "/" & Mid(TEXTLINE, 167, 2)) .Fields("Reservado") = Mid(TEXTLINE, 173, 1) .Fields("CodTitular") = CInt(Mid(TEXTLINE, 175, 8)) .Fields("Sequencia_Cartao_Rc") = CInt(Mid(TEXTLINE, 183, 1)) .Fields("Via_Cartao_Rc") = CInt(Mid(TEXTLINE, 184, 1)) .Fields("Numero_Boleta_Cartao_Rc") = CInt(Mid(TEXTLINE, 185, 8)) .Fields("Codigo_condicao_Pagamento_Cartao_Rc") = CInt(Mid(TEXTLINE, 193, 4)) .Fields("Condicao_pagamento") = Mid(TEXTLINE, 197, 10) .Fields("Telefone") = Mid(TEXTLINE, 207, 10) .Fields("Atual_conta_Corrente") = Mid(TEXTLINE, 217, 10) .Fields("CMC-7_NumeroDocumento") = Mid(TEXTLINE, 227, 70) .Fields("Rede_Destino_tef") = CInt(Mid(TEXTLINE, 297, 4)) .Fields("Tipo_Transacao_Tef") = Mid(TEXTLINE, 301, 1) .Fields("Numero_Cartao") = Mid(TEXTLINE, 302, 40) .Fields("TipoDocumentoPagamentoConta") = CInt(Mid(TEXTLINE, 342, 3)) .Fields("StatusdaTransacaoTef") = Mid(TEXTLINE, 345, 1) .Fields("ValorTroco") = CCur(Mid(TEXTLINE, 346, 10) & "," & Mid(TEXTLINE, 356, 2)) .Fields("TabelaPrecoUtilizada") = Mid(TEXTLINE, 358, 1) .Fields("PontoConcedidosNesteItem") = CInt(Mid(TEXTLINE, 359, 8)) .Fields("Tributacao") = Mid(TEXTLINE, 367, 6) .Fields("1DocumentoDigitado") = Mid(TEXTLINE, 373, 20) .Fields("ContadoOrdemOperacao") = Val(Mid(TEXTLINE, 393, 6)) .Fields("NumeroOrdemItemCupom") = CInt(Mid(TEXTLINE, 399, 6)) .Fields("2DocumentoDigitado") = Mid(TEXTLINE, 405, 20) .Fields("3DocumetoDigitado") = Mid(TEXTLINE, 425, 20) .Fields("4DocumntoDigitado") = Mid(TEXTLINE, 445, 20) .Fields("NumeroEcf") = CInt(Mid(TEXTLINE, 465, 3)) .Fields("Arquivo") = Arquivo .Update End With

Ado , a engraçado e que estava funcionando e derrepente deparei que estava faltando numeros no campo , entrei direto no banco de dados fora do meu sistema e acontece a mesma coisa não cabe mais de 8 digitos , teste em outro micro aqui e a mesma coisa segue abaixo arquivo de banco de dados com problema Banco de Dados com campos double

não da nenhum tipo de erro, so não cabe , isto que esta estranho já tentei reparar o banco de dados , e continua na mesma até dentro do visual data manager não consigo

Estou com um problema .Tenho uma Tabela com registros Double , Estava Fucionando mas não sei o que aconteceu , os Campos Doubles so estao aceitando 8 digitos Ex. (12345678) Até já criei outra Tabela mas acontece a mesma coisa . Muito Obrigado

Por Favor Cadastre no Forum que te mando