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. 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.
  2. 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.
  3. 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 .
  4. 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
  5. 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
  6. marlonwg

    ItextSharp

    Alguém trabalha com ITEXTSHARP.dll que trabalha com códigos de barras que possa auxiliar estou com uma duvida ?
  7. 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.
  8. 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
  9. 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
  10. 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.....
  11. 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
  12. 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
  13. 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
  14. 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
  15. 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
  16. Um Bem Aja a todos Estou a construir uma aplicação que após o replace de uns dados no código que entretanto corrigi, ao fazer Start dá o seguinte erro: "An unhandled exception of type 'Microsoft.VisualBasic.ApplicationServices.NoStartupFormException' occurred in Microsoft.VisualBasic.dll Additional information: Não foi especificado um modo de arranque." Quando faço BREAK aparece a lista disassemblay com estes dados "5E254D9C CC int 3" marcados no inicio com uma seta Alguém me dá uma dica de como resolver a situação? Obrigado desde já
  17. Boa noite. Gostava de saber se é possivel criar um programa de downloads atravez do VB. O programa iria consistir em por exemplo em ter variar fotos no programa e conseguir as descarregar diretamente do programa, se o for possivel fazer gostaria de saber como. Se houver outro tipo de linguagem que torne este tipo de programa mais facil de ser criado tambem gostaria de saber. Obrigado
  18. Bem Aja a Todos Como faço para preencher circulo neste código Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint e.Graphics.DrawEllipse(Pens.Red, 0, 0, 30, 30) End Sub Obrigado desde já
  19. Bem haja a Todos Estou a funcionar com o Visual Studio 2015. Estou a criar uma aplicação em que introduzo varias OvalShape's, centradas no form. Sucede que ao fazer Start o form aparece aumentado em relação ao tamanho original e as Shapes aparecem deslocadas para a direita e para baixo com o AutoscaleMode=Font, se alterar para o AutoscaleMode=None o form aparece muito maior. Alguém me dá uma dica
  20. Boa noite, Estou a preparar um programa básico para uma apresentação, mas existe um erro e não sei como solucionar. Será que alguém sabe como solucionar. A parte inicial do programa (onde existe o erro) consiste na identificação do país que realizou a encomenda a partir de um "código", se o código forem números o programa funciona mas se optar por uma maneira mais formal como por exemplo PT significar Portugal o mesmo não funciona. Segue aqui a parte da programação. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click p = TextBox7.Text If p = PT Then TextBox8.Text = "Portugal (venda nacional)" ElseIf p = 20 Then TextBox8.Text = "Espanha (venda internacional)" ElseIf p = 30 Then TextBox8.Text = "França (venda internacional)" ElseIf p = 40 Then TextBox8.Text = "Alemanha (venda internacional)" ElseIf p = 50 Then TextBox8.Text = "Inglaterra (venda internacional)" ElseIf p = 60 Then TextBox8.Text = "Luxemburgo (venda internacional)" ElseIf p = 70 Then TextBox8.Text = "Escócia (venda internacional)" ElseIf p = 80 Then TextBox8.Text = "Angola (venda internacional)" ElseIf p = 90 Then TextBox8.Text = "Dinamarca (venda internacional)" ElseIf p = 100 Then TextBox8.Text = "Malta (venda internacional)" ElseIf p = 110 Then TextBox8.Text = "Brasil (venda internacional)" ElseIf p Then TextBox8.Text = "País não encontrado" End If End Sub
  21. Boa noite malta, sou aluna do 12º ano e como tal estava a tentar criar um projeto que consiste num quiz. No entanto, gostaria de colocar pontuação nas perguntas mas não estou a conseguir. Será que alguém poderia me explicar mesmo passo a passo detalhadamente como o fazer? Obrigada se puderem porque estou mesmo em desespero hahahah
  22. como escrever no explorador de arquivos pelo vba? ele está abrindo com um icone do chrome
  23. gente eu abri o explorador de arquivos para uma automação com essa função: .FindElementByXPath("/html/body/app-root/spa-root/div/app-layout").Click Mas não consigo abrir a pasta para fazer o upload do pdf para o site alguem pode me ajudar? não tenho conseguido escrever o caminho na pasta com o .sendkeys
  24. Então eu preciso encontrar em um arquivo txt as latitudes e as longitudes e o nome da cidade arquivo txt eu preciso colocar em um datagridview a listas das coordenadas e o nome da cidade mais estou com dificuldade , eu não consigo ler o xml , o procedimento que tenho ler xml , mais esse não <?xml version="1.0" encoding="UTF-8" ?> <searchresults timestamp="Thu, 18 Nov 21 01:36:26 +0000" attribution="Data © OpenStreetMap contributors, ODbL 1.0. http://www.openstreetmap.org/copyright" querystring="centro, Cuiaba Gerais, Brazil" exclude_place_ids="98415946,241126356,144782900,154971813,240519628,188761987,239459010,176623637,161991581,157650392" more_url="https://nominatim.openstreetmap.org/search/?street=centro&city=Cuiaba+Gerais&country=Brazil&exclude_place_ids=98415946%2C241126356%2C144782900%2C154971813%2C240519628%2C188761987%2C239459010%2C176623637%2C161991581%2C157650392&format=xml&accept-language=pt-BR"> <place place_id="98415946" osm_type="way" osm_id="9704093" place_rank="26" address_rank="26" boundingbox="-19.9281033,-19.9279313,-43.9578232,-43.9576731" lat="-19.9281033" lon="-43.9578232" display_name="Rua Cuiabá, Barro Preto, Regional Centro-Sul, Belo Horizonte, Região Geográfica Imediata de Belo Horizonte, Região Metropolitana de Belo Horizonte, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 30110-062, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="241126356" osm_type="way" osm_id="706524527" place_rank="26" address_rank="26" boundingbox="-19.9839298,-19.9838139,-44.0366471,-44.0354535" lat="-19.9838139" lon="-44.0360262" display_name="Rua Cuiaba, Vila Tirol, Barreiro, Belo Horizonte, Região Geográfica Imediata de Belo Horizonte, Região Metropolitana de Belo Horizonte, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 30662-710, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="144782900" osm_type="way" osm_id="183653804" place_rank="26" address_rank="26" boundingbox="-19.4709816,-19.4685153,-44.2605449,-44.2602161" lat="-19.4691312" lon="-44.2604628" display_name="Rua Cuiaba, Santo Antônio, Sete Lagoas, Região Geográfica Imediata de Sete Lagoas, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 35702-383, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="154971813" osm_type="way" osm_id="219571584" place_rank="26" address_rank="26" boundingbox="-19.8858592,-19.8855258,-43.8565044,-43.8563379" lat="-19.8855674" lon="-43.8564843" display_name="Rua Cuiaba, Vila Eugênio Rossi, Nações Unidas, Carvalho de Brito, Sabará, Região Geográfica Imediata de Belo Horizonte, Região Metropolitana de Belo Horizonte, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 34590340, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="240519628" osm_type="way" osm_id="703189713" place_rank="26" address_rank="26" boundingbox="-19.3777459,-19.3772834,-42.5548416,-42.5537423" lat="-19.3775043" lon="-42.5542853" display_name="Rua Cuiaba, São Francisco, Santana do Paraíso, Região Geográfica Imediata de Ipatinga, Região Metropolitana do Vale do Aço, Região Geográfica Intermediária de Ipatinga, Minas Gerais, Região Sudeste, 35167-000, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="188761987" osm_type="way" osm_id="375570552" place_rank="26" address_rank="26" boundingbox="-19.6290482,-19.6288352,-42.6225288,-42.6210567" lat="-19.6289168" lon="-42.6216973" display_name="Rua Cuiaba, Cava Grande, Marliéria, Região Geográfica Imediata de Ipatinga, Região Geográfica Intermediária de Ipatinga, Minas Gerais, Região Sudeste, Brasil" class="highway" type="tertiary" importance="0.3" /> <place place_id="239459010" osm_type="way" osm_id="697854942" place_rank="26" address_rank="26" boundingbox="-21.36471,-21.3639319,-45.5059779,-45.5059484" lat="-21.3643503" lon="-45.5059779" display_name="Rua Cuiabá, Vila Romana, Três Pontas, Região Geográfica Imediata de Três Pontas - Boa Esperança, Região Geográfica Intermediária de Varginha, Minas Gerais, Região Sudeste, 37190000, Brasil" class="highway" type="residential" importance="0.2" /> <place place_id="176623637" osm_type="way" osm_id="314157083" place_rank="26" address_rank="26" boundingbox="-21.3666097,-21.36471,-45.5059919,-45.5054563" lat="-21.3654966" lon="-45.5059919" display_name="Rua Cuiabá, Padre Vitor, Três Pontas, Região Geográfica Imediata de Três Pontas - Boa Esperança, Região Geográfica Intermediária de Varginha, Minas Gerais, Região Sudeste, 37190000, Brasil" class="highway" type="residential" importance="0.2" /> <place place_id="161991581" osm_type="way" osm_id="246131223" place_rank="26" address_rank="26" boundingbox="-21.0187898,-21.0162602,-46.5251098,-46.5245105" lat="-21.0171977" lon="-46.5248948" display_name="Rua Cuiabá, Novo Horizonte, Bom Jesus da Penha, Região Geográfica Imediata de Passos, Região Geográfica Intermediária de Varginha, Minas Gerais, Região Sudeste, Brasil" class="highway" type="residential" importance="0.2" /> <place place_id="157650392" osm_type="way" osm_id="229320053" place_rank="26" address_rank="26" boundingbox="-20.1462763,-20.1426447,-44.2082966,-44.2067983" lat="-20.1444014" lon="-44.2076298" display_name="Rua Cuiabá, São Sebastião, Brumadinho, Região Geográfica Imediata de Belo Horizonte, Região Metropolitana de Belo Horizonte, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 35460-000, Brasil" class="highway" type="residential" importance="0.2" /> </searchresults> agora o meu código lendo Sub MostraTexto() Dim alterar As Boolean = False Dim Texto As String = "" Dim Linha() As String = Strings.Split(My.Computer.FileSystem.ReadAllText("I:\msdn2.xml", System.Text.Encoding.Default), ControlChars.CrLf) 'Verifica linha a linha For i As Integer = 0 To Linha.Length - 1 'Se não estiver vazia... If Linha(i) <> "" Then Texto &= Linha(i) & ControlChars.CrLf End If Next MsgBox(Texto) End Sub
  25. Hi, Como escrever e ler uma string num ficheiro tipo png ou jpg?
×
×
  • 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.