Pesquisar na Comunidade

A mostrar resultados para tags ''vb''.

  • Pesquisa por Tags

    Introduza as tags separadas por vírgulas.
  • Pesquisar por Autor

Tipo de Conteúdo


Fórum

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
    • Apresentações
  • 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
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • 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

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

Categorias

  • 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



Filtrar por número de...

1772 resultados

  1. Boa tarde a todos, Necessito da vossa ajuda. Estou a ter alguma dificuldade em conseguir pesquisar nas linhas de uma coluna informação passada de outro separador. A ideia é aproveitar a informação de um separador de Registo e passar os dados desse mesmo registo para a atualização em novas colunas de um separador de base de dados no Excel Na imagem o Separador Registo, onde o registo "2017-1" é a chave a pesquisar na BD. Os campos a azul, têm na fórmula o PROCV, onde estou a ir buscar à BD os campos preenchidos pelo Registo " 2017-1". A ideia é o utilizador neste separador colocar o registo a pesquisar (2017-1 / 2017-2, etc..) (aparecendo através do PROCV os campos a azul já registados BD) e preencher depois os campos a amarelo. A ideia agora é pegar nos valores das células correspondente à cor amarelo, ir ao separador BD, procurar na coluna C o registo "2017-1" e preencher na coluna G e H os novos campos preenchidos, desse mesmo registo colocado. Tenho já criado o Separador Registo: E dados já preenchidos no Separador BD, onde os campos a amarelo são os campos a serem preenchidos conforme registo colocado no separador registos.. Já desenvolvi o seguinte código e necessito de algum feedback sobre o mesmo, face a estar com erros.. Sub Sorriso1_Click() ' ' buscavalor Macro ' Application.ScreenUpdating = False Dim reg As String Dim nome As String Dim emm As String 'Variavel ultima linha com valores da Base de Dados Dim UltimaLinha As Integer 'Pega valor do registo "2017-#" reg = Range("B2").Value 'Pega valor preenchido pelo utilizador para passar para registo da BD nome = Range("B8").Value emm = Range("B9").Value 'Após colocação dos campos acima pelo utilizador ele passa para o Separador BD Sheets("BDA").Select 'Regista o número de Linhas já preenchidas da Base de Dados para diminuir as linhas de procura UltimaLinha = Range("C1048576").End(xlUp).Row + 1 Do Until ActiveCell = reg ActiveCell.Offset(1, 0).Select 'desce uma linha If ActiveCell = reg Then 'faz a análise lógica ActiveCell.Offset(0, 5).Select 'desloca para a coluna G ActiveCell.FormulaR1C1 = nome ActiveCell.Offset(0, 1).Select 'desloca para a coluna H ActiveCell.FormulaR1C1 = emm End If Loop End Sub 'Creio que em vez do ciclo Do Until, possa fazer através de um For Registo ou um ciclo IF... 'Do género: Ultimalinha = ActiveCell.Row + 1 'pega ultima linha preenchida 'Range("C" & Ultimalinha).Select 'coloca o curso na mesma For i = 1 To ultimalinha 'percursso o ciclo da primeira à ultima linha preenchida da coluna Registo "2017-1, até 2017-ultimo registo" Range("C" & i).Select If(Range"C" & i).Value = Reg 'Se encontrar registo 2017-1 na coluna C Range("G" & Reg).Value = nome 'Vai à coluna G dessa mesma linha e coloca o valor que deu ao nome no separador registo Range("H" & Reg).Value = emm 'Vai à coluna H dessa mesma linha e coloca o valor que deu ao emm no separador registo End If 'termina ciclo Next i 'termina ciclo 'Voltar para Separador Registo Sheets("Registos").Select 'Posiciona Cursor no B2, no do Registo Range("B2").Select Esta segunda parte talvez fosse mais direta, mas mesmo assim estou com dificuldade, estando a pensar se preciso do For e do IF. Cada Registo é único na coluna C, havendo sempre só um.. Até estava na ideia se o Registo colocado for por exemplo "2017-5" aparecer uma MsgBox dizendo "Registo não existe na BD" e se passar para lá com sucesso MsgBox "Registo 2017-X Atualizado" Alguém me pode dar umas dicas? Obrigado desde já.
  2. então eu estou com dificuldade de traduzir essa classe em java import java.io.*; import java.net.*; public class GravaXML { public static void main(String[] args) { SaveXML("C:/teste.xml"); } public static void SaveXML(String mfile){ try { File fileXML = new File(mfile); String xmlin = MontaBusca(); URL url = new URL("http://websro.correios.com.br/sro_bin/sroii_xml.eventos "); URLConnection connection = url.openConnection(); connection.setDoOutput(true); connection.setUseCaches(false); connection.setRequestProperty("Content-Type","application/x-www-form-urlencoded"); connection.setAllowUserInteraction(false); PrintStream outStream = new PrintStream(connection.getOutputStream()); outStream.println("usuario=ECT&senha=SRO&tipo=L&resultado=U&objetos=" + xmlin); outStream.close(); DataInputStream inStream = new DataInputStream(connection.getInputStream()); String inputLine; FileWriter f = new FileWriter(fileXML); while ((inputLine = inStream.readLine()) != null) { f.write(inputLine); } f.close(); inStream.close(); } catch (MalformedURLException e) { e.printStackTrace(); } catch (IOException e) { e.printStackTrace(); } } private static String MontaBusca(){ String Objetos = "PH082984697BR"; return Objetos; } } o Que fiz até agora pois esta dando erro essas linhas Dim url As URL = New URL("http://websro.correios.com.br/sro_bin/sroii_xml.eventos ") Dim connection As URLConnection = url.openConnection Dim outStream As PrintStream = New PrintStream(connection.getOutputStream) Dim inStream As DataInputStream = New DataInputStream(connection.getInputStream) Dim f As FileWriter = FileWriter(fileXML) Public Sub Localizar(ByRef MeuArquivo As String) Try Dim fileXML As FileStream = File.Create(MeuArquivo) Dim xmlin As String = "" Dim url As URL = New URL("http://websro.correios.com.br/sro_bin/sroii_xml.eventos ") Dim connection As URLConnection = url.openConnection connection.setDoOutput(True) connection.setUseCaches(False) connection.setRequestProperty("Content-Type", "application/x-www-form-urlencoded") connection.setAllowUserInteraction(False) Dim outStream As PrintStream = New PrintStream(connection.getOutputStream) outStream.println(("usuario=ECT&senha=SRO&tipo=L&resultado=U&objetos=" + xmlin)) outStream.close() Dim inStream As DataInputStream = New DataInputStream(connection.getInputStream) Dim inputLine As String Dim f As FileWriter = New FileWriter(fileXML) While (Not (inStream.readLine) Is Nothing) f.write(inputLine) End While f.close() inStream.close() Catch e As Exception MsgBox(e.Message) End Try End Sub
  3. O meu programa consiste em registar chamadas. Nesse programa tem uma parte de Alterar os dados em que os dados do datagridview vão para umas textboxes da form seguinte mas oque eu queria depois de estarem lá os dados escritos na Textbox eu queria alteralos e por no datagridview. Public Class FrmAlterarDados Public Sub New(ByVal dados As String()) 'este e o codigo onde os dados vão' InitializeComponent() IDTextBox.Text = dados(0) NomeTextBox.Text = dados(1) TextBox3.Text = dados(4) TextBox1.Text = dados(5) TelemovelTextBox.Text = dados(3) End Sub Private Sub BtnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAlterar.Click Me.TbUtlizadoresTableAdapter.Update(Me.Database2DataSet) MsgBox("Cliente editado com sucesso!") End Sub
  4. Gostaria de vincular uma exportar dados de uma listview para um Gráfico do mschart , alguem pode me ajudar ?
  5. Eu queria saber se para subtrair produto comprado por um cliente ao stock inicial, se preciso de usar um programa que use a minha bd para efectuar esta acção. Se me pudessem ajudar agradecia.
  6. boa tarde, tudo bem? a minha duvida era a seguinte como é que consigo importar dados de uma base de dados para a windows form? por exemplo o utilizador faz o login e quero que seja importado da database os dados correspondentes ao utilizador, espero que me ajudem cumprimentos
  7. Bom dia, Eu tenho um programa que lê várias pastas e copia-as de um lado para o outro, mas há algumas pastas que não têm permissão para tal. O que faz com que o erro normal do windows, "dispare". Alguém sabe como tratar esse erro em VBA? Simplesmente ignora-lo já era otimo. Obrigado
  8. Ola, tudo bem? comecei á pouco a trabalhar com o visual studio tentei fazer um jogo tipo snake o codigo é este, o firstsquare, secondsquare, thirdsquare e foursquare ja foram introduzidos na parte do design basicamente controlamos com as down up right left e espaco para parar, e a tecla A adiciona quadrados no fim do ultimo quadrado, como ainda estou a fazer teste, testei apenas com o primeiro quadrado (square(1)) que é adicionado atrás do foursquare , mas quando clico START da erro e diz que square(1).Top = y(4) (encontra-se na linha 114) e diz ": A referência de objecto não foi definida como uma instância de um objecto"., desculpem se nao consegui exprimir bem , aguardo uma resposta! cumprimentos Public Class Form1 Dim x(30), y(30), i, cont, a, b As Integer Dim key As String Public square(100) As PictureBox Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.Down Then key = "Down" Timer1.Enabled = True Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False End If If e.KeyCode = Keys.Up Then key = "Up" Timer2.Enabled = True Timer1.Enabled = False Timer3.Enabled = False Timer4.Enabled = False End If If e.KeyCode = Keys.Right Then key = "Right" Timer3.Enabled = True Timer1.Enabled = False Timer2.Enabled = False Timer4.Enabled = False End If If e.KeyCode = Keys.Left Then key = "Left" Timer4.Enabled = True Timer3.Enabled = False Timer2.Enabled = False Timer1.Enabled = False End If If e.KeyCode = Keys.Space Then Timer4.Enabled = False Timer3.Enabled = False Timer2.Enabled = False Timer1.Enabled = False End If If e.KeyCode = Keys.A Then addsquare() i = i + 1 End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 'down x(1) = firstsquare.Left y(1) = firstsquare.Top firstsquare.Top = firstsquare.Top + 20 End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick 'up x(1) = firstsquare.Left y(1) = firstsquare.Top firstsquare.Top = firstsquare.Top - 20 End Sub Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick 'rigth x(1) = firstsquare.Left y(1) = firstsquare.Top firstsquare.Left = firstsquare.Left + 20 End Sub Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick 'left x(1) = firstsquare.Left y(1) = firstsquare.Top firstsquare.Left = firstsquare.Left - 20 End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load i = 0 secondsquare.Top = firstsquare.Top + 20 secondsquare.Left = firstsquare.Left thirdsquare.Top = secondsquare.Top + 20 thirdsquare.Left = secondsquare.Left foursquare.Top = thirdsquare.Top + 20 foursquare.Left = thirdsquare.Left square(1) = New PictureBox square(1).Width = 20 square(1).Height = 20 square(1).Left = foursquare.Left - 20 square(1).Top = foursquare.Top End Sub Private Sub firstsquare_Move(sender As Object, e As EventArgs) Handles firstsquare.Move cont = 1 x(2) = secondsquare.Left y(2) = secondsquare.Top secondsquare.Left = x(1) secondsquare.Top = y(1) x(3) = thirdsquare.Left y(3) = thirdsquare.Top thirdsquare.Left = x(2) thirdsquare.Top = y(2) x(4) = foursquare.Left y(4) = foursquare.Top foursquare.Left = x(3) foursquare.Top = y(3) square(1).Top = y(4) square(1).Left = x(4) End Sub Private Sub addsquare() square(i) = New PictureBox square(i).Width = 20 square(i).Height = 20 square(i).Left = foursquare.Left - 20 square(i).Top = foursquare.Top square(i).BackColor = Color.Black Me.Controls.Add(square(i)) End Sub End Class
  9. Boa tarde, Eu estou a tentar receber uma imagem numa função, consegui fazer em VB6, mas não sei como se recebe em VBA7, já andei a tentar e até agora nada, alguem sabe? Deixo um exemplo de VB6, de uma função que encontrei para mudar o contraste de uma imagem que recebe a imagem por parâmetro. Public Sub ModifyContrast(ByRef SrcPicture As PictureBox, ByRef DstPicture As PictureBox, ByVal Contrast As Long) 'Contrast uses a very simple formula: ' - Positive contrast pushes values away from the midtone (127). ' - Negative contrast pushes values toward the midtone (127) ' 'Because a universal adjustment is applied to each channel and pixel in the image, we can use a lookup table ' to greatly improve performance. Dim contrastTable() As Byte ReDim contrastTable(0 To 255) As Byte Dim x As Long, y As Long Dim colorCalculation As Long For x = 0 To 255 'This line contains the formula for basic contrast correction. We will calculate contrast for each possible input value ' (0 to 255) and store it to a table. Then we can use this table to quickly modify the entire image. colorCalculation = x + (((x - 127) * Contrast) \ 100) 'Clamp values to 0, 255 If colorCalculation > 255 Then colorCalculation = 255 ElseIf colorCalculation < 0 Then colorCalculation = 0 End If 'Store this value in the lookup table contrastTable(x) = colorCalculation Next x 'Use the FastDrawing class to retrieve the image's pixels into a standard VB array Dim fDraw As FastDrawing Set fDraw = New FastDrawing Dim imageWidth As Long, imageHeight As Long imageWidth = fDraw.GetImageWidth(SrcPicture) imageHeight = fDraw.GetImageHeight(DstPicture) Dim imagePixels() As Byte fDraw.GetImageData2D SrcPicture, imagePixels 'Now all we have to do is pass each channel value in the image through our lookup table Dim QuickX As Long For x = 0 To imageWidth - 1 QuickX = x * 3 For y = 0 To imageHeight - 1 'Modify each of red, green, and blue imagePixels(QuickX, y) = contrastTable(imagePixels(QuickX, y)) imagePixels(QuickX + 1, y) = contrastTable(imagePixels(QuickX + 1, y)) imagePixels(QuickX + 2, y) = contrastTable(imagePixels(QuickX + 2, y)) Next y Next x 'Paint the modified pixels onto the destination picture box fDraw.SetImageData2D DstPicture, SrcPicture.ScaleWidth, SrcPicture.ScaleHeight, imagePixels End Sub
  10. Boa tarde! Qual o melhor editor de código VB 6.0? Cumprimentos!
  11. Olá, pessoal! Sou novato em programação e estou desenvolvendo um programa bem simples com uma RichTextBox no meio. Meu objetivo é que quando a tecla TAB for pressionada a cor das letras seguintes mudem para Khaki, e quando a tecla TAB for pressionada novamente as letras que sucederão mudem para White formando um ciclo infinito. Já tentei várias possibilidades mas só consigo mudar para a primeira cor. É possível a mesma tecla ter duas funções?
  12. Olá, estou no décimo segundo ano e escolhi aplicações informáticas. Para projeto final de 1ºperíodo estamos a desenvolver um jogo em forma de quiz em visual basic. Eu criei dois modos, um curto e um longo e tenho as perguntas a ser geradas aleatoriamente mas por alguma razão, quando apresento o jogo as forms começam a aparecer seguidas sem ter clicado no button seguinte, que dá a ordem de procurar uma nova pergunta. Qual é o meu erro?
  13. Boa noite. Estou a criar um programa que vai buscar automaticamente os números do euromilhões, mas estou com um impasse, não consigo filtrar os números da string. Este é o meu código até agora. Imports System.Xml Public Class Form1 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim results(0 To 10) As String Dim arrpos As Integer = 0 Dim milhao As String = "Nada" ListBox4().Items.Clear() Dim xr As XmlReader = XmlReader.Create("https://www.jogossantacasa.pt/web/SCRss/rssFeedCartRes") Do While xr.Read() If xr.NodeType = XmlNodeType.Element AndAlso xr.Name = "description" Then results(arrpos) = (xr.ReadElementString) ListBox4.Items.Add(arrpos & "º " & results(arrpos)) arrpos += 1 Else xr.Read() End If Loop TextBox2.Text = results(2) TextBox3.Text = results(4) End Sub End Class Eu consegui por isto a devolver-me só a string pretendida <b>Sorteio nº 094/2016</b>: 5 10 33 34 47 + 2 10 mas queria só a parte dos números 5 10 33 34 47 + 2 10. Quando uso um split dá-me o erro "Value of type 'String()' cannot be converted to 'String'". Será que alguém me poderia dar uma ajuda? Obrigado Tiago Sousa
  14. Boas malta, ando com umas dúvidas das quais gostava de ser esclarecido.. Eu já estou a começar a trabalhar na minha PAP e a minha ideia é criar um site, um programa feito em Visual Basic e depois ter uma base dados que tanto pode ser acessada pelo Visual Basic como pelo site. Eu experimentei usar o GearHost e criei uma base de dados do tipo MSSQL e depois conectei ao Sql Server e funcionou perfeitamente. Mas também tenho a opção de criar uma base dados em MySQL. A minha dúvida é: crio a base de dados em MySQL ou MSSQL? E depois, se for em MySQL, como faço para ligar ao programa do Visual Basic? Ou então, se for em MSSQL, como faço para ligar ao PHP? Gostava de saber qual era a melhor maneira de o poder fazer. Obrigado pela ajuda
  15. Senhores, boa tarde. Estou pensando em sair do Brasil e tentar a vida em Portugal. Achariam que vale a pena pra um programador VB6 vale a pena o risco?? Obrigado a quem puder ajudar...
  16. Boas comecei a programar à pouco e estou a criar um projeto ambicioso no entanto preciso de uma solução para este meu erro. Eu tenho algo deste gênero. Dim batata as string writeline("n interessa blablabla") If (batata = "a" Or "b") Then Writeline("batateiro) Peço desculpa pela minha "nobisse" com certeza deve ser um erro extremamente estúpido .-. Obrigado!
  17. Boas, estou a fazer uma aplicação para me ajudar a mudar o setup da minha personagem num jogo, já encontrei vários api o problema é que eles movem o rato mas não efectuam o Click, Basicamente o que quero fazer é mover o rato para uma certa posição e efetuar um click. o mouse_event funciona nas janelas normais no windows (firefox, explorer) mas no jogo não funciona. 'Mover Rato Declare Auto Function SetCursorPos Lib "User32.dll" (ByVal X As Integer, ByVal Y As Integer) As Long 'Clicks 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 ' left button down Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up Private Sub macro() SetCursorPos(1220, 940) mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero) mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero) End Sub
  18. Bom dia a todos. Tenho um problema ao criar o ficheiro Saft, e espero que alguém ja tenho feito isto e me possa ajudar, pois não tenho experiência em XML. Estou a usar VB6 e consigo criar um ficheiro em XML, porém, não tenho a certeza de como adicionar o 'NameSpace' urn:OECD:StandardAuditFile-Tax:PT_1.03_01 ao fazer isto, o texto xmlns="" é automaticamente adicionado ao node <Header>. Aqui esta o código que uso, e o resultado. Set xmlDoc = New MSXML2.DOMDocument60 Dim pi As IXMLDOMProcessingInstruction Set pi = xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='Windows-1252'") 'encoding="UTF-8" xmlDoc.insertBefore pi, xmlDoc.documentElement Set xmlRootNode = xmlDoc.createElement("AuditFile") xmlDoc.appendChild xmlRootNode xmlDoc.documentElement.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance" xmlDoc.documentElement.setAttribute "xsi:schemaLocation", "urn:OECD:StandardAuditFile-Tax:PT_1.03_01 SAF-T-PT.XSD" xmlDoc.documentElement.setAttribute "xmlns:doc", "urn:schemas-basda-org:schema-extensions:documentation" xmlDoc.documentElement.setAttribute "xmlns", "urn:OECD:StandardAuditFile-Tax:PT_1.03_01" //de seguida crio o node <header> Set xmlNodeLevel0 = xmlDoc.createElement("Header") xmlRootNode.appendChild xmlNodeLevel0 Resultado: <?xml version="1.0" encoding="Windows-1252"?> <AuditFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:OECD:StandardAuditFile-Tax:PT_1.03_01 SAF-T-PT.XSD" xmlns:doc="urn:schemas-basda-org:schema-extensions:documentation" xmlns="urn:OECD:StandardAuditFile-Tax:PT_1.03_01"><Header xmlns=""> Será que alguém com mais experiência se sabe explicar porque?
  19. Preciso de Ajuda, Estou Criando um programa e tem uma parte que tem CombBox, Preciso que faça assim, Ex: CrossFire AL/BR CrossFire Fantasy Point Blank Combat Arms ----------------- Botão escrito: Verificar Cheats Online Mas Eu preciso que quando eu escolher uma dessas Opções eu Clicko no botão botão e vai para outro Form... Vo ficar aguardando
  20. Bom dia pessoal, Estou com um problema. Eu neste momento estou a fazer um software para a empresa onde trabalho. O software consiste em fazer as requisições de matéria prima ao armazém. Eu apenas sou um curioso da programação, não sou profissional . Tenho a minha base de dados em access e ela esta alocada no servidor. O meu programa tem a vertente para requisitar e tem a vertente para o chefe de armazém receber o pedido. o que é que eu pretendo. Eu pretendo que quando se envie um pedido, que apareça no pc do armazém uma msgbox a dizer "novo pedido". O form do armazém ira estar sempre aberto. Eu utilizo um timer para de 30 em 30 segundos fazer refresh às datagrids. Será que me conseguem arranjar uma função para incluir no timer de forma a contar os registos da tabela e caso haja alteração, relativa à ultima contagem que mande uma msgbox?? Desde já muito obrigado. HugoPires
  21. O VB6 já está descontinuado, é verdade, mas no entanto há que ainda use e inicie nesta linguagem de programação. Para quem está a começar ficam aqui alguns recursos de iniciação: Tutorial de iniciação ao VB 5/6 Exercícios de VB 5/6 Caso tenham mais recursos para partilhar, que estam em Português, façam o favor de disponibilizar.
  22. Projeto(Pass:p@p): Aqui Problema: Em todas as minhas forms eu tenho um timer que controla as cores de alguns paneis e botões, essa cor e definida na form7, lá têm varias opções de cores para o utilizador usar se ele usar uma dessas o programa regista a cor num ficheiro TXT, mas se o utilizador escolher personalizado vai abrir um painel com tres trackbar definidas para valores entre 0 a 255 para fazer as tres cores do RGB. Até ai tudo bem se meter nas tres trackbar 255,255,255 tudo o que esta definido para mudar de cor muda para branco, mas, quando fecho e abro o programa fica tudo amarelo (255,255,0) ou seja eu leio os fiheiros no load da form1, mas ele lê muito bem os dois primeiros valores mas o terceiro define sempre com 0, o que é estranho pois se fechar a calculadora e for ver os valores salvos nos ficheiros vai estar 255 nos tres. cada ficheiro guarda um valor ou do Red ou do Green ou do Blue! Cumps, Paulo
  23. Private Sub btn_concluir_Click(sender As Object, e As EventArgs) Handles btn_concluir.Click mensagem = "Deseja concluir esta fatura?" titulo = "Gestão de Restaurante - Paulo Pereira - Conclusão de Fatura" botoes = MessageBoxButtons.YesNo icone = MessageBoxIcon.Question resposta = MessageBox.Show(mensagem, titulo, botoes, icone) If DialogResult.Yes = True Then Dim instrucdadosfatura As String If CheckBox1.Checked = True Then If txtNIF.Text = Nothing Or txtNome.Text = Nothing Or txtMorada.Text = Nothing Then MsgBox("O preenchimento dos dados pessoais é obrigatório.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Else If mtd_pagamento.Text = Nothing Or txtentrega.Text = Nothing Or lbl_troco.Text = "Entrega Insuficiente" Then MsgBox("O preenchimento dos campos Método de Pagamento e Entrega é obrigatório e o valor da Entrega deve ser maior que o valor a pagar.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Else lblentrega.Text = txtentrega.Text lblentrega.Text = Replace(lblentrega.Text, ".", ",") instrucdadosfatura = "UPDATE DadosFatura SET NIF='" & txtNIF.Text & "', Nome='" & txtNome.Text & "', Morada='" & txtMorada.Text & "', MtdPagamento='" & mtd_pagamento.Text & "', Entrega='" & lblentrega.Text & " €" & "', Troco='" & lbl_troco.Text & "', Estado='" & "Concluída" & "' WHERE Cod='" & lbl_nrfatura.Text & "'" Me.DadosFaturaTableAdapter.Adapter.SelectCommand.CommandText = instrucdadosfatura Me.DadosFaturaTableAdapter.Update(Me._OFICINA_MDFDataSet.DadosFatura) Me.DadosFaturaTableAdapter.Fill(Me._OFICINA_MDFDataSet.DadosFatura) MsgBox("O Recibo foi finalizado com sucesso.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Me.Close() Peças.Show() End If End If Else If mtd_pagamento.Text = Nothing Or txtentrega.Text = Nothing Or lbl_troco.Text = "Entrega Insuficiente" Then MsgBox("O preenchimento dos campos Método de Pagamento e Entrega é obrigatório e o valor da Entrega deve ser maior que o valor a pagar.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Else lblentrega.Text = txtentrega.Text lblentrega.Text = Replace(lblentrega.Text, ".", ",") instrucdadosfatura = "UPDATE DadosFatura SET MtdPagamento='" & mtd_pagamento.Text & "', Entrega='" & lblentrega.Text & " €" & "', Troco='" & lbl_troco.Text & "', Estado='" & "Concluída" & "' WHERE Cod='" & lbl_nrfatura.Text & "'" Me.DadosFaturaTableAdapter.Adapter.SelectCommand.CommandText = instrucdadosfatura Me.DadosFaturaTableAdapter.Update(Me._OFICINA_MDFDataSet.DadosFatura) Me.DadosFaturaTableAdapter.Fill(Me._OFICINA_MDFDataSet.DadosFatura) MsgBox("O Recibo foi finalizado com sucesso.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Me.Close() Peças.Show() End If End If End If End Sub Alguem me consegue dizer onde esta o erro sff?
  24. Olá, sou novo aqui no fórum e gostaria de tentar resolver meu problema, Estou desenvolvendo um programa de gerenciamento de consultas no visual basic, não conheço muito o visual basic mas acontece o seguinte, ao executar o comando para editar uma informação do banco de dados que no caso é o access e ao executar aparece o seguinte erro na minha linha de código: "A conversão da cadeia de caracteres no tipo 'Integer' não é válido " e no caso a linha de código é essa: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.TabClientesTableAdapter.Editar(IdClienteTextBox.Text, NomeTextBox.Text, NascMaskedTextBox.Text, CPFMaskedTextBox.Text, RGTextBox.Text, EndereçoTextBox.Text, BairroTextBox.Text, CidadeTextBox.Text, EstadoTextBox.Text, CEPMaskedTextBox.Text, TelefoneMaskedTextBox.Text, CelularMaskedTextBox.Text, EmailTextBox.Text) O que pode ser? Estou desesperado e se pudere ajudar fico agradecido!
  25. Alguém sabe como se associa uma listview a uma linha da datagridview para associar as peças de uma moto ao cliente? porque a minha ideia é depois de tar associado clicava em cima da linha da datagridview e o conteudo da datagridview apareçia numa tabela chamada fatura Se me pudessem ajudar agradecia