Jump to content

Search the Community

Showing results for tags 'vb.net'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Matemática
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Found 7,610 results

  1. Bom dia a todos Estou a desenvolver a automatização de preenchimento de uma folha de assiduidade em access. Para isso cada dia tem 4 caixas de texto para serem preenchidas automaticamente (entrada de manha, saída de manha, entrada da tarde e saída da tarde) . Para cada caixa de texto dei-lhe um nome + o dia. Exemplo (hedm1 - hora de entrada de manha do dia 1, hsdm1 - hora de saida de manha do dia 1 , hedt1 - hora de entrada de tarde do dia 1, hsdt1 - hora de saida de manha do dia 1), para o dia 2 é hsdm2 e assim sucessivamente até 31. No código VBA estou a utilizar um For To Next para efetuar o preenchimento das caixas de texto de 1 a 31, no qual chamei "cdia" à variavel dia. A minha questão é para preenchimento da caixa de texto consoante o dia estou a tentar concatenar o texto com o dia exemplo ("hsdm" & cdia), no entanto o vba não assume, exemplo de código: cdia As Integer For cdia = 1 To 31 'automatizar horas diárias' 'se for fevereiro e ano bisexto' If Form_frAssid.mes.Column(0) = 2 And cdia = 29 And Form_frAssid.Ano Mod 4 <> 0 Then hedm & cdia = "" hsdm & cdia = "" hedt & cdia = "" hsdt & cdia = "" No exemplo acima, para o dia 29 em anos que não sejam bisextos quero que ele deixe as caixas de texto do dia 29 em branco, mas está-me a dar erro de sintaxe no código, não reconhece a concatenação como o nome da caixa de texto. Como posso dar volta a isso? Obrigado
  2. marioverdini

    NAO ARREDONDAMENTO

    Bom dia a todos Gostaria de saber como faço para nao ter os numeros e resultados de valores nao arredondados Exemplo vamos a um exemplo de mutiplicaçao 1.25 . 1.00 = 1.25 no meu codigo fote o resultado esta sendo arredondado para 1.00 ou 1.20 queria que o resultado fosse real 1.25
  3. marioverdini

    Crystal Report

    Bom dia a todos Caros amigos, preciso da ajuda de todos para solucionar um problema que para muitos deve ser simples mas, eu estou quebrando a cabeça e nao consigo resolver Tenho um codigo fonte que baixei da net para fins de estudo e que contem apenas um relatorio feito em crystal report do vs2017 desejo fazer umas alteracoes como, orientaçao de pagina, fontes, etc.... sendo assim fiz todas alteraçoes que quis e compilei Botao direto na tela do relatorio Desing Page Setup executei o programa e o relatorio continua da mesma forma sem as alterçaoes porque isso esta acontecendo?
  4. marioverdini

    Casas decimais

    Bom dia a todos Preciso da ajuda do pessoal do forum Gostaria de permitir apenas duas casas decimais. Eu poderia definir a caixa de texto apenas numérica, mas não sei como limitar 2 pontos decimais. ex: 000,00 Private Sub txtPrice_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrice.KeyPress Dim keyChar = e.KeyChar If Char.IsControl(keyChar) Then 'Allow all control characters./ 'Permitir todos os caracteres de controle. ElseIf Char.IsDigit(keyChar) OrElse keyChar = "."c Then Dim text = Me.txtPrice.Text Dim selectionStart = Me.txtPrice.SelectionStart Dim selectionLength = Me.txtPrice.SelectionLength text = text.Substring(0, selectionStart) & keyChar & text.Substring(selectionStart + selectionLength) If Integer.TryParse(text, New Integer) AndAlso text.Length > 16 Then 'Reject an integer that is longer than 16 digits. e.Handled = True ElseIf Double.TryParse(text, New Double) AndAlso text.IndexOf("."c) < text.Length - 3 Then 'Reject a real number with two many decimal places. e.Handled = False End If Else 'Reject all other characters. e.Handled = True End If End Sub End Class
  5. Boa Tarde Estou a fazer um trabalho que é uma aplicação servidor e vários clientes... Requisitos: Control Remoto estilo teamviewer (de cliente para cliente) passando sempre pelo servidor com as portas abertas para o funcionamento Ter acesso a download e upload Chat Voz Agora como não estou por dentro disto penso que o melhor seria Sockets com Multithreads Mas não consigo arranjar um artigo que fazer de control remoto nem comunicação por voz ao mesmo tempo que se está a fazer a telemanutenção remota. Que acham??!?!?! Abraço a todos.
  6. marioverdini

    Crystal Report

    Bom dia a todos Gostaria de uma ajuda para duas situaçoes de crystal report Tenho um codigo fonte que nele tem relatorios em crystal report Consigo abro no visual studio 2017 ate ai tudo optimo as modificaçoes são: 1) Alterar o tamanho da fonte clico com o botao direto do rato escolho a opçao Format Object em seguida na aba Fonte faço as alterações de tamanho e tipo de letra mas quando compilo o sistema vejo que nada mudou oque faço? 2) a mesma coisa acontece quando altero as palavras do cabeçalho Ex: code e altero para codigo obrigado a todos e caso alguem nao entenda, tento explicar de uma melhor maneira
  7. marioverdini

    Cursos

    Alguem daqui da cursos de programaçao ou sabem onde se possa tirar cursos de programaçao vb.net com sql? obs: nao gosto de cursos on line, ate pq tem duvidas que iram surgir que só mesmo cara a cara para poder se entender
  8. marioverdini

    casas decimais

    estou tendo um probleminha no meu codigo nos campos ( total e sub total) estou tentando multiplicar o resultado esta sendo inteiro EX: 1.02 x 3 = 3.00 ao inves de 3.06 alguem poderia me dar uma ajuda se esse trecho do mcodigo nao for claro para os amigo do forum eu mando o codigo inteiro do formulario Public Class frmPurchase Private Sub auto() Try Dim Num As Integer = 0 con = New SqlConnection(cs) con.Open() Dim Sql As String = ("SELECT MAX(PI_ID) FROM Purchase") cmd = New SqlCommand(Sql) cmd.Connection = con If (IsDBNull(cmd.ExecuteScalar)) Then Num = 1 txtID.Text = Num.ToString Else Num = cmd.ExecuteScalar + 1 txtID.Text = Num.ToString End If con.Close() Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub
  9. marioverdini

    instalador

    Bom dia a todos gostaria de alguem do grupo me orientasse em relação a criar um intalador para meu sistema criado criei um sistema no vb.ner e ja conferi se tem erros e etc ja o compilei esta tudo rodando certinho nesse caso como faço para criar um setup ou um instalador para poder ser distribuido (sen codigo fonte e claro rs)
  10. marioverdini

    ACTIVATION ID

    BOM DIA A TODOS BAIXEI UM CODIGO FONTE DA INTERNET COMPILEI TUDO CERTINHO MAS QUANDO EU ABRO O SISTEMA APARECE UMA TELA MOSTRANDO QUE TENHO QUE COLOCAR O ACTIVATION ID HARDWARE ID: BFEBFBFF000906E9 SERIAL Nº: 171012512601102 ACTIVATION ID : COMO E UM CODIGO FONTE TEM COMO EU DESATIVAR ESSE PEDIDO DE ATIVAÇAO ? TEM ALGUMA MANEIRA DE DESCOBRIR O ACTIVATION ID ?
  11. Um bem Aja a todos Estou com dificuldades de resolver a situação descrita em titulo. Aproveitando algum código de um jogo de Soduku tenho vindo a fazer algumas alterações (com alguma ajuda deste forum) no mesmo. Mas não consigo resolver esta parte "Eliminar Números Possíveis em botões adjacentes do Sudoku. Junto imagem e código para explicitar. https://uploaddeimagens.com.br/imagens/numerospossiveissudoku-jpg Pretendo ao digitar por exemplo no Botão1 (5) evento Keypress e percorrendo com um ciclo for ou outro os botões da fila ou coluna que contenham o mesmo caractere se elemine o digito correspondente no Botão6 (5) que foi criado com Bitmap. Consigo detectar com um ciclo For que o botão tem BackColor = Color.White mas eliminar o valor não sei. No código está para o botão4 (numberOnButton4) Agradeço umas dicas sobre como resolver. 'Apaga os numeros possiveis Else Dim n As Integer Dim btn As Button = DirectCast(sender, Button) If butModoNumeros.Text = "Modo Normal" Then KeyAscii = SoNumeros(KeyAscii) If Integer.TryParse(e.KeyChar, n) Then If numbersOnButton1.Contains(n) Then ' numbersOnButton1.Remove(n) numbersOnButton1.Remove(1) numbersOnButton1.Remove(2) numbersOnButton1.Remove(3) numbersOnButton1.Remove(4) numbersOnButton1.Remove(5) numbersOnButton1.Remove(6) numbersOnButton1.Remove(7) numbersOnButton1.Remove(8) numbersOnButton1.Remove(9) CurButtons(1).BackColor = Color.Cyan End If 'Eliminar numero correspondente nos botões em branco For X As Integer = 1 To 9 If CurButtons(X).BackColor = Color.White And butModoNumeros.Text = "Modo Normal" Then MsgBox("TESTE BRANCO") CurButtons(X).Focus() If numbersOnButton4.Contains(n) Then numbersOnButton4.Remove(n) End If End If Next X 'If btn.Image IsNot Nothing Then ' btn.Image.Dispose() 'End If Dim font As New Font("Microsoft Sans Serif", 8) Dim bmp As New Bitmap(btn.Width, btn.Height) Dim gfx As Graphics = Graphics.FromImage(bmp) ' gfx.Clear(btn.BackColor) For Each item As Integer In numbersOnButton1 gfx.DrawString(item.ToString, font, Brushes.Black, GetNumberPosition(item, font, btn)) Next btn.Image = bmp End If
  12. marioverdini

    Assembly

    Boa noite a todos baixeu um projeto na internet e percebi q essse codigo contem dois assemblys no mesmo projeto pq isso? e se pode colocar tudo em um assembly só? queria colocar a imagem mas nao consigo add a imagem para voces verem melhor
  13. marioverdini

    Assembly

    Boa noite a todos baixeu um projeto na internet e percebi q essse codigo contem dois assemblys no mesmo projeto pq isso? e se pode colocar tudo em um assembly só?
  14. marioverdini

    Limite de caracteres

    Boa tarde estou com dificuldade em concluir esse codigo gostaria de determinar o numero de caracteres na textbox do meu formulario ja fiz de tudo fui no system.windows.form e nada alterei as propiedades e nada oq acho engracado q esta deteminado pelo campo textbox que so leva 23 caracteres se eu nao determinei vou colar aqui um trecho do codigo Private Sub txtPatientName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPatientName.KeyPress Dim NotAllowed As String = "1234567890~`@#$%^&*()_-+={[}]:;!><?/|\" 'Allowed Letters only If e.KeyChar <> ControlChars.Back = True Then If NotAllowed.IndexOf(e.KeyChar) = -1 = False Then e.Handled = True End If End If End Sub
  15. RubenT

    Programa Totoloto Vb

    Boa tarde estou tentando resolver um exercicio do totoloto mas estou com uns problemas e precisava de ajuda pff. Exercicio o que tenho que fazer-- Em Apostar: o Permitir ao apostador fazer entre 1 a 10 apostas simples (1 boletim), guardar os números selecionados pelo apostador de acordo com o número de apostas indicadas; o Selecionar um “número da sorte” por conjunto de apostas. o Calcular e mostrar o valor a pagar pela(s) aposta(s). 30 pontos 10 pontos 5 pontos • Em Ver Apostas: o Permitir ver as apostas realizadas pelo apostador; o Os números devem aparecer em grelha de aposta. 10 pontos 20 pontos • Em Sortear: o Gerar automaticamente uma chave, não podendo existir valores repetidos; o A chave sorteada deve ser apresentada por ordem crescente. 30 pontos 10 pontos • Em Verificar Apostas: o Comparar as apostas feitas com a chave sorteada e indicar o número de prémios (de acordo com um boletim oficial); o Indicar prémios por aposta. Totoloto -o utilizador tem de escolher quantas apostas quer fazer - o utilizador tem que escolher 5 numeros e 2 estrelas na parte do apostar. Programa que me tou a inspirar, e queria tentar fazer como este abaixzo Meu programa: A minha duvida é o utilizador tem que escolher quantas apostas quer fazer,como faço para ex:o utilizador quer fazer 5 apostas,como faço para o programa só deixar o utilizador fazer 5 apostas e como faco para que ele possa introduzir as 5 apostas, e iria ficar muito grande o codigo se copiasse os botoes abaixo e duplicasse Todos os buttoes que estam acima tem este codigo abaixo Codigo completo Vb Public Class Form3 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Button2.BackColor = Color.Red Button2.Text = "1" End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Button3.BackColor = Color.Red Button3.Text = "2" End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Button4.BackColor = Color.Red Button4.Text = "3" End Sub Private Sub TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Button5.BackColor = Color.Red Button5.Text = "4" End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Button11.BackColor = Color.Red Button11.Text = "5" End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Button10.BackColor = Color.Red Button10.Text = "6" End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Button9.BackColor = Color.Red Button9.Text = "7" End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Button8.BackColor = Color.Red Button8.Text = "8" End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Button7.BackColor = Color.Red Button7.Text = "9" End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Button6.BackColor = Color.Red Button6.Text = "10" End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click Button13.BackColor = Color.Red Button13.Text = "11" End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Button12.BackColor = Color.Red Button12.Text = "12" End Sub Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click Button19.BackColor = Color.Red Button19.Text = "13" End Sub Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click Button18.BackColor = Color.Red Button18.Text = "14" End Sub Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click Button17.BackColor = Color.Red Button17.Text = "15" End Sub Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click Button16.BackColor = Color.Red Button16.Text = "16" End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click Button15.BackColor = Color.Red Button15.Text = "17" End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click Button14.BackColor = Color.Red Button14.Text = "18" End Sub Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click Button25.BackColor = Color.Red Button25.Text = "19" End Sub Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click Button24.BackColor = Color.Red Button24.Text = "20" End Sub Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click Button23.BackColor = Color.Red Button23.Text = "21" End Sub Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click Button22.BackColor = Color.Red Button22.Text = "22" End Sub Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click Button21.BackColor = Color.Red Button21.Text = "23" End Sub Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click Button20.BackColor = Color.Red Button20.Text = "24" End Sub Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click Button31.BackColor = Color.Red Button31.Text = "25" End Sub Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click Button30.BackColor = Color.Red Button30.Text = "26" End Sub Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click Button29.BackColor = Color.Red Button29.Text = "27" End Sub Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click Button28.BackColor = Color.Red Button28.Text = "28" End Sub Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click Button27.BackColor = Color.Red Button27.Text = "29" End Sub Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click Button26.BackColor = Color.Red Button26.Text = "30" End Sub Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click Button37.BackColor = Color.Red Button37.Text = "31" End Sub Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click Button36.BackColor = Color.Red Button36.Text = "32" End Sub Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click Button35.BackColor = Color.Red Button35.Text = "33" End Sub Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click Button34.BackColor = Color.Red Button34.Text = "34" End Sub Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click Button33.BackColor = Color.Red Button33.Text = "35" End Sub Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click Button32.BackColor = Color.Red Button32.Text = "36" End Sub Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click Button43.BackColor = Color.Red Button43.Text = "37" End Sub Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click Button42.BackColor = Color.Red Button42.Text = "38" End Sub Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click Button41.BackColor = Color.Red Button41.Text = "39" End Sub Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click Button40.BackColor = Color.Red Button40.Text = "40" End Sub Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click Button39.BackColor = Color.Red Button39.Text = "41" End Sub Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click Button38.BackColor = Color.Red Button38.Text = "42" End Sub Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click Button49.BackColor = Color.Red Button49.Text = "43" End Sub Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click Button48.BackColor = Color.Red Button48.Text = "44" End Sub Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click Button47.BackColor = Color.Red Button47.Text = "45" End Sub Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click Button46.BackColor = Color.Red Button46.Text = "46" End Sub Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click Button45.BackColor = Color.Red Button45.Text = "47" End Sub Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click Button44.BackColor = Color.Red Button44.Text = "48" End Sub Private Sub Button55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button55.Click Button55.BackColor = Color.Red Button55.Text = "19" End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged End Sub Private Sub TextBox1_TextChanged_2(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim aposta, num As Integer End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub 'Estrelas buttoes Private Sub Button56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button56.Click Button55.BackColor = Color.Yellow Button55.Text = "1" End Sub Private Sub Button54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button54.Click Button55.BackColor = Color.Yellow Button55.Text = "2" End Sub Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click Button55.BackColor = Color.Yellow Button55.Text = "3" End Sub Private Sub Button52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button52.Click Button55.BackColor = Color.Yellow Button55.Text = "4" End Sub Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click Button55.BackColor = Color.Yellow Button55.Text = "5" End Sub Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click Button55.BackColor = Color.Yellow Button55.Text = "6" End Sub Private Sub Button63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click Button55.BackColor = Color.Yellow Button55.Text = "7" End Sub Private Sub Button62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click Button55.BackColor = Color.Yellow Button55.Text = "8" End Sub Private Sub Button61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click Button55.BackColor = Color.Yellow Button55.Text = "9" End Sub Private Sub Button60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button60.Click Button55.BackColor = Color.Yellow Button55.Text = "10" End Sub Private Sub Button59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button59.Click Button55.BackColor = Color.Yellow Button55.Text = "11" End Sub Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click Button55.BackColor = Color.Yellow Button55.Text = "12" End Sub Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click Button55.BackColor = Color.Yellow Button55.Text = "13" End Sub End Class
  16. Boa tarde, precisava de uma ajuda numa aplicação em Vb.Net no seguinte: Criei um Form com um timer e uma label. Que verifica se um processo esta em execução e inicia esse timer. Quando precionada por exemplo a tecla A o timer volta a =0. Ate aqui esta a funcionar tudo bem, agora queria quando carrega-se na mesma tecla A mas sobre uma janela do Virtualbox, o timer também fosse a =0. se carregar na janela da minha aplicação funciona se for na janela do Virtualbox ou outra aplicação não funciona. Alguem podia dar uma ajudinha, o que poderia fazer. Obrigado
  17. JorgeRocha

    MBWay

    Boas alguem tens experiencia como implementar o mbway em vb.net ? sabem alguma coisa sobre o assunto ? Obrigado
  18. Boas Alguém já tem algum código , ou alguma ideia de como fazer a importação automática dos documentos existentes no portal do E-Fatura. Sem ser pelo ficheiro que eles lá tem da importação (e-fatura.csv), pois essa importação não separa os documentos por taxas de IVA .. Já tenho um código para fazer o login automático no site .. que é o seguinte: Try Dim IE IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.FullScreen = False IE.AddressBar = True IE.StatusBar = True IE.Toolbar = False ' IE.Width = Ambiente.Width - 200 ' IE.Height = Ambiente.Height - 200 IE.top = 100 IE.left = 100 IE.Navigate("https://faturas.portaldasfinancas.gov.pt/consultarDocumentosAdquirente.action") Do While IE.Busy System.Threading.Thread.Sleep(100) Loop IE.Navigate("https://faturas.portaldasfinancas.gov.pt/consultarDocumentosAdquirente.action") Do While IE.Busy System.Threading.Thread.Sleep(100) Loop IE.Document.All("username").InnerText = "???????????" ' Nº Contribuinte IE.Document.all("password").focus() IE.Document.All("password").InnerText = "?????????????" ' Senha do Portal IE.Document.All("sbmtLogin").Click() Catch ex As Exception MsgBox("Erro: Volte a Tentar", MsgBoxStyle.Critical) End Try
  19. Boa Tarde, Eu tenho o seguinte código, onde crio 5 botões através de um ciclo e queria saber como é que consigo programa-los, eu tentei com o AddHandler mas ao tentar correr o programa dá-me os erros "Expression Expected" e "Charapter is not valid" nessa mesma linha de código "AddHandler b.Click, AddressOf HandleDynamicButtonclick". Dim b As New Button For i = 1 To 5 b.Name = "btn" & i b.Text = "btn" & i AddHandler b.Click, AddressOf HandleDynamicButtonclick b.Width = 79 b.Height = 50 MsgBox("ola butão" & i)  b.Font = New Font("Perpetua", 12) FlowLayoutPanel1.Controls.Add(b) Next Private Sub HandleDynamicButtonclick(ByVal sender As Object, ByVal e As EventArgs) Dim btn As Button = DirectCast(sender, Button) If btn.Name = "botão1" Then MsgBox("Btn1 clicked") ElseIf btn.Name = "botão2" Then MsgBox("Btn2 Clicked") End If End Sub Podem me ajudar no que falta ou o que esta errado.
  20. Afonso Mira

    Sql server no Visual Studio 2010

    Boas estou com alguns problemas a mexer com sql pois é a primeira vez que mexo. Já tenho o código para inserir os dados na listbox e o código para adicionar novos dados a base de dados. Mas não estou a conseguir fazer um código para eliminar esses dados. O que eu pretendia fazer era criar 2 botões para movimentar de um registo para outro e com o botão eliminar apagar o registo que eu iria selecionar na listbox. Se alguem me conseguir ajudar fico muito agradecido. Aqui fica o meu código atual: (Obs:Se tiver algo mal no código por favor informar obrigado ) Imports System.Data.SqlClient Public Class Form1 Dim conexao As New SqlConnection() Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load conexao.ConnectionString = "Data Source = WKSACR022\ACRPROJETOS; INITIAL CATALOG = ACRBAL; USER ID = sa; PASSWORD = terena00;" End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click carregaListBox(ListBox1, "SELECT produto FROM TbProdutos") End Sub Private Sub carregaListbox(ByVal Lst As ListBox, ByVal query As String) Lst.Items.Clear() conexao.Open() Dim cmd As New SqlCommand(query, conexao) Dim db_reader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.Default) Dim texto As String Dim i As Integer Do While db_reader.Read texto = db_reader.Item(0).ToString For i = 1 To db_reader.FieldCount - 1 texto &= vbTab & db_reader.Item(i).ToString Next i Lst.Items.Add(texto) Loop conexao.Close() End Sub Dim myConnectionString As String = "Data Source = WKSACR022\ACRPROJETOS; INITIAL CATALOG = ACRBAL; USER ID = sa; PASSWORD = terena00;" Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim SQL As String = "INSERT INTO TbProdutos([Produto],[Observacao]) VALUES (@produto, @observacoes)" Dim connection As New SqlConnection(myConnectionString) Dim command As New SqlCommand(SQL, connection) command.Parameters.Add("@produto", SqlDbType.NChar).Value = TxtProduto.Text command.Parameters.Add("@observacoes", SqlDbType.NChar).Value = TxtObservacoes.Text connection.Open() Dim x As Integer = command.ExecuteNonQuery() If x < 1 Then MessageBox.Show("A operação efectudada não retomou qualqer resultado.") End If connection.Close() connection = Nothing command = Nothing End Sub End Class
  21. marlonwg

    Combobox Com Consulta LIKE

    Boas pessoal Quero fazer uma consulta com meu combobox da seguinte forma Quando o Usuario Consultar no combobox digamos em uma lista de 100 linhas cadastrados nomes de pessoas , la tem um nome assim "Jose Augusto Silva", e "Joao Alfredo Silva" , "Julia Silva" Quando o Usuario digitar no combobox a palavra "Silva" ele me trazer no LISITENS em aberto o combobox todos os Usuarios com este nome utilizando a consulta LIKE do SQL mas nao consegui fazer funcionar nem no TEXTCHANGED e nem no KEYUP alguem tem alguma ideia ?
  22. Boas. (Primeira vez que faço um relatório) Tenho uma aplicação já feita em linguagem vb.net de registo de pesagens para a empresa onde estou a estagiar. Está tudo a funcionar, o problema é que eles querem imprimir esses registo. O crystal report não funciona pois dá me erros e então decidi fazer pelo report que já vem com o vs10. Até aqui tudo bem fiz tudo direitinho como vi em alguns tutoriais e em fóruns, como aqui no P@P e no Macorrati. O problema é o seguinte: Ele faz me o relatório de todas as pesagens registadas e eu queria apenas de uma só pesagem, com a opção do utilizador escolher qual pesagem registada deseja imprimir. Alguém tem uma ideia de como poderei fazer este relatório. Obrigado
  23. Afonso Mira

    Número Tabela Automático

    Boas estou com um pequeno problema no meu projeto. Tenho a seguinte tabela : TbProduto com os campos IdProduto, Produto e Observações. Quando faço add new o IdProduto fica a -1 Tenho esse campo como preenchimento automático e mesmo assim nada. Quando fecho o form e volto a abrir esse número passa para 1, mas ao adicionar outro produto novo o Id volta a ser -1. Algúem consegue ajudar? Obrigado.
  24. Afonso Mira

    Botão backup base de dados

    Alguém tem alguma ideia de como fazer um botão na minha aplicação para que este realize um backup da base de dados. Que dê para o usuário escolher onde irá ficar o backup. E um botão para ir buscar a base de dados (Restaurar). Obrigado
  25. Cefeu

    VB.net e Access

    Boa tarde Numa bd tenho duas tabelas diferenciadas. Consigo ler os registos da primeira. Ao tentar ler a segunda aparecem registos da primeira. O que fiz de errado ou o que não fiz? Obg
×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.