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...

Joined

  • Start

    End


Group


Website


GitHub


LinkedIn


Twitter


Facebook

  1. Um bem haja a todos Pretendo mover uma OvalShape lentamente, estou a utilizar este código, mas não funciona Agradeço ajuda. Obrigado Dim X As Integer X = X + 1 OvalShape19.Location = New Point(57 + X, 453) If X = 5 Then Timer1.Stop() End If
  2. Desenvolvo um aplicativo Android (em blocos do KODULAR para celular SAMSUNG) e um software Windows (em VB.NET para NOTEBOOK E PC COM WINDOWS 10) Tenho que compartilhar via internet um arquivo texto CSV que usarei como base de dados. Pensei em uma rede local, mas não dá pois os celulares estarão em outro WIFI ou usarão rede de dados de operadoras de celulares. Pensei em usar um app de compartilhamento do clipboard mas não achei um facil, gratuito (sem propaganda) e bem pratico. Como fazer ?. Alguma ideia boa e pratica ?. Algum site de compartilhamento de arquivo que fornece um endereço que possa ser acessado pelos softwares e aplicativos ? Obrigado pela ajuda 🙂
  3. Olá pessoal ! Estou tentando enviar imagem por e-mail com form.vb, Até consigo o feito, mas, no recebimento a imagem vem com nomeada como seção1,2 e não aparece no corpo da mensagem, também gostaria de enviar uma lista de imagens no corpo do e-mail, se alguém poder ajudar agradeço, a principio o mais importante é ao menos uma imagem, mas que quando visualize o e-mail apareça incorporada. Segue código. Dim Msg As String = "<html> <body> <table width=""100%""> <tr> <td style=""font-style:arial; color:maroon; font-weight:bold""> E-mail <br> <img src=cid:myImageID> </td> </tr> </table> </body> </html> body = Msg Dim mail As MailMessage = New MailMessage() mail.IsBodyHtml = True Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString(body, Nothing, "text/html") Dim theEmailImage As LinkedResource = New LinkedResource("Passaro.png") theEmailImage.ContentId = "myImageID" htmlView.LinkedResources.Add(theEmailImage) mail.AlternateViews.Add(htmlView) mail.From = New MailAddress("De") mail.[To].Add("Para") mail.Subject = TxtMensagem.Text Dim cred As System.Net.NetworkCredential = New System.Net.NetworkCredential("Meu email", "Chave") Dim smtp As SmtpClient = New SmtpClient("smtp.gmail.com", 587) smtp.EnableSsl = True smtp.DeliveryMethod = SmtpDeliveryMethod.Network smtp.UseDefaultCredentials = False smtp.Credentials = cred smtp.Send(mail)
  4. Um Bem Aja a Todos Tenho este código e não sei como substituir o valor numérico do control Panel? pelo valor X do ciclo For Dim ctrl As Control For X As Integer = 1 To 10 Step 3 For Each ctrl In Panel?.Controls If TypeOf (ctrl) Is Label Then If ctrl.BackColor = Color.Yellow Then MsgBox("TESTE") RadioButton3.Checked = True Exit For End If End If Next Next Agradeço desde já a atenção
  5. Boa tarde galera, Tenho uma aplicação no Visual Basic 2019 com MySQL. No MySQL tenho um campo com nome "termino", varchar(3) que armazena "Sim" ou "Não". Na aplicação tenho um select que não funciona e no MySQL funciona perfeitamente. Segue abaixo o select: sql = "SELECT * FROM tbl_Avaliacoes WHERE termino = 'Sim' ORDER BY nome ASC"
  6. Bom dia a todos Tenho uma aplicação que estava a funcionar bem e que de um momento para o outro deixou de gravar os dados na Base Dados Access ao correr normalmente fora do Visual Studio. Se correr a aplicação dentro do Visual Studio grava os dados bem, por fora não grava os dados na tabela. O Caminho do Data Source é - C:\Users\Justino\Documents\Visual Studio 2015\Projects\TotoMilhoesNovo\TotoMilhoesNovo\GuardarResultadosDataSet.xsd A pasta na arvore tem o nome "Documentos" no data source aparece Documents. Tentei criar um novo Data Source e vai buscar o nome da pasta Documents Agradeço ajuda desde já a fim de repor a aplicação a funcionar normalmente
  7. Um bem Aja a Todos Estou a construir uma aplicação que tem 2 Form's e que vão inserir dados numa Base Dados Access. Sucede que ao fazer Start no Visual Studio funciona normalmente, se criar um atalho para o ambiente de trabalho o executavel não abre. Agradeço uma ajuda desde já Resolvido Não sei como tive de desactivar a cx "Save my settings on Shutdown nas propriedades/Application
  8. Bom dia, pessoal estou tendo dificuldade para montar isso, atualmente estou utilizando assim : Select Case ComboBox2.SelectedIndex Case 0 SkinParam.Text = "" PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/0.jpg" SkinParam.Text = "0" Case 1 SkinParam.Text = "" PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/1.jpg" SkinParam.Text = "1" Case 2 SkinParam.Text = "" PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/2.jpg" SkinParam.Text = "2" Então ao selecionar a case 0 ele ira apresentar a imagem nº 0 na pasta e mostrar o código 0 no textbox Mais eu gostaria de limpar esse código pois vai até a imagem 1000 por diante então comecei a fazer desta forma : Public Sub CarregarListaSkin() ComboBox2.Items.Clear() Dim lineOfContents As String() = IO.File.ReadAllLines("Data\SkinList\ListSkin.txt") For Each line In lineOfContents Dim nomes As String() = line.Split("|"c) ComboBox2.Items.Add(nomes(1)) Next For Each line In lineOfContents Dim nomes As String() = line.Split("|"c) ComboBox3.Items.Add(nomes(0)) Next End Sub Então assim ele puxa o nº da skin e o nome da skin a partir de um arquivo de texto com os dados : 1| Skin de Testes 2| Skin de 2 Assim por diante até 1000+ As imagens estão numeradas conforme o nome Skin de 2 com a foto 2.jpg Seria possível agora ao click combobox ele carregar a imagem conforme o numero apresentado na combobox3 ? Por que se for usar desta forma : PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/0.jpg" Toda vez que for agregar mais uma eu vou ter que entrar na soucer e colocar a informação na case manual, ou deixar já configurado as cases mais e muita informação desnecessária. Mexendo pensei em fazer desta forma : Private Sub CarregarImagem() PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/erro.png" If ComboBox3.Text = "1" Then PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/1.jpg" End If If ComboBox3.Text = "2" Then PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/2.jpg" End If End Sub Porém repete o problema de deixar o código fonte já pronto se eu for adicionar algo mais tenho que mexer dentro da soucer. Obrigado.
  9. Eu queria criar uma barra de menu que controlava as janelas abertas da minha aplicação, não tenho ideia de como fazer, vou mandar uma imagem para entender , tipo assim só que aparece os icones quando minimizar ou abri um formulario "Segue a imagem, não conseguir colocar na postagem" https://uploaddeimagens.com.br/imagens/t7n6QMU Tipo quando abrir a janela cria-se um icone na barra embaixo eu clica-se para minimizar ela ia para baixo ou clica-se abria novamente a janela "Segue a imagem, não conseguir colocar na postagem" https://uploaddeimagens.com.br/imagens/Uk5x5QE tem como fazer isso? o que eu deveria usar?
  10. Boa tarde, eu estou com dificuldade de fazer uma lógica de remover dados repetidos em um datagridview , exemplo na tabela tem 4 valores e tenho 1 valor repetidos eu preciso indetificar um valore repetido e remover esse valor eu fiz um lógica , mais não funciona corretamente pode me ajudar Sub Limpar_dados_repetidos() If TabelaFazenda.Rows.Count() > 1 Then For j As Integer = TabelaFazenda.Rows.Count() - 1 To 0 Step -1 Dim s As Boolean = False For x As Integer = 0 To TabelaFazenda.Rows.Count() - 1 If TabelaFazenda.Rows(x).Cells(0).Value = TabelaFazenda.Rows(j).Cells(0).Value Then If s = False Then TabelaFazenda.Rows(x).DefaultCellStyle.BackColor = Color.Red s = True End If End If Next Next For j As Integer = TabelaFazenda.Rows.Count() - 1 To 0 Step -1 If TabelaFazenda.Rows(j).DefaultCellStyle.BackColor = Color.Red Then Me.TabelaFazenda.Rows.RemoveAt(j) End If Next End If End Sub
  11. Tenho tabela com 3 campos poe exemplo (strCodigo, strDescrição, intOrdem) strCodigo é tipo char e é chave da tabel strDescriao tipo char intOrdem é int, guarda a ordem na tabela. Carrego um dataset (ds) através do SqlDataAdapter e inicio um SqlCommandBuilder. Atribuo ao datagridview.DataSource=ds Seleciono uma linha do datagridview e clico num botão para executar uma alteração em algumas linhas no campo intOrdem Quando faço o update da tabela, os dados são atualizados exceto o registo da linha que estava selecionada. Já tentei, CurrentCell = Nothing , já tentei tudo e não consigo ver onde está o problema. Nunca atualiza a linha que estava selecionada.
  12. Boa noite Estou tentando abrir um hiperlink por meio de uma labellink com o seguinte comando no eventclick System.Diagnostics.Process.Start("www.google.com") porem da o seguinte erro : System.ComponentModel.Win32Exception: 'O sistema não pode encontrar o arquivo especificado.' Então tentei : Process.Start("http://website.com/profile.php?id=") Segue o mesmo erro : System.ComponentModel.Win32Exception: 'O sistema não pode encontrar o arquivo especificado.' Poderiam me ajudar a abrir pagina web pelo comando ? Obrigado.
  13. Bom dia estou tendo problema para excluir dados no sql com múltiplas condições no vb net por meio de combobox comando : Using cn = New SqlConnection(StrCon) cn.Open() Dim sql As String = "Delete from dbo.Clientes where AccountID='" & ComboBox1.Text & "'" And " Tipo='" & ComboBox2.Text & "'" Using cmd = New SqlCommand(sql, cn) cmd.ExecuteNonQuery() End Using End Using Esta me retornando o erro System.InvalidCastException: 'Conversion from string "Delete from Clientes whe" to type 'Long' is not valid.' Poderia me ajudar ? Obrigado .
  14. Eu tenho que fazer um calculo para reajustar a quantidade , de duas variáveis , vaca cheia = 20 vaca vazia = 2 total = 22 15 animais inseminados, dentre esses 15 animais irão ter uma seleção de novo que vai ser exemplo : 11 vacas vazias 4 vacas cheias total de 15 animais eu fiz um algoritmo, porém o calculo não está certo, queria uma ajuda Tem hora que o calculo da errado, tem hora que da certo? eu acho que a lógica está errada, pode me ajudar??? 'Aqui eu crio uma variavel de reajuste Dim vacaVazia As integer = 20 dim vacaCheia As integer =2 Dim var As Integer = VaziaN - CheiaN Dim vcr As Integer = CheiaN - VaziaN 'depois eu faço o calculo If vcr > 0 Then Dim resultado As integer = vacaVazia - vcr Else Dim resultado As integer = vacaVazia + vcr End If If var > 0 Then Dim resultado As integer = vacaCheia - var Else Dim resultado As integer = vacaCheia + var End If
  15. Olá, Precisava de uma ajuda no seguinte: Nesta String Game, procura na drive C:\os ficheiros com números exes(1.exe,2.exe,3.exe… até 8.exe) Agora queria substituir e converter a String.Format("C:\{0}.exe", SelectedGame) pelas classes (Private sub H20(), Private sub H30()) para procurar pelas classes em vez de procurar pelos ficheiros exe na drive c:\ Dim Game As String = String.Format("C:\{0}.exe", SelectedGame) Private Sub SetSelectedGame(ByVal Game As Integer) If 1 <= Game And Game <= 8 Then SelectedGame = Game SelectedGameLabel.Text = SelectedGame.ToString() SetImages() End If End Sub Private Sub SetImages() If SelectedGame = "1" SelectTop.Image = My.Resources.h20t SelectCenter.Image = My.Resources.h20c BackgroundImage = My.Resources.h20b ElseIf SelectedGame = "2" SelectTop.Image = My.Resources.h30t SelectCenter.Image = My.Resources.h30c BackgroundImage = My.Resources.h30b End If …… End Sub Private Sub H20() ‘ Subtitui o ficheiro 1.exe Process.Start("cmd", "/c start /d D:\h30\ /wait D:\H20\start.exe -noconsole") End Sub Private Sub H30() ‘ Subtitui o ficheiro 2.exe Process.Start("cmd", "/c start /d D:\h30\ /wait D:\H30\start.exe -noconsole") End Sub Obrigado
  16. marlonwg

    ItextSharp

    Alguém trabalha com ITEXTSHARP.dll que trabalha com códigos de barras que possa auxiliar estou com uma duvida ?
  17. Boa tarde, estou fazendo esta ferramenta porem estou tendo problema para o combobox selecionar todos os itens na tabela vinculados a mesma index, o programa só esta puxando o primeiro item alguém poderia ajudar a solucionar o problema no código ? https://i.imgur.com/pW2OQjv.jpg Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged Dim con As SqlConnection = New SqlConnection(strCon) Dim command As New SqlCommand("Select * from Character where name = '" & ComboBox4.Text & "'", con) Dim adapter As New SqlDataAdapter(command) Dim table As New DataTable() adapter.Fill(table) ComboBox5.DataSource = table ComboBox5.DisplayMember = "AccountID" ComboBox5.ValueMember = "name" ComboBox5.Text = "" End Sub Obrigado.
  18. Boa Tarde Estou a tentar consumir este webservice da Associacao Portuguesa do Ambiente. Ja tenho usado outros Webservices, mas sem autenticação. https://qualsiliamb.apambiente.pt/services/egar/GuiaAcompanhamentoWs/v2?wsdl= consigo faze-lo a partir de um cliente Soap. mas tenho de adicionar no xml, o user e a password, bem como um token que me foi fornecido os passos que dei foi 1 - Adicionei um service reference 2 - No codigo Dim ws As New WSEGAR.GuiaAcompanhamentoWsClient ws.ClientCredentials.UserName.UserName = "myusername" ws.ClientCredentials.UserName.Password = "mypwd" Dim wsArgOutput As New WSEGAR.consultarGuiaDetalheOutput Dim wsArgInput As New WSEGAR.consultarGuiaInput Dim identGuia As New WSEGAR.identificadorGuia wsArgInput.tokenCertificacao = "88PfKOQmA7CdjBXj" identGuia.numeroGuia = "PT20220324621342" identGuia.codigoVerificacao = "62ca77d59d140430" wsArgInput.idGuia = identGuia wsArgOutput = ws.consultarGuiaDetalhe(wsArgInput) da-me sempre um erro "FAult Ocurring While processing" parece-me que o problema é na identificacao : ws.ClientCredentials.UserName.UserName = "myusername" ws.ClientCredentials.UserName.Password = "mypwd" Ha outra forma de o fazer? Muito Obrigado Paulo Frutuoso
  19. Eu estou com problema em comparar duas tabelas dois datagrid, quero puxar os números que está na tabela 1 que não está na tabela dois porém não pode repetir os números na tabela 2 tabela 1 tabela 2 coluna A coluna A 001 32 002 002 003 54 001 003 Eu já fiz um for porém ele repete os números, esse números da tabela dois não podem repetir de jeito nenhum
  20. Boa tarde Sei que é pedir muito, mas estou farto de procurar e não consigo encontrar o código como preciso. Tenho uma tabela de excel onde tenho o numero de funcionário, a data de nascimento e o email. necessito de código em VB para enviar um email com uma foto a desejar feliz aniversário a esse funcionário, na data atual do aniversário. queria que fosse automático e que usa-se smtp do email. Obrigado, pela disposição a ajudar. se algum de vocês tiver uma solução melhor que excel também posso experimentar. Estou a voltar a programação, tenho a ideia mas que não pratica perde a linguagem.....
  21. Olá Bom dia pessoal , surgiu-me um problema que ainda não tinha deparado , então é o seguinte: Quando arranco o visual studio 2019 e crio um projeto sem gravar e (inicio) o programa o meu Antivírus Kaspersky diz-me que tenho um trojan no computador e vai proceder á desinfestação . Se fizer assim : - Arranco VS2019 faço crio o tiver a criar e Gravo logo a seguir sem Iniciar em primeiro lugar já não tenho problemas com o Antivirus e o Malwarebytes . Alguém já passou por isto?. Grato desde já pela vossa atenção. ProgramadorVB6
  22. Eu estou com dificuldade de ordenar data no datagridview, poderia me ajudar For Each PrimeiraLinha As DataGridViewRow In Me.TabelaVisualizar.Rows If PrimeiraLinha.Index >= 0 Then 'For Each SegundaLinha As DataGridViewRow In Me.TabelaVisualizar.Rows Dim dt1 As DateTime = Convert.ToDateTime(Me.TabelaVisualizar.Rows(PrimeiraLinha.Index - 1).Cells(5).Value) Dim dt2 As DateTime = Convert.ToDateTime(Me.TabelaVisualizar.Rows(PrimeiraLinha.Index).Cells(5).Value) If dt2 < dt1 Then Me.TabelaVisualizar.Rows.RemoveAt(PrimeiraLinha.Index) Me.TabelaVisualizar.Rows.Insert(PrimeiraLinha.Index + 1, PrimeiraLinha) Me.TabelaVisualizar.ClearSelection() End If 'Next End If Quero ordenar a data em ordem crescente
  23. Estou com dificuldade de fazer o checkbox acompanhar o arrastar da coluna do datagridview , vou tentar explicar melhor eu coloquei um checkbox no datagridview para fazer a selação de todos os dados porém quando vou arrastar a coluna para aumentar o campo o checkbox não acompanha ele fica para trás ou para frente vou enviar uma imagem para ver http://www.sistemalonghorn.com.br/Arquivos/15.png não consegui colocar a url da imagem para carregar mais essa é a url da imagem para ver de exemplo, se alguem puder me ajudar fico grato
  24. Olá Boa tarde estou com um problema de rotina me dar os valores correctos na TextBox3.Text , sei que é uma coisa fácil mas não estou conseguindo meter os valores respectivos nas caixas de texto. Deixo aqui o código para que me ajudem. Grato desde já pela vossa atenção. Programador vb6 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim ArryTexto() As String Dim LinhaTexto As String Dim ix As Integer Dim i As Integer If ListBox1.Items.Count > 0 Then For i = 0 To ListBox1.Items.Count - 1 MessageBox.Show(ListBox1.Items(i).ToString) LinhaTexto = ListBox1.Items(i).ToString ArryTexto = LinhaTexto.Split(",") For ix = 0 To UBound(ArryTexto) Me.TextBox2.Text = ArryTexto(ix).ToString MessageBox.Show(ArryTexto(ix)) Me.TextBox3.Text = ArryTexto(ix.ToString) + 1 ' Nao mete o valor correcto na caixa de texto TextBox3 Next ix Next If i = ListBox1.Items.Count Then MsgBox("Fim") End If End If End Sub End Class
  25. Olá pessoal, boa tarde, fiz aqui um programa que indica a posição do rato e suas coordenadas na ListBox1, mas não queria usar o controlo timer, pois é muito limitado ,tentei fazer de outra maneira , mas estou com dificuldade em parar de registar as coordenadas do rato. Existe alguma solução ? Grato desde já pela vossa atenção. ProgramadorVB6 Deixo aqui até onde parei. Public Class Form1 Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer) Public Const MOUSEEVENTF_LEFTDOWN = &H2 'Prime o botão do rato esquerdo. Public Const MOUSEEVENTF_LEFTUP = &H4 'Larga o botao do rato do lado esquerdo. Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' Prime o botão do rato direito. Public Const MOUSEEVENTF_RIGHTUP = &H10 'Larga o botao do rato do lado direito. Private x As ULong Private y As ULong Dim processo As String Private Sub Esperar(ByVal Segundos As Integer, Parar As Boolean) Dim Final As Date = TimeOfDay.AddSeconds(Segundos) While (Not TimeOfDay.Second = Final.Second) Application.DoEvents() Label1.Text = Cursor.Position.X Label2.Text = Cursor.Position.Y ListBox1.Items.Add(Me.Label1.Text & "," & Me.Label2.Text) If Parar = True Then Exit Sub End If End While End Sub Private Sub clicar() Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click x = Val(TextBox2.Text) y = Val(TextBox3.Text) Windows.Forms.Cursor.Position = New System.Drawing.Point(x, y) clicar() End Sub Private Sub GravarP_Click(sender As Object, e As EventArgs) Handles GravarP.Click Esperar(10, False) End Sub Private Sub PararCiclo_Click(sender As Object, e As EventArgs) Handles PararCiclo.Click Esperar(10, True) End Sub End Class
×
×
  • 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.