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. Preciso da ajuda. Eu estou tentado por no module este código = Public pontosw(,) As = {{7, 8, 9, 5}}, mas falta a variavel que nao estou conseguindo encontrar quando for para inserir os pontos no form dentro no codigo ponho isto pontosw(ComboBoxNivel.SelectedIndex - 1, conta - 1) ,e aparece este erro: Expressão não é um método. Ja tentei por Public pontosw(,) As Bolean = {{7, 8, 9, 5}} ou Public pontosw(,) As object = {{7, 8, 9, 5}}. Por favor explica-me qual a variavel ou método ;(
  2. RafaelFranckilin

    Status do Windows Defender

    Pessoal, preciso obter o status de windows defender(on/off), mas não sei como fazer isso com o vb.net, Estou usando esse código, mas não é exatamente como eu quero. Vocês podem me ajudar com algo mais simples? Dim av_searcher As New ManagementObjectSearcher("root\SecurityCenter2", "SELECT * FROM AntivirusProduct") For Each info As ManagementObject In av_searcher.Get() MsgBox(info.Properties("displayName").Value.ToString()) Dim AvStatus = Hex(info.Properties("ProductState").Value.ToString()) If Mid(AvStatus, 2, 2) = "10" Or Mid(AvStatus, 2, 2) = "11
  3. Depois de alguma investigação, e de ter encontrado o famoso "eidpt.dll", já consegui que o projecto não dá erro de programação, mas agora dá este erro ao executar : Alguém tem um projecto a funcionar ..?
  4. ola estou a fazer um programa de gestão de uma loja de bricolage em visual basic no visual studio 2019 e nao estou a conseguir quando o funcionário procure um id de um produto com uma ComboBox e ele preencha os outros campos como nome categoria subcategoria.... dá-me um erro "data type mismatch in criteria expression" abaixo mando o código e estou a utilizar o Access com base de dados. Imports System.Data Imports System.Data.OleDb Public Class Form1 Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click Me.WindowState = FormWindowS
  5. 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.
  6. Bom dia a todos! Estava aqui a terminar um trabalho quando me deparei com o seguinte erro: "Update requer um UpdateCommand válido quando transferir a colecção DataRow com linhas modificadas." O erro acontece nas linhas onde tenha "Me.TableAdapterManager.UpdateAll(Me.BdVideoClubeDataSet)" O erro ocorre tanto depois de remover um registo da tabela como também quando estou a salvar um novo registo noutros formulários que aqui tenho funciona tudo bem nessa linha mas nesse não! Por isso peço que se alguém me poder ajudar fico imensamente agradecido! Em anexo junto o meu programa. http://hotf
  7. Boas a todos! Estou com um problema e preciso de ajuda. Tenho uma base de dados em MySQL e tenho um form chamado Form_Vendas. Neste form, consigo gerir as vendas e também os clientes. Ao selecionar o ID do cliente numa combobox (cmb_cliente) a imagem que está associada a este é automaticamente colocada numa PictureBox. O que acontece é que consigo adicionar e editar as imagens da base de dados, mas no que toca a eliminar recebo o erro "The parameter cannot be null" e o nome do parâmetro, "encoder", pelo que já reparei que este valor muda sempre que a imagem muda, por is
  8. Boas pessoal estou com minha aplicação com problemas nao sei se é Framework ou se tem alguma coisa haver no meu Desktop e em alguns clientes funciona normalmente o problema esta sendo que em alguns lugares depende a versão do windows 10 acho que Build 1090 ele simplesmente abre e se fecha.... Nao sei o porque faço a compilação dele em Release e DEBUG no formato X86 e X64 Com base em Framework 4.0 mas mesmo assim nao abre em alguns pcs Ja tentei reinstalar o Framework na maquina cliente , tentei desinstalar... No caso o Framework no pc e 4.8 Alguma ideia porque o apl
  9. Olá pessoal, Tenho um sistema que roda em vários micros e cada um deles com versões diferentes do office. O meu código não está dando certo, segue referenciei o outlook e usei o imports Imports Microsoft.Office.Interop Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click Cursor.Current = Cursors.WaitCursor Try Dim tempApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application 'Dim tempApp = GetObject(, "Outlook.Application")
  10. 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á.
  11. 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 loc
  12. 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 me
  13. 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
  14. 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
  15. 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()
  16. 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
  17. 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
  18. 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.m
  19. 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 Syst
  20. 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.
  21. Estou criando um launcher para abrir um jogo, mas preciso que ele abra somente um, e que se houver a tentativa de abrir dois eles gere uma mensagem "Você não pode abrir dois launchers" e não abra o segundo. Se alguém puder ajudar ficaria grato.
  22. boas galera, sou BR mas gostei do forum, sempre estou aqui então... eu preciso pegar o texto que esta em um arquivo .txt hospedado em um dominio na net e passar cada pedaço dele pra uma determinada textbox EX: (texto no arquivo .txt) "OLA / Galera / Meu / Nome / é / Fury / SL" (No VB) Txt1.text = "Ola" Txt2.text = "Galera" Txt3.text = "Meu" Txt4.text = "Nome" Txt5.text = "é" Txt6.text = "Fury" Txt7.text = "SL" Obrigado Pela atenção
  23. DDTRON

    ListView

    Srs , Alguém poderia me ajudar a resolver esse probleminha : Preciso somar uma coluna do ListView1: FrmDesvio.ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextVaccNC_Sec.Text
  24. 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 apresenta
  25. 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.
×
×
  • 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.