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
    • 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,044 results

  1. PHonorato

    HTML (<br>) to String

    Boas, tenho uma duvida. Penso não ser nada complicado, mas estou aqui bloqueado e mais vale perguntar. Preciso de copiar um html, que contém <br> para uma string, mas que o <br> seja considerado texto e não uma nova linha. Ou seja, ....." style="width:850px"><br><br><iframe width="85...... fique na string precisamente o que está em cima e não ....." style="width:850px"> <iframe width="85...... Neste caso preciso de colocar html numa num campo de um ficheiro csv, e ao colocar o html ele está a fazer newlines em vez de colocar o <br> Penso que dê para entender o meu problema. Obrigado
  2. Boa Noite! Estou usando vb net 2017, tenho um form MDI que chama os outros formulários, para chamar os formulários uso o seguinte código: Ex: Dim frm As New frmProduto_Cadastro frm.MdiParent = Me frm.show() Esta funcionando para chamar os forms, o problema é o seguinte: -No MDI tenho um label e um picturebox, quando chamo o form Filho, ele abre o form, mas deixa o label e o picturebox na frente do form filho, então como faço para deixar o form filho por cima do label e do picture box ?
  3. Boa tarde. Sei que já existem alguns tópicos com este assunto mas estou um pouco (muito) confuso. Estou a desenvolver uma aplicação que terá de ter acesso à Autenticação do Cartão de Cidadão. Já tenho o middleware instalado. Inicialmente estava a tentar usar a eidpt.dll, mas dava-me erro de dependências. Usando a pteidlib_dotnet.dll está a dar o erro "PTEID Error Code : 9" a fazer eidpt.Pteid.GetID(). Alguém me pode dar uma ajuda? Obrigado.
  4. 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
  5. gastao

    Exportar datagrid to CSV

    boa noite, como posso exportar algumas colunas da minha datagridview e apenas as linhas que tem uma checkbox para um ficheiro csv. alguem me consegue ajudar
  6. Um Bem Aja a Todos Agradeço uma dica para esta questão. Tenho uma aplicação minha em que adicionei uma nova Form onde coloquei uma Datagridview e um BindingNavigator1. Introduzo os dados novos via Datagrid, e faço a gravação correspondente, tudo funciona. Só que após fazer o Select por Ano que funciona se quiser introduzir novos dados tenho que sair da aplicação porque o botão AddNew do BindingNavigator1 não adiciona nova linha na Datagridview
  7. Olá eu estou com um problema eu estou fazendo um programinha de IATF para meu irmão, em casa mesmo porém estou com um problema na hora de converter String para Double, O problema começa assim, eu tenho o maps que é um api da google importado no meu projeto, eu preciso que o usuário procura um endereço no map para setar uma marcação, tentei de tudo fazer isso no api mais não consegui , o que fiz foi uma adaptação peguei o web browser do vb.net mesmo seto a url do google maps e pego as coordenadas na hora de inserir no api do map a posição ele me pede que seja double eu faço a conversão ele se perde o ponto ai não funciona eu passo manualmente as coordenadas funciona perfeitamente código é esse ai urlConv = Me.WebBrowser1.Url.AbsoluteUri.ToString() If Not url = urlConv Then Me.WebBrowser1.Stop() Dim ConvertendoCoordenadas As String() = urlConv.Split("@") Dim coordenadas As String() = ConvertendoCoordenadas(1).Split(",") Dim logitude As String = coordenadas(0) Dim latitude As String = coordenadas(1) 'Na hora que converto eu perco o ponto 'Dim convertLogitude As Double = Convert.ToDouble(logitude) 'Dim convertLatitude As Double = Convert.ToDouble(latitude) With GMap 'Quando coloco aqui sem ponto não funciona '.Position = New GMap.NET.PointLatLng(logitude, latitude) .ZoomAndCenterMarkers(CType(vbNull, String)) .Zoom = 100 .ShowCenter = True End With GMap.Refresh() End If 'Tentei passar manualmente a string dentro desse parametro mais não funcionou GMap.SetPositionByKeywords("USA") 'Esse parametro não funciona tive que fazer tudo isso para funcionar o que queria
  8. Boas pessoal estou de volta no fórum para tirar uma duvida e vai ser bem rápido. Tenho minha aplicação funcional desenvolvida em vb.net o código tudo correto funciona redondo, Mas venho encarando um problema por estes dias com o justo app.config que ficam armazenadas as informações do my.settings O problema que acontece que ele apaga as linhas do XML de configurações isso acontece em algumas maquinas, Alguém sabe uma solução para isso.Já pensei em varias maneiras e ainda nao consegui solucionar o problema em questão...... Ex: Neste app.config fica na pasta C:\Users\MeuPc\AppData\Local\Nomedaaplicacao\ " Aqui fica o justo arquivo que não se de que forma em algumas maquinas ele apaga estas configurações e não funciona mais a aplicação pois dentro dele tem a localização do banco de dados e outras informações importantes para funcionamento do Software
  9. Olá Pessoal, Pretendo fazer ligação aos TPA's, ou seja, enviar o valor para lá para o utilizador não ter de inserir manualmente. Quem me pode dar indicações onde tirar/buscar/pedir a informação técnica dos TPA's para o efeito? Presumo que seja genérico, seja o TPA da empresa A, B ou C. Obrigado desde já!
  10. sou novato em vb.net e no forum e nem sei este é o lugar certo para expor duvidas. tenho um problema no código que estou tentar construir no visual studio com base de dado sql, com 16 campos dos quais 8 são do tipo data e quando tento cadastrar os dados ele me retorna ERRO AO CONVERTER DADOS DO TIPO NVARCHAR EM NUMERICO, tentei alterar os campos no sql e não resultou. Por falta de mais conhecimento da minha parte peço ajuda. Btn Ad Try If Txtnatureza.Text = String.Empty Or TxtLocal.Text = String.Empty Or Txtinvoicefor.Text = String.Empty Or Txtfactura.Text = String.Empty Then MessageBox.Show(" Obrigatório ", "Preenchimento") Return End If If TxtVos.Text = String.Empty Or TxtVimp.Text = String.Empty Or Txtnos.Text = String.Empty Then MessageBox.Show(" Obrigatório ", "Preenchimento") Return End If If id <> String.Empty Then cn.Open() cm = New SqlCommand("update tblBill_itens set data=@data,nos=@nos,qtd=@qtd,punitario=@punitario,desconto=@desconto, vcontrato=@vcontrato,vpago=@vpago,adenda=@adenda,contrato=@contrato,codpip=@codpip,ncontrato=@ncontrato, vadenda=@vadenda where id=@id and invoiceno=@invoiceno", cn) With cm.Parameters .AddWithValue("@data", DateTimePicker1OS.Value) .AddWithValue("@nos", Txtnos.Text) .AddWithValue("@qtd", CDbl(TxtVos.Text)) .AddWithValue("@punitario", CDbl(TxtVimp.Text)) .AddWithValue("@desconto", CDbl(Txtdesconto.Text)) .AddWithValue("@vpago", CDbl(TxtPago.Text)) .AddWithValue("@vcontrato", Txtvcontrato.Text) .AddWithValue("@adenda", Dtpadenda.Value) .AddWithValue("@contrato", MaskedTxtContrato.Text) .AddWithValue("@codpip", TxtPip.Text) .AddWithValue("@ncontrato", Txtncontrato.Text) .AddWithValue("@prazo", Txtprazo.Text) .AddWithValue("@vadenda", TxtVadenda.Text) ' .AddWithValue("@despacho", Txtdesp.Text) ' .AddWithValue("@despacho1", Dtpdesp.Value) ' .AddWithValue("@abertura", Dtpabertura.Value) '.AddWithValue("@carta", Txtcarta.Text) ' .AddWithValue("@carta1", Dtpconv.Value) ' .AddWithValue("@proposta", Dtpprosp.Value) ' .AddWithValue("@relpreliminar", Dtprelpre.Value) ' .AddWithValue("@final", Dtprelfinal.Value) '.AddWithValue("@perctg", TxtPrctg.Text) .AddWithValue("@id", id) .AddWithValue("@invoiceno", Txtfactura.Text) End With cm.ExecuteNonQuery() cn.Close() Else cn.Open() cm = New SqlCommand("insert into tblBill_itens(invoiceno,data, nos,qtd,punitario,desconto, vcontrato,vpago,adenda,contrato,codpip,ncontrato,prazo,vadenda )values(@invoiceno,@data,@nos,@qtd,@punitario,@desconto,@vcontrato, @vpago,@adenda,@contrato,@codpip,@ncontrato,@prazo,@vadenda)", cn) With cm.Parameters .AddWithValue("@invoiceno", Txtfactura.Text) .AddWithValue("@data", DateTimePicker1OS.Value) .AddWithValue("@nos", Txtnos.Text) .AddWithValue("@qtd", CDbl(TxtVos.Text)) .AddWithValue("@punitario", CDbl(TxtVimp.Text)) .AddWithValue("@desconto", CDbl(Txtdesconto.Text)) .AddWithValue("@vpago", TxtPago.Text) .AddWithValue("@vcontrato", Txtvcontrato.Text) .AddWithValue("@adenda", Dtpadenda.Value) .AddWithValue("@contrato", MaskedTxtContrato.Text) .AddWithValue("@codpip", TxtPip.Text) .AddWithValue("@ncontrato", Txtncontrato.Text) .AddWithValue("@prazo", Txtprazo.Text) .AddWithValue("@vadenda", TxtVadenda.Text) ' .AddWithValue("@despacho", Txtdesp.Text) ' .AddWithValue("@despacho1", Dtpdesp.Value) ' .AddWithValue("@abertura", Dtpabertura.Value) '.AddWithValue("@carta", Txtcarta.Text) ' .AddWithValue("@carta1", Dtpconv.Value) '.AddWithValue("@proposta", Dtpprosp.Value) '.AddWithValue("@relpreliminar", Dtprelpre.Value) ' .AddWithValue("@relfinal", Dtprelfinal.Value) ' .AddWithValue("@perctg", TxtPrctg.Text) End With cm.ExecuteNonQuery() cn.Close() End If 'UpdateBill() Loadrecords() ' Limpar() ' CalculadoraBill() id = "" Catch ex As Exception cn.Close() MsgBox(ex.Message, vbCritical) End Try
  11. fatjeronimo

    System.NullReferenceException

    Quando introduzo a nota ele dá-me o seguinte erro: System.NullReferenceException: 'A referência de objecto não foi definida como uma instância de um objecto.' O código é o seguinte: <Public Class Form1 Structure aluno Dim nome As String Dim notas() As Integer End Structure Dim al(10) As aluno Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim i, j As Integer ReDim Preserve al(10).notas(2) For i = 1 To 2 al(i).nome = InputBox("Nome") For j = 1 To 2 al(i).notas(j) = Val(InputBox(j & " ª Nota")) Next Next End Sub ... > O objetivo era ler para 11 alunos o nome e para cada a classificação a três disciplinas, mas dá-me erro ao ler a primeira nota ele dá o erro acima e Nome Valor Tipo al(i).notas Nothing Integer()
  12. Boa noite... Tenho varias tabelas na base de dados, mas uma tem dados encriptados queria ao carregar a DataGrid descodificar os dados dessa tabela para ver os dados corretos na coluna, como poderia fazer!? desde já obrigado...
  13. 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
  14. 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
  15. 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
  16. 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
  17. 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
  18. 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 ;(
  19. 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
  20. 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 ..?
  21. 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
  22. 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.
  23. 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.
  24. 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
  25. 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.../???
×
×
  • 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.