Jump to content

Search the Community

Showing results for tags 'vb.net'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Matemática
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Found 7,587 results

  1. RafaelFranckilin

    Iniciar programa com o windows

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

    Sistema de aprovações sequenciais

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

    Power Button VB.Net

    Boa tarde, Queria substituir a tecla Z pela tecla do Power do PC, já a desativei no painel de control, se precionada não faz nada, queria utiliza-la pelo programa VB. Alguém para dar uma ajudinha? Ja fiz muita pesquisa e nada é complicado por ser uma tecla especial. Obrigado Private Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer If nCode = HC_ACTION Then If wParam = WM_KEYDOWN Then Dim key As Integer = lParam.vkCode If key = Keys.Z Then Process.Start("shutdown", "-s -t 0") End If
  11. Olá boa noite. Estou com um problema em criar via código VB.Net uma base de dados que contenha uma chave primaria e mais 5 campos fiz assim o código mas não consegui criar a base de dados. Grato desde já pela vossa atenção. Imports System.Data.OleDb Imports System.Text Public Class Form1 Public Ligacao As New OleDbConnection Public SQL As StringBuilder Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Ligacao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Viaturas.mdb" SQL = New StringBuilder SQL.Append("CREATE TABLE Viaturas [Matriculas] NCHAR (15) NOT NULL PRIMARYKEY, [Nome] NCHAR (25) NOT NULL,[Empresa] NCHAR (20) NOT NULL,[Piso] NCHAR (6) NOT NULL ,[Ext] NCHAR (6) NOT NULL") Executar1(SQL.ToString) End Sub Public Sub Executar1(ByVal pSQL As String) Dim Comando As OleDbCommand = Ligacao.CreateCommand Try Comando.CommandText = pSQL Comando.CommandType = CommandType.Text Comando.ExecuteNonQuery() Catch ex As Exception If Err.Number = 5 AndAlso Err.Number = 5 Then MessageBox.Show(ex.Message) Else MessageBox.Show("Erro descrição : " & vbCrLf & ex.Message & vbCrLf, "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Error) End If End Try End Sub End Class
  12. Estou há alguma horas procurando uma resposta para meu problema mas não acho nada. Me ajudem a achar onde está errado, não acusa erro de compilação mas também não aparece os dados. Aqui está o código: Private Sub comboti_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboti.SelectedIndexChanged Dim conexao As String conexao = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\jhose\source\repos\estoque\Estoque\dataestoque.mdf;Integrated Security=True" Dim cn As New SqlConnection(conexao) If cn.State = ConnectionState.Closed Then cn.Open() End If Dim cm As New SqlCommand 'gravando dados do formulário clientes cm.Connection = cn Dim sqlDados As String = "SELECT * FROM tipo" Dim da As SqlDataAdapter = New SqlDataAdapter(cm) Dim dt As DataTable = New DataTable da.Fill(dt) comboti.ValueMember = "Id_Tipo" comboti.DisplayMember = "Nome_Tipo" comboti.DataSource = dt 'FECHA A CONEXÃO COM O BANCO DE DADOS cn.Close() Try Catch ex As Exception 'EM CASO DE ERRO, RETORNA A MENSAGEM MsgBox(ex.Message, MsgBoxStyle.Exclamation, "SELECT_Nome_Tipo") 'FECHA A CONEXÃO COM O BANCO DE DADOS cn.Close() End Try End Sub End Class
  13. Chamuanza

    RESOLVIDO - Array de Labels

    Um Bem Aja a todos Preciso de ajuda (dicas) para o seguinte problema. Tenho um array de 9 Labels que vão fazer uma contagem. Ao clicar numa das labels altera o backcolor e procede a contagem pretendida. Como proceder para ao clicar na label seguinte (aleatoriamente) altere o backolor da clicada anteriormente ficando a clicada com a cor pretendida Desde já Obrigado pela atenção
  14. Vendo Software de Gestão com código fonte, desenvolvido em vb.net e Crystal Report. Módulos: - Sotock - Compras - Encomendas - Vendas - Pos - PosTouch - Reparações - Tesouraria - Contas Correntes Por favor contactar-me para o email: nunolima@inforvez.com
  15. programadorvb6

    Como Ejectar USB Drives do computador

    Olá boa tarde, estou com um problema e peço a vossa ajuda. Já estive a procurar como ejectar USB Drives que estejam 'ligadas' ao PC; não encontrei nada para VB.Net que funciona-se o que encontrei foi neste site do CodeProject e estavam em c# o mesmo código não funcionava correctamente. Desejava que no final do varrimento desconecta-se todas as USB Drives existentes e fizesse então o Shutdown ao Pc. Fiz assim a algum código em VB.net : 1- Fiz o Varrimento de todas USB Drives 2 - Identifiquei as e no final faz o Shutdown ao Pc ( sem premir mais nenhum botão ). Imports System.Runtime.InteropServices Public Class Form1 <DllImport("winmm.dll")> _ Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '--------------------------------------------------- Dim drives = System.IO.DriveInfo.GetDrives() Dim usbDrive = drives.FirstOrDefault(Function(m) m.DriveType = System.IO.DriveType.Removable) Dim CDR = drives.FirstOrDefault(Function(m) m.DriveType = System.IO.DriveType.CDRom) For i As Integer = 0 To drives.Count - 1 If drives(i).DriveType = System.IO.DriveType.Removable AndAlso usbDrive.IsReady = True Then MessageBox.Show(drives(i).ToString) 'Codigo para remover USB End If If drives(i).DriveType = IO.DriveType.CDRom = True And CDR.IsReady = True Then MessageBox.Show("CDRom ejectado !") mciSendString("set CDAudio door open", vbNullString, 0, IntPtr.Zero) 'Fechar ' mciSendString("set CDAudio door closed", vbNullString, 0, IntPtr.Zero) End If Next i MessageBox.Show("Shutdown") 'System.Diagnostics.Process.Start("ShutDown", "/s") ' - Shutdown '---------------------------------------------------- End Sub End Class Grato desde já pela vossa atenção. Um abraço.
  16. Olá, é uma satisfação está lançando minha primeira dúvida para que os amigos possam me ajudar! é o seguinte: tenho uma tabela no sql server para agendamento na sala de cinema de um condomínio e cada agendamento tem direito a permanecer 3 horas na sala, então só posso permitir um novo agendamento 3 horas antes ou 3 horas depois de uma hora que já esteja agendada. Se alguém poder me ajudar ficarei muito grato.
  17. Boa Tarde, Tenho um script que até então funcionava muito bem em todos os computadores. Mas, aparentemente após alguma actualização do W10 (pelo menos no meu computador), começou a apresentar problemas na configuração e comparação de datas. As datas estão configuradas desta forma ==> objSheet(obj_x).Range("B09:B39").NumberFormat = "yyyy/mm/dd" Quando abre o Excel para todas as maquinas é apresentada a data na célula desta forma ==> 2019-09-01 E até ai tudo as mil maravilhas. O problema é que em um dos computadores, quando abre o Excel a data apresentada está aparecendo ==> 2019/09/01 E ai, começa o problema na comparação de datas. Verifiquei no Excel aberto em computadores diferentes as seguintes formatações: Computador 1 com dada aaaa-mm-dd (Portugues) -> Format - Categoria -> Data *14-03-2012, Categoria -> Personalizado dd-mm-aaaa Computador 2 com dada aaaa/mm/dd (Inglês) -> Format - Category -> Date *14/03/2012, Category -> Custom dd/mm/aaaa Há alguma maneira de efectuar a formatação padronizada para os computadores em causa. Nota: Penso que o problema não deva ser o idioma e sim a formatação da data.
  18. Olá a Todos! Sou absolutamente leigo em programação, mas a partir das minhas pesquisas e estudos, consegui exportar os dados de um DataGridView para o Excel com o código a seguir. Agora, preciso de saber como incluir a orientação para: 1) Formatar uma coluna - coluna C - para data ("dd/MM/yyyy") e outras duas para número - colunas F e L.; 2) Formatar a largura das colunas de acordo com o texto. Agradeço desde já sua atenção e auxílio. Public Sub Exportar() Dim SAVE As New SaveFileDialog Dim way As String Dim xlApp As Object = CreateObject("Excel.Application") Dim pth As String = "" 'criaremos una nova Plan Dim xlwb As Object = xlApp.WorkBooks.add Dim xlws As Object = xlwb.WorkSheets(1) Try For c As Integer = 0 To DataGridView1.Columns.Count - 1 xlws.cells(1, c + 1).value = DataGridView1.Columns(c).HeaderText Next For r As Integer = 0 To DataGridView1.RowCount - 1 For c As Integer = 0 To DataGridView1.Columns.Count - 1 xlws.cells(r + 2, c + 1) = DataGridView1.Item(c + 1, r + 2).Value.ToString() Next Next Dim SaveFileDialog1 As SaveFileDialog = New SaveFileDialog SaveFileDialog1.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) SaveFileDialog1.Filter = "Archivo Excel| *.xlsx" SaveFileDialog1.FilterIndex = 2 If SaveFileDialog1.ShowDialog = DialogResult.OK Then way = SaveFileDialog1.FileName xlwb.saveas(way) xlws = Nothing xlwb = Nothing xlApp.quit() MsgBox("Exportado Corretamente.") End If Catch ex As Exception End Try End Sub
  19. RAFAEL DUTRA

    Programa para limpa backup antigos

    Ola pessoal estou precisando de uma ajudinha, sou apenas um estudante, trabalho atualmente com suporte TI. preciso criar um programa que identifique o tamanho de uma pasta (no caso estou utilizando a pasta backup do servidor) caso esta passa ultrapasse o valor X o programa exclui o arquivo mais antigo da pasta eu fiz o program achar o caminho e ler o tamanho da pasta, porem não consigo fazer ela excluir os arquivos por período e limitar a pasta para que quando alcance 1gb ela exclua os antigos da pasta no caso são os diff do servidor alguém pode me ajudar segue o que consegui estudando Imports System.IO <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class SisMega Inherits System.Windows.Forms.Form 'Descartar substituições de formulário para limpar a lista de componentes. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub Private Sub btnProcurar_Click(sender As Object, e As EventArgs) Handles btnprocurar.Click Dim FolderBrowserDialog1 As New FolderBrowserDialog With FolderBrowserDialog1 .RootFolder = Environment.SpecialFolder.Desktop .SelectedPath = "c:\" .Description = "Selecione uma pasta" If .ShowDialog = DialogResult.OK Then txtLocal.Text = .SelectedPath End If End With End Sub Private Function TamanhoArquivosDiretorios(ByVal dInfo As DirectoryInfo, ByVal incluirSubDir As Boolean) As Long Dim tamanhoTotal As Long = dInfo.EnumerateFiles().Sum(Function(file) file.Length) If incluirSubDir Then tamanhoTotal += dInfo.EnumerateDirectories().Sum(Function(dir) TamanhoArquivosDiretorios(dir, True)) End If Return tamanhoTotal End Function Private Sub btncoletar_Click(sender As Object, e As EventArgs) Handles btncoletar.Click Dim dInfo As New DirectoryInfo(txtLocal.Text) Dim tamanhoDaPasta As Long = TamanhoArquivosDiretorios(dInfo, True) Dim arquivosDaPasta As String() = Directory.GetFiles(txtLocal.Text) Dim media = arquivosDaPasta.Select(Function(arquivo) New FileInfo(arquivo).Length).Average() media = Math.Round(media / 1000000, 1) txtResultado.Text = "" txtResultado.Text += String.Format("Tamanho do Backup em bytes : {0:N0} bytes", tamanhoDaPasta) & vbCrLf txtResultado.Text += String.Format("Tamanho do Backup em KB : {0:N0} KB", CDbl(tamanhoDaPasta) / 1024) & vbCrLf txtResultado.Text += String.Format("Tamanho do Backup em MB : {0:N0} MB", CDbl(tamanhoDaPasta) / (1024 * 1024)) & vbCrLf txtResultado.Text += vbCrLf End Sub Private Sub SisMega_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub Private Sub btnLimpar_Click(sender As Object, e As EventArgs) Handles btnlimpar.Click End Sub
  20. Como fechar todas as janelas que estejam abertas no Microsoft Edge? Fiz um código assim mas não deu para as fechar. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("iexplore") For Each p As Process In pProcess p.Kill() Next Me.Close() End Sub Grato pela vossa atenção.
  21. Boas! É o seguinte, é possível fazer uma aplicação em VB que verifique quando uma certa aplicação (sei o nome do executável, e esse não muda) para quando essa aplicação for fechada o meu programa VB executar uma certa acção ? Se sim, como posso fazer isso ? A ideia era o programa em Vb corria quando o computador é iniciado, e ficava "á espera" por exemplo só com um icon na Tray, e quando o programa XPTO for aberto...e depois fechado, o meu programa em VB vái executar uma certa acção. Espero ter-me explicado bem Obrigado!
  22. Afonso Mira

    Base de Dados Oracle

    Boas. Tenho uma base de dados em oracle e queria saber se é possivel utilizar o Oracle PL/SQL para consultar e tratar esses dados e em seguida com recurso ao visual studio exibir os dados tratados. Obrigado, Abraço. Afonso Mira.
  23. jasb

    Cartão do Cidadão

    Pessoal, Eu sei que isto já foi perguntado N vezes, mas a verdade é que não encontro nada de jeito para o efeito, nem a funcionar. edipt.dll é antigo já não é para usar, do que vejo (funcionava tao bem quando experimentei à uns anos). Então entra o pteidlib_dotnet.dll, alguem tem um exemplo a funcionar ou sabe onde tiro isso? ando farto de procurar nos sites do cartão do cidadão e não encontro nada. Obrigado desde já.
  24. Olá a todos, Esta é uma questão concerteza básica, mas preciso de ajuda. Estou a tentar ler apenas o node "DocumentTotals" do node "Payments" do SAFT. A questão é que o SelectNodes retorna zero. Com o xmldoc.GetElementsByTagName("DocumentTotals" retorna resultados, mas apanha todos os nodes "DocumentTotals" sejam do "Payments" ou de "SalesInvoices"... O codigo que tenho estado a testar: Dim nodeList As XmlNodeList nodeList = xmldoc.SelectNodes("//Payment/DocumentTotals/GrossTotal") MsgBox(nodeList.Count) aqui retorna zero... o ficheiro xml já está aberto e funciona com o xmldoc.GetElementsByTagName("DocumentTotals", mas baralha-se trazendo resultados do GrossTotal do SalesInvoices. Alguém me pode ajudar ? Obrigado.
  25. RafaelFranckilin

    Encriptar e decriptar app.config

    Eu tenho um programa que vai rodar direto de um pendriver Tô tentando encriptar e decriptar o app.config, mas preciso que funcione em vários computadores alguém pode me ajudar com alguma solução?
×
×
  • 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.