Jump to content

Search the Community

Showing results for tags 'vb.net'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Comunidade
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Apresentação de Projectos de Programação
    • Downloads
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • 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 e Automação Industrial
    • Matemática
    • Software de Contabilidade e Finanças
    • Dúvidas e Discussão de Programação
  • Outras Áreas
    • Notícias de Tecnologia
    • 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...

  1. Boa Noite alguém pode me um help para alinha exporta só que não estou conseguindo fazer o alinhamento das colunas com valores para direita Public Sub Exportar() Dim sfg As New SaveFileDialog sfg.FileName = '' sfg.Filter = 'Txt|*.txt' sfg.Title = ' Salvar/Exportar' If sfg.ShowDialog = Windows.Forms.DialogResult.OK Then Dim columnSizes As List(Of Integer) = New List(Of Integer)() For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1 columnSizes.Add(FrmCadastroProdutos.dgvProdutos.Columns(i).HeaderText.Length) Next For Each row As DataGridViewRow In FrmCadastroProdutos.dgvProdutos.Rows For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1 Dim valueString As String = Convert.ToString(row.Cells(i).Value) If valueString.Length > columnSizes(i) Then columnSizes(i) = valueString.Length Next Next Using writer As StreamWriter = New StreamWriter(sfg.FileName, False) For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1 Dim headerText As String = FrmCadastroProdutos.dgvProdutos.Columns(i).HeaderText writer.Write(headerText) If headerText.Length < columnSizes(i) Then writer.Write(New String(' 'c, columnSizes(i) - headerText.Length)) writer.Write('|') Next writer.WriteLine('') writer.WriteLine('===========================================================================================================================') For Each row As DataGridViewRow In FrmCadastroProdutos.dgvProdutos.Rows For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1 Dim valueString As String = Convert.ToString(row.Cells(i).Value) writer.Write(valueString) If valueString.Length < columnSizes(i) Then writer.Write(New String(' 'c, columnSizes(i) - valueString.Length)) writer.Write('|') Next writer.WriteLine('') writer.WriteLine('---------------------------------------------------------------------------------------------------------------------------') Next End Using End If End Sub
  2. Eu estou fazendo um relatório no excel usando a biblioteca eu estou usando uma Shapes.AddTextbox o meu grande problema é saber qual é a ultima linha que termina o texto escrito Tipo A36 para eu colocar os dados abaixo ou para eu saber a ultima linha da folha para eu colocar os texto abaixo tem como eu saber disso?
  3. Eu estou com problema na hora de exportar o relatório e imprimir usando o reportview, eu estou usando o visual studio 2019 e na hora de exportar o sistema para pdf ou qualquer plataforma como excel ele trava na hora de imprimir ele da um erro dizendo assim "Erro de operação", como posso solucionar isso?
  4. sabing

    Travamento

    Olá preciso de uma ajuda, não tenho idéia de como resolver , eu fiz um programinha em vb.net para fazer protocolamento de remédio de IATF , funciona legal do jeito que quero e também funciona na rede, normal só que tenho um bug que não consigo resolver e não tenho idéia de como resolver por isso entrei aqui no forum, quando eu faço uma lan usando servidor e cliente conectando no banco e o servidor cai o programa trava tudo isso é normal que o servidor caiu, porém quero implementar algum codigo que quando o servidor caí o programa desloga ou entra em modo invisivel até que o servidor voltar, se tiver alguma idéia que faça isso me ajuda toda vez que o usuario faz um sql vai nessa conexao Dim conSoftwareNow As New NpgsqlConnection("Server=" + ip + ";Port=" + porta + ";User Id=postgres;Password=*;Database=bdprotocolo;") conSoftware = conSoftwareNow normalmente ele trava nessa linha não vai nem para o catch Dim dr As NpgsqlDataReader = command.ExecuteReader() ai quando o servidor volta ele vai para o cacth
  5. If IsWindowVisible(hwnd) Then Dim text As String = Space(Int16.MaxValue) Dim pPid As Integer GetWindowText(hwnd, text, Int16.MaxValue) 'return integer value Dim tempprocess As Process GetWindowThreadProcessId(hwnd, pPid) tempprocess = Process.GetProcessById(pPid) text = tempprocess.MainWindowTitle If "Holyrics is free - v2.15.1 x64" = text Then End If End If Return True Bom dia. Estou a tentar programar o lançamento de executável, mas esse executável está a dar algumas dificuldades para ficar sendo controlado adequadamento, por isso queria experimentar guardar essa variavel process (neste caso a tempprocess) num ficheiro, uma vez que apos lançar esse executável algumas coisas mudam no processo original. Queria experimentar guardar a variável tempprocess num ficheiro, carregar o ficheiro e executar o executável. Mas não me lembro dos códigos para guardar esta variável. Pretendo guardar apenas quando o seu Mainwindow title estiver como definido no codigo.
  6. Bom dia, estou a completar o meu 12ºano e neste momento estou a fazer a PAP, o meu projeto consiste em um programa simples de gestão uma empresa empresa imobiliária. no entanto fiquei parado pois preciso de uma base de dados com as localizações( distrito, conselho, freguesia, rua e código postal e seus ID's) no entanto encontro sempre ou base de dados muito antigas, sem código postal ou com os nomes separados. Ninguém tem uma base de dados "simples" que possa enviar por favor? Ficava plenamente agradecido e adiantava muito o meu trabalho. Obrigado.
  7. Boa tarde a todos, Espero que exista uma alma milagrosa aqui que me consiga ajudar, agradeço desde já qualquer ajuda. Estou atualmente a desenvolver um projeto Web em ASP.net e VB.net e preciso de integrar a leitura do cartão de cidadão. Por exemplo carregar campos como nome, niss, nif, etc ... (todos os campos que preciso de carregar não necessitam de chave digital.) Acontece que neste momento eu consigo fazer a leitura e carregar tudo que preciso porém apenas a nível local, quando coloco no nosso servidor não é detetado sequer o leitor do utilizador. Já vi praticamente tudo que poderia ver a nível de documentação para entender onde está o erro porem não está nada fora do comum (a meu ver), já pesquisei em vários tópicos aqui do fórum porem não encontrei nada neste sentido. Já testei algumas situações que aqui vi mas o erro é sempre o mesmo. Este é o meu código. pt.portugal.eid.PTEID_ReaderSet.initSDK() Dim Card As pt.portugal.eid.PTEID_EIDCard Dim ContextReadr As pt.portugal.eid.PTEID_ReaderContext Dim ReaderSet As pt.portugal.eid.PTEID_ReaderSet ReaderSet = pt.portugal.eid.PTEID_ReaderSet.instance() If ReaderSet.readerList.Count < 0 Then pt.portugal.eid.PTEID_ReaderSet.releaseSDK() alerta.emitirnotificacao("Não foi detetado qualquer leitor de Cartões", "delete") Exit Sub End If For i As Integer = 0 To ReaderSet.readerCount() - 1 ContextReadr = ReaderSet.getReaderByNum(i) If ContextReadr.isCardPresent() Then Card = ContextReadr.getEIDCard() End If Next 'Verificar se o cartão está no sistema (leitor) Dim CardState As Boolean = ContextReadr.isCardPresent If CardState = True Then dropidentificacao.SelectedValue = 5 Dim eid As pt.portugal.eid.PTEID_EId = Card.getID Dim NomeAluno As String = eid.getGivenName + " " + eid.getSurname txtnome.Text = Generico.Fcn_FormatoTexto(Generico.Fcn_FormatoTexto(NomeAluno, "L"), "T") dropsexo.SelectedValue = eid.getGender Dim AnoValCC = Trim(eid.getValidityEndDate.Substring(5, 5)) Dim DiaValCC = eid.getValidityEndDate.Substring(0, 2) Dim MesValCC = eid.getValidityEndDate.Substring(3, 2) Dim AnoNasc = Trim(eid.getDateOfBirth.Substring(5, 5)) Dim DiaNasc = eid.getDateOfBirth.Substring(0, 2) Dim MesNasc = eid.getDateOfBirth.Substring(3, 2) txtdatanascimento.Text = AnoNasc + "-" + MesNasc + "-" + DiaNasc 'txtdatanascimento.Text = eid.getDateOfBirth txtvalidadebi.Text = AnoValCC + "-" + MesValCC + "-" + DiaValCC txtnidentbi.Text = eid.getCivilianIdNumber.Substring(0, 8) txtnumerocontrolo.Text = eid.getCivilianIdNumber.Substring(8) txtnutente.Text = eid.getHealthNumber txtsegsocial.Text = eid.getSocialSecurityNumber txtnif.Text = eid.getTaxNo Dim NomeMae As String = eid.getGivenNameMother + " " + eid.getSurnameMother txtnomemae.Text = Generico.Fcn_FormatoTexto(Generico.Fcn_FormatoTexto(NomeMae, "L"), "T") 'eid.getGivenNameMother + " " + eid.getSurnameMother Dim NomePai As String = eid.getGivenNameFather + " " + eid.getSurnameFather txtnomepai.Text = Generico.Fcn_FormatoTexto(Generico.Fcn_FormatoTexto(NomePai, "L"), "T") Dim Path As String = Guid.NewGuid().ToString Dim Caminhofoto As String = eid.getPhotoObj.getphoto.writeToFile(Server.MapPath("Fotos\alunos\" & Path.ToString & ".jpg")) ModuloAlunos.setdadosdoaluno(Request.QueryString("id"), "Foto", "alunos\" & Path.ToString & ".jpg") Imagefotografia.ImageUrl = "Fotos\alunos\" & Path.ToString & ".jpg" UpdatePanelfoto.Update() Else alerta.emitirnotificacao("Primeiro tem de inserir o cartão no leitor e depois carregar no botão ", "delete") End If Uma vez mais agradeço qualquer ajuda.
  8. Ola estou a desenvolver um trabalho para a escola o programa mostra nos locais onde pudemos lavar o nosso carro e o custo da lavagens antes tinha (me.databinding.movenext(ou previous se fosse o caso)). só que depois o que acontecia era que ao criar novos registos na base de dados os novos registos não eram vistos nos botões ao ter esse problema resolvi colocar uma datagriedview e sempre que clica-mos numa linha mostra nos os dados de cada empresa. Como é um instrumento de avaliação gostava que tivesse a parte gráfica apresentável dai querer usar aqueles botões Se me puderem ajudar ficaria grato Cumprimentos aguardo resposta :3 (mods se tiver feito algo errado desculpem é o meu 1 post) Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'Database1DataSet.Empresas' table. You can move, or remove it, as needed. userlbl.Text = My.Settings.Nome Me.HorizontalScroll.Maximum = 0 Me.AutoScroll = True Try Dim sql As String Dim cmd As New OleDb.OleDbCommand Dim dt As New DataTable Dim da As New OleDb.OleDbDataAdapter DBcon.Open() sql = "Select * from Empresas" cmd.Connection = DBcon cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt) DataGridView1.DataSource = dt tbid.Text = DataGridView1.CurrentRow.Cells(0).Value lblestabelecimento.Text = DataGridView1.CurrentRow.Cells(1).Value btnpreco.Text = DataGridView1.CurrentRow.Cells(2).Value btnpagamento.Text = DataGridView1.CurrentRow.Cells(3).Value btnemail.Text = DataGridView1.CurrentRow.Cells(4).Value btntelefone.Text = DataGridView1.CurrentRow.Cells(5).Value btnhorario.Text = DataGridView1.CurrentRow.Cells(6).Value btnendereco.Text = DataGridView1.CurrentRow.Cells(7).Value btndistrito.Text = DataGridView1.CurrentRow.Cells(8).Value Catch ex As Exception MsgBox(ex.Message) Finally DBcon.Close() End Try End Sub Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick tbid.Text = DataGridView1.CurrentRow.Cells(0).Value lblestabelecimento.Text = DataGridView1.CurrentRow.Cells(1).Value btnpreco.Text = DataGridView1.CurrentRow.Cells(2).Value btnpagamento.Text = DataGridView1.CurrentRow.Cells(3).Value btnemail.Text = DataGridView1.CurrentRow.Cells(4).Value btntelefone.Text = DataGridView1.CurrentRow.Cells(5).Value btnhorario.Text = DataGridView1.CurrentRow.Cells(6).Value btnendereco.Text = DataGridView1.CurrentRow.Cells(7).Value btndistrito.Text = DataGridView1.CurrentRow.Cells(8).Value End Sub
  9. Sou estudante de Programação e nunca tinha usado VBA e tenho de entregar um trabalho, mas nunca tive formação nesta linguagem, e estou a ter problemas no programa na parte de Pesquisar registros com filtros, já tentei ao máximo fazer seguindo tutoriais na internet, vídeo aulas e fórum mas está sempre a dar erro e não consigo resolver. Fico muito agradecido se alguém me conseguir ajudar. Link do Programa: https://drive.google.com/file/d/1qBprlBRX8eg8wRoK2_Yy_UZ3pfisrzWj/view?usp=sharing
  10. Olá a todos! Sou novo neste fórum, por isso peço desculpa se cometer algum erro ao colocar a minha dúvida. Estou a fazer um programa que consiste numa máquina de vendas. Para a pessoa conseguir "introduzir dinheiro na máquina", necessita de digitar numa TextBox o valor que deseja introduzir e, depois, clicar num botão para que "o pagamento seja efetuado" e seja apresentada a "fatura". No entanto, a TextBox está associada a uma variável do tipo Decimal e se a pessoa digitar uma letra ou qualquer outro dígito que não seja numérico e, de seguida, clicar no botão, o programa dá erro. O que queria fazer é que, quando a pessoa digitasse uma letra ou outro dígito não numérico, o meu programa apresentasse uma mensagem numa Label a dizer "Quantia inválida!". Para além disso, queria que o programa aceitasse valores décimais com pontos e não somente com vírgulas. Não estou a conseguir fazer nada disso e já procurei na Internet, mas não estou a achar exatamente o que eu quero. Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click Dim trocoA, trocoC, quantia, trocoB, trocoS, preçoA, preçoC, preçoB, preçoS As Decimal preçoA = 0.2 preçoC = 1.0 preçoB = 0.8 preçoS = 0.9 trocoA = quantia - preçoA trocoC = quantia - preçoC trocoB = quantia - preçoB trocoS = quantia - preçoS If Label1.Text = "Produto: Água 500 ml" & vbNewLine & "Preço: 0.20€" And quantia >= preçoA Then Label1.Text = "Produto: Água 500 ml" & vbNewLine & "Valor a pagar: 0.20€" & vbNewLine & "Valor inserido:" & quantia & "€" & vbNewLine & "Troco:" & trocoA & "€" & vbNewLine & "Compra efetuada com sucesso!" ElseIf Label1.Text = "Produto: Água 500 ml" & vbNewLine & "Preço: 0.20€" And quantia < preçoA Then Label1.Text = "Quantia insuficiente!" ElseIf Label1.Text = "Produto: Chocolate" & vbNewLine & "Preço: 1.00€" And quantia >= preçoC Then Label1.Text = "Produto: Chocolate" & vbNewLine & "Valor a pagar: 1.00€" & vbNewLine & "Valor inserido:" & quantia & "€" & vbNewLine & "Troco:" & trocoC & "€" & vbNewLine & "Compra efetuada com sucesso!" ElseIf Label1.Text = "Produto: Chocolate" & vbNewLine & "Preço: 1.00€" And quantia < preçoC Then Label1.Text = "Quantia insuficiente!" ElseIf Label1.Text = "Produto: Bolachas" & vbNewLine & "Preço: 0.80€" And quantia >= preçoB Then Label1.Text = "Produto: Bolachas" & vbNewLine & "Valor a pagar: 0.80€" & vbNewLine & "Valor inserido:" & quantia & "€" & vbNewLine & "Troco:" & trocoB & "€" & vbNewLine & "Compra efetuada com sucesso!" ElseIf Label1.Text = "Produto: Bolachas" & vbNewLine & "Preço: 0.80€" And quantia < preçoB Then Label1.Text = "Quantia insuficiente!" ElseIf Label1.Text = "Produto: Sumo" & vbNewLine & "Preço: 0.90€" And quantia >= preçoS Then Label1.Text = "Produto: Sumo" & vbNewLine & "Valor a pagar: 0.90€" & vbNewLine & "Valor inserido:" & quantia & "€" & vbNewLine & "Troco:" & trocoS & "€" & vbNewLine & "Compra efetuada com sucesso!" ElseIf Label1.Text = "Produto: Sumo" & vbNewLine & "Preço: 0.90€" And quantia < preçoS Then Label1.Text = "Quantia insuficiente!" End If
  11. HQuintas

    Novos erros SQLite

    Boas, Novos erros após actualização SQLite. Recentemente fiz um upgrade de uma máquina para windows 10 64 bits, actualizei a dll do sqlite para a versão 1.0.113.0 mas só tem surgido problemas. Para adicionar um novo registo tinha a seguinte rotina: If existe() = False Then strSQL = "INSERT INTO clientes (id,nome,morada1,morada2,codpostal,local,tel,movel,nif,email) " & "VALUES (@id,@nome,@morada1,@morada2,@codpostal,@local,@tel,@movel,@nif,@email)" Else strSQL = "UPDATE clientes set id=@id,nome=@nome,morada1=@morada1,morada2=@morada2,codpostal=@codpostal,local=@local,tel=@tel,movel=@movel,nif=@nif,email=@email WHERE id=@id" End If Dim cmd As New SQLiteCommand(strSQL, connection) connection.Open() With cmd.Parameters .Add("@id", SqlDbType.Int).Value = txt_numcli.Text .Add("@nome", SqlDbType.VarChar).Value = txt_nome.Text .Add("@morada1", SqlDbType.VarChar).Value = txt_morada1.Text .Add("@morada2", SqlDbType.VarChar).Value = txt_morada2.Text .Add("@codpostal", SqlDbType.VarChar).Value = txt_codpos.Text .Add("@local", SqlDbType.VarChar).Value = txt_localidade.Text .Add("@tel", SqlDbType.VarChar).Value = txt_tel.Text .Add("@movel", SqlDbType.VarChar).Value = txt_movel.Text .Add("@nif", SqlDbType.Int).Value = txt_nif.Text .Add("@email", SqlDbType.VarChar).Value = txt_email.Text End With cmd.ExecuteNonQuery() connection.Close() frm_orca_lista.txt_num_cliente.Text = txt_numcli.Text frm_pesqCliente.Close() Me.Close() Como posso resolver? Será que é a versão certa?...? Também para ler, tenho que alterar as rotinas. O que funcionava bem deixou de funcionar.
  12. Bom dia a todos, este é o meu primeiro post no Portugal a Programar, então por favor corrigem-me se algo neste post estiver errado. Como muitos sabem agora é necessários os talões saírem com um QRCode. Tentei já converter o QRCode para BMP, e mesmo assim a impressora não me imprime nenhum QRCode, ele até ignora as linhas de código de imprimir a imagem. Alguém tem solução para isto? Se tiverem para C# também serve... Agradeço imenso aqueles que me poderem ajudar. A minha impressora é uma Eurosys T9, consigo imprimir QRCode sem problema usando uma aplicação no meu telemóvel android, portanto suporta QRCodes. Muito obrigado a todos.
  13. Oi Tenho uma aplicação criada em vb .net tem corrido em várias máquinas sem problemas. Recentemente montei um novo pc com windows 10 64bits. Instalei o meu executável, mas quando faço para o executar não faz nada, nem sequer um erro. (simplesmente abre e fecha a aplicação) Já tentei o modo de compatibilidade e nada. Como resolver? Obrigado
  14. miglaranjeira

    Crystal Reports 13 VB.net 2019

    Olá a todos Estou a desenvolver uma aplicação em que os dados estão num servidor de SQL e que o servidor é um parametro alterado em runtime. Funciona tudo muito bem até que coloco o programa a trabalhar num outro computador. Aí pede-me logon ao imprimir o relatório. No meu computador corre tudo bem mesmo quando abro a partir do executável. Obrigado
  15. Boa noite, estou a usar o seguinte código para converter uma imagem para formato raster e posteriormente enviar para a impressora por motivos de compatibilidade e requisitos dos QRCode, mas está a acontecer o que aparece na imagem, alguém já passou pelo mesmo? já testei em vários modelos acontece o mesmo. Public Shared Function ConvertImagetoBytes(BM As Bitmap) As Byte() Dim Data As BitMapData = GetBitmapData(BM) Dim Op As New MemoryStream Dim bw As New BinaryWriter(Op) bw.Write(Chr(Keys.Escape)) bw.Write("@"c) bw.Write(Chr(Keys.Escape)) bw.Write("3"c) bw.Write(CByte(24)) Dim offset As Integer = 0 Dim width As Byte() While offset < Data.Height bw.Write(Chr(Keys.Escape)) bw.Write("*"c) bw.Write(CByte(33)) width = BitConverter.GetBytes(Data.Width) bw.Write(width(0)) bw.Write(width(1)) For x As Integer = 0 To Data.Width - 1 For k As Integer = 0 To 2 Dim slice As Byte = 0 For b As Integer = 0 To 7 Dim y As Integer = (((offset \ 8) + k) * 8) + b Dim i As Integer = (y * Data.Width) + x Dim v As Boolean = False If i < Data.Dots.Length Then v = Data.Dots(i) End If slice = slice Or CByte((If(v, 1, 0)) << (7 - b)) Next bw.Write(slice) Next Next offset = offset + 24 bw.Write(vbLf.ToCharArray) End While bw.Write(Chr(Keys.Escape)) bw.Write("2"c) bw.Write(CByte(30)) bw.Flush() Return Op.ToArray End Function Private Shared Function GetBitmapData(BM As Bitmap) As BitMapData Dim threshold = 127 Dim index As Integer = 0 Dim dimensions As Integer = BM.Width * BM.Height Dim dots As BitArray = New BitArray(dimensions) Dim res As New BitMapData Dim a As Integer For y = 0 To BM.Height - 1 For x = 0 To BM.Width - 1 Dim col As Color = BM.GetPixel(x, y) Dim luminance = CInt(col.R * 0.3 + col.G * 0.59 + col.B * 0.11) If (luminance < threshold) = True Then a = 1 End If dots(index) = (luminance < threshold) index = index + 1 Next Next res.Dots = dots : res.Height = BM.Height : res.Width = BM.Width Return res End Function Private Class BitMapData Public Dots As BitArray Public Height As Int16 Public Width As Int16 End Class imagem do problema.
  16. djbarbas

    Dúvida em UserControl

    Olá a todos! Considerando o cenário em que tenho um formulário (Form1) composto por um botão (BtForm1) e um UserControl (UsrCtr1) composto igualmente por um outro botão (BtUsrCtr1). O UsrCtr1 tem declarada uma variável pública do tipo boolean inicializada a False (Public teste as Boolean = False). O BtUsrCtr1 tem como objetivo passar a variável anterior a True (teste = True) E finalmente o BtForm1 tem como objetivo informar o utilizador do estado desta mesmo variável (msgbox(teste). Ao executar o programa, clicando primeiramente no botão no BtUsrCtr1 e seguidamente no BtForm1 obtenho sempre o valor de False, De que forma poderei ultrapassar este problema mantendo sempre o botão do UserControl. Obrigado!
  17. Um bem aja a todos Estou confuso com esta situação. Tenho um select por data que apenas retorna 1 registo, quando na BaseDados access tenho 6 registos com a mesma data. DateTimePicker1.Value = #12/11/2020 10:46:26 AM# sDataInicio ="2020/12/11" Coluna BaseDados =2020/12/11 Estou a usar VisualStudio 2015 Community Agradeço uma dica para resolução da situação Resolução - Quando passei a BD para extenção mdb no access o campo data passou a texto Dim sDataInicio = Format(DateTimePicker1.Value, "Short Date") Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\DespesasPessoaisHP\DespesasPessoaisHP\DespesasPessoaisFamiliares.mdb;") Dim Query As String = "SELECT Id,Data,Designacao,Despesa,Categoria,SubCategoria,Familiar FROM DadosActuais Where Data = #" & sDataInicio & "# Order By Id" Dim DataAdapter As New OleDbDataAdapter(Query, ConnectionString) Dim MyData As New DataSet DataAdapter.Fill(MyData, "DadosActuais") ' Neste caso utilizei uma datagridview para visualizar os dados Me.DataGridView1.DataSource = MyData.Tables("DadosActuais") 'Conta as linhas da Grid e coloca na Label Label1.Text = "Este Filtro encontrou - " & Me.DataGridView1.RowCount - 1 & " Registos" Button2.Enabled = False Call ControlaGrid() ' Call SomarColunas() ConnectionString.Close()
  18. Olá, estou a criar um projeto no visual basic que consiste em construir uma slot machine. No entanto, é obrigatório que quando os 3 números são iguais apareça uma imagem a dizer joker. Porém, já tentei de tudo e não consigo fazer com que isso aconteça. Alguém me pode ajudar?
  19. Olá a todos! Já faço desenvolvimento em VB.NET a algum tempo. Embora tenha tido programação na escola (Pascal, C++ e VB6) acabei por alguns anos depois do ambiente escolar por migrar para esta nova linguagem de uma forma auto didática pelo que em algumas vezes julgo que poderei não estar a adotar as melhores práticas na realização de uma determinada Acão. No caso em concreto que apresento hoje aqui tem haver com a forma de acessos a Bases de Dados, no meu caso específico a Bases de Dados Microsoft SQL Server. Em todas as aplicações que desenvolvo e que necessitam acesso a uma base de dados, faço através da criação de algumas variáveis e instanciação de alguns objectos num módulo de forma a ficar visível em todo o projeto. Estas variáveis são: mssql_cn (SqlClient.SqlConnection) -> Guarda a String de ligação ao Servidor MSSQL mssql_db (String) -> Define a Base de Dados a usar mssql_cmd (SqlClient.SqlCommand) -> Objeto em que defino e executo uma determinada query mssql_dr (SqlClient.SqlDataReader) -> Objecto que recebe o resultado do mssql_cmd, caso este seja um "Select" Abaixo um exemplo de que forma faço uma query através deste modelo: Try If Not mssql_cn.State = ConnectionState.Open Then mssql_cn.Open() mssql_cmd.Connection = mssql_cn ' Só executo esta linha uma única vez em toda a aplicação If Not mssql_cmd.Connection.State = ConnectionState.Open Then mssql_cmd.Connection.Open() mssql_cmd.Parameters.Clear() mssql_cmd.CommandText = "SELECT ref, nome, morada FROM Clientes Where ref = @Ref" mssql_cmd.Parameters.Add("@Ref", SqlDbType.NVarChar).Value = txt_ref.text mssql_dr = mssql_cmd.ExecuteReader If mssql_dr.HasRows Then While mssql_dr.Read datagridview1.rows.add(mssql_dr(0), mssql_dr(1)) End While Else MsgBox("Não foi encontrado registos", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.ToString, MsgBoxStyle.Critical) Finally mssql_dr.Close() mssql_cmd.Parameters.Clear() mssql_cmd.Connection.Close() mssql_cn.Close() End Try Com base no código acima, gostaria de ter a vossa opinião sobre defeitos e más práticas que possam existir e de que forma poderei melhorar ou reformular por completo este código. Sei que há outras alternativas como o Linq e DataTables, gostaria de saber a vossa opinião. Obrigado desde de já a todos!
  20. vinha pedir ajuda neste momento tendo um resultado de um json em colocar esse resultado numa class
  21. Olá, eu gostaria de sabe se tem como fazer um script somente dos dados inseridos e feito update pelo meu sistema no PostgreSQL não é um backup total seria tipo parcial somente feito tipo um backup por data ?
  22. 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
  23. 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
  24. 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
  25. 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
×
×
  • 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.