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,600 results

  1. Boa tarde, Eu estou a usar um codigo para passar as linhas selecionadas de um datagridview para outro datagridview em outro form mas quando passa as linhas passa com a ordenacao de baixo para cima. Ou seja Datagridview Carregada 1 2 Quando passa para outra datagridview fica 2 1 O código é : <Dim dr As New System.Windows.Forms.DataGridViewRow For Each dr In Me.DataGridView1.SelectedRows Me.DataGridView2.Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value, dr.Cells(2).Value, dr.Cells(3).Value, dr.Cells(4).Value, dr.Cells(5).Value, dr.Cells(6).Value, dr.Cells(7).Value, dr.Cells(8).Value, NumericUpDown1.Value) Next> Alguem me pode ajudar? Obrigado
  2. Boa noite caríssimos, Sou novo no que tange criptografia RSA, tenho um ERP desenvolvido em vb.net e pretendo certificar junto a AT, estou com dificuldades em encriptar dados longos, quando se trata do primeiro registo corre tudo bem, mais quando tento encriptar o segundo que é a concatenação da hash do primeiro registo mais os dados do segundo gera um erro devido ao tamanho a encriptar uma vez que o mesmo passa a ter mais bytes do que o da chave. Cumprimentos Osvaldo Mateus
  3. gastao

    Panel

    boa tarde, estou a desenhar um form apenas, e o que vai aparecendo e desaparecendo sao os vários panels que tenho feito. Contundo quando mando o meu form principal fechar MPanel_DashBoard.Visible = False e mando o meu panel de fornecedores por exemplo para frente MPanel_Fornecedores.Visible = True MPanel_Fornecedores.Dock = DockStyle.Fill MetroGrid1.Visible = True tudo o que desenho dentro dele, nao me aparece, o form aparece me tudo a branco. alguem me pode ajudar nesse sentido sff
  4. Bom dia; Preciso de uma ajuda PF; Consegui calcular o valor anual no DataGridView. No entanto, este ganho está a englorar todos os valoresm independemente do ano: Private Sub SomaValorAno() Dim linha As DataGridViewRow Dim valor As Double For Each linha In DataGridView1.Rows valor = valor + linha.Cells(13).Value Next Label_totalAno.Text = FormatCurrency(valor) End Sub Seria interessante, que ele somasse somente os valores referentes ao Ano Atual, que está definido na coluna 8. Como consigo fazer? Muito obrigado
  5. nunso478

    Vetenaria

    Ajudem-me por favor Estou usar access e como insiro uma imagem e mando para a access e depois de insirir seleciono no gridview e mostrar a imagem guardado mas nao estou conseguir selecionar da um erro. POR favor ajudam-me
  6. Preciso da ajuda. Eu estou tentado por no module este código = Public pontosw(,) As = {{7, 8, 9, 5}}, mas falta a variavel que nao estou conseguindo encontrar quando for para inserir os pontos no form dentro no codigo ponho isto pontosw(ComboBoxNivel.SelectedIndex - 1, conta - 1) ,e aparece este erro: Expressão não é um método. Ja tentei por Public pontosw(,) As Bolean = {{7, 8, 9, 5}} ou Public pontosw(,) As object = {{7, 8, 9, 5}}. Por favor explica-me qual a variavel ou método ;(
  7. RafaelFranckilin

    Status do Windows Defender

    Pessoal, preciso obter o status de windows defender(on/off), mas não sei como fazer isso com o vb.net, Estou usando esse código, mas não é exatamente como eu quero. Vocês podem me ajudar com algo mais simples? Dim av_searcher As New ManagementObjectSearcher("root\SecurityCenter2", "SELECT * FROM AntivirusProduct") For Each info As ManagementObject In av_searcher.Get() MsgBox(info.Properties("displayName").Value.ToString()) Dim AvStatus = Hex(info.Properties("ProductState").Value.ToString()) If Mid(AvStatus, 2, 2) = "10" Or Mid(AvStatus, 2, 2) = "11" Then MsgBox("AntiVirus enabled") ElseIf Mid(AvStatus, 2, 2) = "00" Or Mid(AvStatus, 2, 2) = "01" Then MsgBox("AntiVirus disabled") End If Next info
  8. Depois de alguma investigação, e de ter encontrado o famoso "eidpt.dll", já consegui que o projecto não dá erro de programação, mas agora dá este erro ao executar : Alguém tem um projecto a funcionar ..?
  9. ola estou a fazer um programa de gestão de uma loja de bricolage em visual basic no visual studio 2019 e nao estou a conseguir quando o funcionário procure um id de um produto com uma ComboBox e ele preencha os outros campos como nome categoria subcategoria.... dá-me um erro "data type mismatch in criteria expression" abaixo mando o código e estou a utilizar o Access com base de dados. Imports System.Data Imports System.Data.OleDb Public Class Form1 Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click Me.WindowState = FormWindowState.Minimized End Sub Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click End End Sub Private Sub btn_sair_Click(sender As Object, e As EventArgs) Handles btn_sair.Click 'Me.Hide() 'Login.Show() End Sub Private Sub btn_regis_Click(sender As Object, e As EventArgs) Handles btn_regis.Click 'adminregis.Show() 'Me.Hide() End Sub Private Sub btn_func_Click(sender As Object, e As EventArgs) Handles btn_func.Click 'adminfunc.Show() 'Me.Hide() End Sub Private Sub PPreenchaComboBox() Using con As OleDbConnection = GetConnection() Try con.Open() Dim slq As String = "SELECT ID_Artigo FROM Artigos" Dim cmd As OleDbCommand = New OleDbCommand(slq, con) Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim dt As DataTable = New DataTable da.Fill(dt) txt_ID.DisplayMember = "ID_Artigo" txt_ID.DataSource = dt Catch ex As Exception Finally con.Close() End Try End Using End Sub Private Sub adminart_Load(sender As Object, e As EventArgs) Handles MyBase.Load PPreenchaComboBox() End Sub Private Sub PLerDados() Dim dr As OleDbDataReader Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "SELECT Nome_Artigo, Stock_Artigo, Preco_Artigo, ID_Categoria, ID_Sub_Categoria FROM Artigos Where ID_Artigo='" & txt_ID.Text & "'" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) dr = cmd.ExecuteReader(CommandBehavior.SingleRow) If dr.HasRows Then dr.Read() txt_nome.Text = dr.Item("Nome_Artigo") txt_Stock.Text = dr.Item("Stock_Artigo") txt_preco.Text = dr.Item("Preco_Artigo") txt_C.Text = dr.Item("ID_Categoria") txt_SC.Text = dr.Item("ID_Sub_Categoria") End If Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub txt_ID_SelectedIndexChanged(sender As Object, e As EventArgs) Handles txt_ID.SelectedIndexChanged PLerDados() End Sub End Class
  10. JARCAMPOS

    Projecto importador Excel

    Boas Preciso de alguém que possa desenvolver um pequeno importador de folhas excel e enviar as colunas para uma determinada BD SQL. Alguém interessado?
  11. João Matos

    Abrir calendário do Computador

    Olá! Eu tenho uma dúvida. Eu ando a fazer uns projetos no visual basic e eu gostava de abrir o calendário do Windows 10 a partir de um botão numa form. Já tentei utilizar o .exe mas não dá. Obrigado pela a atenção.
  12. Bom dia a todos! Estava aqui a terminar um trabalho quando me deparei com o seguinte erro: "Update requer um UpdateCommand válido quando transferir a colecção DataRow com linhas modificadas." O erro acontece nas linhas onde tenha "Me.TableAdapterManager.UpdateAll(Me.BdVideoClubeDataSet)" O erro ocorre tanto depois de remover um registo da tabela como também quando estou a salvar um novo registo noutros formulários que aqui tenho funciona tudo bem nessa linha mas nesse não! Por isso peço que se alguém me poder ajudar fico imensamente agradecido! Em anexo junto o meu programa. http://hotfile.com/dl/113231377/36df227/VideoClube.rar.html Se detectarem mais algum problema ou erro se poderem avisem. Sem outro assunto os meu cordiais cumprimentos.
  13. Boas a todos! Estou com um problema e preciso de ajuda. Tenho uma base de dados em MySQL e tenho um form chamado Form_Vendas. Neste form, consigo gerir as vendas e também os clientes. Ao selecionar o ID do cliente numa combobox (cmb_cliente) a imagem que está associada a este é automaticamente colocada numa PictureBox. O que acontece é que consigo adicionar e editar as imagens da base de dados, mas no que toca a eliminar recebo o erro "The parameter cannot be null" e o nome do parâmetro, "encoder", pelo que já reparei que este valor muda sempre que a imagem muda, por isso é que nao consigo eliminar a imagem. Agradeço desde já toda a ajuda providenciada
  14. Boas pessoal estou com minha aplicação com problemas nao sei se é Framework ou se tem alguma coisa haver no meu Desktop e em alguns clientes funciona normalmente o problema esta sendo que em alguns lugares depende a versão do windows 10 acho que Build 1090 ele simplesmente abre e se fecha.... Nao sei o porque faço a compilação dele em Release e DEBUG no formato X86 e X64 Com base em Framework 4.0 mas mesmo assim nao abre em alguns pcs Ja tentei reinstalar o Framework na maquina cliente , tentei desinstalar... No caso o Framework no pc e 4.8 Alguma ideia porque o aplicativo em vb.net nao abre apenas aparece na tela e se fecha.../???
  15. pedromgantunes

    Imprimir form

    Olá Sou iniciante neste tipo de programação, utilizava VBA . Estou desenvolvendo um pequeno programa em Visual Basic, no Visual Studio 2019 Community, gostaria de saber se é possível imprimir um form directamente. Estou utilizando o comando "printDocument1.Print()" , no entanto a folha impressa sai sempre em branco sem o conteúdo do form. Agradeço desde já toda a ajuda dispensada.
  16. Ruimrc

    Gif animado

    Estou a usar uma PictureBox para mostrar um Gif animado, acontece que no fim volta novamente ao início e fica em ciclo. Pretendo que seja visualizado apenas uma vez mas não encontro nada que me permita detectar ou parar ao fim da primeira visualização. Alguma ideia? Obrigado
  17. Olá pessoal, Tenho um sistema que roda em vários micros e cada um deles com versões diferentes do office. O meu código não está dando certo, segue referenciei o outlook e usei o imports Imports Microsoft.Office.Interop Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click Cursor.Current = Cursors.WaitCursor Try Dim tempApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application 'Dim tempApp = GetObject(, "Outlook.Application") Dim tempNS As Outlook.NameSpace Dim MailFolder As Outlook.MAPIFolder tempNS = tempApp.GetNamespace("MAPI") tempNS.Logon(, , True, True) Dim newMail As Outlook.MailItem = Nothing MailFolder = tempNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox) newMail = MailFolder.Items.Add(Outlook.OlItemType.olMailItem) With newMail .To = txtPara.Text .Subject = txtAssunto.Text .Body = txtMensagem.Text .Send() End With newMail = Nothing MailFolder = Nothing tempNS = Nothing tempApp = Nothing DialogResult = DialogResult.Yes Catch ex As Exception MsgBox(ex.ToString()) DialogResult = DialogResult.No Finally Cursor.Current = Cursors.Default End Try End Sub se eu usar essa linha Dim tempApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application ele só funciona no office2007 se eu usar essa linha, ele dá a mensagem de que não posso criar objeto activex Dim tempApp = GetObject(, "Outlook.Application") o que faço ?
  18. RafaelFranckilin

    Iniciar programa com o windows

    Pessoal, eu preciso colocar meu programa para iniciar junto com o windows, mas meu programa tem um arquivo de configuração (app.config), como eu faço? agradeço desde já.
  19. Olá! Eu estou no meio de um dilema, eu já tentei ir a vários sites e nunca consegui encontrar a resposta. Estou há já 1 semana a fazer um projeto que é o jogo da forca, e preciso de ajuda para que: -o programa procure se a letra escolhida existe na palavra a ser adivinhada e caso exista mude de um "_" para a letra, o máximo que consegui foi fazer o programa trocar apenas um letra, caso haja mais que uma, ele muda apenas a primeira, já agora, eu usei um array para depois escolher uma palavra aleatória, é o array palavras, aqui vai o código, e obrigado por qualquer ajuda local_letra = InStr(palavras(x), Tb_letra.Text) If local_letra <> 0 Then Mid(Lb_palavra.Text, local_letra, Len(palavras(x))) = Tb_letra.Text End If
  20. Boa tarde, tenho uma datagridviw com uma consulta da BD, e precisava de acrescentar a consulta já existente e apresentada outra consulta.
  21. Pedro Afoito

    Sistema de aprovações sequenciais

    Boa tarde. Foi-me pedido que desenvolvesse uma aplicação web, na qual os colaboradores da empresa possam efetuar alterações dos dados pessoais, bem como justificar faltas e marcar férias. Até aqui tudo bem. O meu problema reside no facto de as alterações não serem automáticas, dependendo de um circuito de aprovações sequenciais (chefia direta, chefe de departamento, direção de recursos humanos e administração). Se a solicitação for rejeitada por qualquer um dos níveis deverá ser automaticamente descartada, caso contrário passará para o nível seguinte. Peço ajuda para encontrar o melhor meio de implementar este sistema. A base de dados é em sql 2008, código em vb.net e asp.net 4.5
  22. Bom dia Programadores, como voces estão? Espero que bem. Estou desenvolvendo uma aplicação do vb.net(plataforma windows form) em 4 camadas. Apresentação, Endidade, Negocio e Dados. Por favor, o que preciso de ajuda de voces é o seguinte. Tenho um formulario onde preencho varias linhas do datagrid( uma lista de lançamentos) e preciso gravar todas essas linhas no sql pelo store procedure. Ja tenho criado este procedure tudo certo. Então, na camada de apresentação, dentro do Public Clas form1 ....End Class preciso criar alguma função que capture as informações do datagrid que posteriormente vai passar nas camadas seguintes, como negocio, entidade ate chegar na camada dados. Fiz um teste que funciona tudo certo com textbox e combobox. O codigo é assim: Function GetTipoDocto() As Integer Return CbTipoDocto.SelectedValue End Function Function GetConta() As Integer Return TxtContaContabil.Text End Function Como poderia construir uma função que percorra todas as linhas do datagrid? Obrigado
  23. Olá a todos! Estou a desenvolver um jogo do tipo Quem Quer ser Milionário, no âmbito de um curso profissional. Neste momento tenho todas as perguntas num ficheiro em que cada linha tem o seguinte formato: C1|Pergunta|RespostaCerta|RespostaErrada1|RespostaErrada2/RespostaErrada3|Pista O "C1" é uma referência para saber que aquele registo pertence à Categoria de Ciências e ao Nível1. Cada categoria vai ser 45 perguntas, divididas em 3 níveis de 15 perguntas. Dessas 15 perguntas, vão ser selecionados aleatoriamente 5 em cada nível. Fiz esta estrutura para ao ler conseguir selecionar a posição da substring que pretendo atribuir às labels no formulário: Structure Registo Dim codigo As String Dim pergunta As String Dim certa As String Dim errada1 As String Dim errada2 As String Dim errada3 As String Dim pista As String End Structure Do Until LerRegisto.Count = 15 Posicao1 = LerRegisto.IndexOf("|") + 1 Posicao2 = LerRegisto.IndexOf("|", Posicao1) + 1 Posicao3 = LerRegisto.IndexOf("|", Posicao2) + 1 Posicao4 = LerRegisto.IndexOf("|", Posicao3) + 1 Posicao5 = LerRegisto.IndexOf("|", Posicao4) + 1 Posicao6 = LerRegisto.IndexOf("|", Posicao5) + 1 With LinhaRegisto .codigo = LerRegisto.Substring(0, Posicao1 - 1) .pergunta = LerRegisto.Substring(Posicao1, Posicao2 - Posicao1 - 1) .certa = LerRegisto.Substring(Posicao2, Posicao3 - Posicao2 - 1) .errada1 = LerRegisto.Substring(Posicao3, Posicao4 - Posicao3 - 1) .errada2 = LerRegisto.Substring(Posicao4, Posicao5 - Posicao4 - 1) .errada3 = LerRegisto.Substring(Posicao5, Posicao6 - Posicao5 - 1) .pista = LerRegisto.Substring(Posicao6) End With ctdRegisto += 1 Loop Já tenho 2 rotinas para atribuir números aleatórios às perguntas e às respostas, respectivamente. Já testei a aleatoriamente das respostas e está a funcionar bem. O que não estou a conseguir fazer é selecionar aleatoriamente as perguntas de um determinado intervalo. Não sei onde guardar essa informação. Já tentei guarda as linhas de registo num vetor, mas não resultou. Agradecia a quem me pudesse ajudar.
  24. Olá boa tarde , fiz um pequeno programa em que tenho de separar os números pelo carácter (-) na minha ListBox ao sortear gostaria que fica-se assim : ex 1 - 12 - 14 - 20 - 32. Junto anexo o código. Desde já agradeço a vossa atenção. Imports System.Collections.Generic Imports System.Linq Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim quantosNumerosNalista As Integer = 20 Dim de As Integer = 1 Dim ate As Integer = 101 Dim result = Enumerable.Range(de, ate).OrderBy(Function(g) Guid.NewGuid()).Take(quantosNumerosNalista).OrderBy(Function(o) o).ToList() For Each num As Integer In result Listagem.Items.Add(num) Next End Sub End Class
  25. Bom dia! Antes de mais devo desde já dizer que já sei que o meu código é uma m****, mas eu comecei há pouco tempo a aprender, num curso profissional, estou a dar os primeiros passos e estou a tentar manter tudo o mais simples possível, a um nível que eu possa compreender. Objetivo do desafio proposto: Criar um jogo da memória Objetivo específico para esta questão que estou a colocar no fórum: Descobrir como é que posso gerar números aleatórios que não se repitam. Contexto: - Criei no formulário 16 PictureBox que vão receber imagem aleatórias. - As imagens a serem escolhidas aleatoriamente guardei-as numa ImageList (rescurso do próprio programa), que as numerou de 0 a 15. (Nota: Como preciso de 8 pares de imagens, coloquei 8+8, sendo as segundas repetidas mas com outro número.) - Através do código (muito simples) já criado, consegui de facto inserir imagens aleatórias da ImageList nas PictureBox, mas o número que identifica a imagem repete-se mais que 1 vez, o que leva a que haja várias imagens iguais e outras que nem aparecem. Código criado até agora: Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Randomize() Dim randInt As Integer randInt = CInt(Int((15 * Rnd())) + 0) PictureBox1.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox2.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox3.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox4.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox5.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox6.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox7.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox8.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox9.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox10.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox11.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox12.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox13.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox14.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox15.Image = ImageList1.Images(randInt) randInt = CInt(Int((15 * Rnd())) + 0) PictureBox16.Image = ImageList1.Images(randInt) End Sub End Class Gente, eu não estou a pedir que me façam o trabalho todo. Apenas que me tentem ajudar nesta questão específica e com uma solução o mais simples possível. Pode até haver uma instrução qualquer que evita que os números se repetiam, mas eu desconheço. Agradeço a quem puder ajudar.
×
×
  • Create New...

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.