Jump to content

Search the Community

Showing results for tags 'vb'.

  • 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, Finanças e Admin. Pública
    • Dúvidas e Discussão de Programação
    • Tutoriais
    • Snippets / Armazém de Código
  • Outras Áreas
    • Notícias de Tecnologia
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
  • 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. Olá, pessoal! Sou novato e do Brasil e é uma honra estar aqui com vocês. Estou tentando fazer com meu uma um arquivo ".mp3" seja reproduzido ao mesmo abrir o meu aplicativo Sendo que já está configurado no Windows como "Padrão" e coloquei até o código abaixo, o arquivo abre o aplicativo como teria que ser, pois é padrão mas o aplicativo não reproduz. Fico grato desde já pelas respostas. Aqui está o Código: ' Associação à definir no Registro Dim file_MP3 As String = ".mp3" ' extensão selecionada Dim appName As String = ProductName ' Nome do seu aplicativo ' Criar a chave no Registro para a associação de arquivo Dim NameKey As String = "Software\Classes\{file_MP3}" Dim key As RegistryKey = Registry.CurrentUser.CreateSubKey(NameKey) key.SetValue("", appName) ' Definir o nome do aplicativo como padrão para este tipo de arquivo key.Close() ' Criar a subchave para o nome do aplicativo key = Registry.CurrentUser.CreateSubKey("Software\Classes\{appName}\shell\open\command") key.SetValue("", Application.ExecutablePath & " %1") key.Close()
  2. eu em API, estou a fazer uma calculadora. Só que ela não faz as contas de menos direito. Ex: 9-8=9 e tem que dar 1. o código é este (se alguém me conseguir ajudar agradecia): Private Function EvaluateFactor(factor As String) As Variant ' Avalia um fator para multiplicação e divisão Dim values() As String values = Split(factor, "/") Dim result As Variant result = Val(values(0)) Dim i As Integer For i = 1 To UBound(values) If Val(values(i)) <> 0 Then result = result / Val(values(i)) Else ' Trata a divisão por zero EvaluateFactor = CVErr(xlErrDiv0) Exit Function End If Next i EvaluateFactor = result End Function Private Function EvaluateTerm(term As String) As Variant ' Avalia um termo para adição e subtração Dim factors() As String factors = Split(term, "*") Dim result As Variant result = EvaluateFactor(factors(0)) Dim i As Integer For i = 1 To UBound(factors) Dim currentFactor As String currentFactor = factors(i) ' Verifica se o fator contém operadores de adição ou subtração If InStr(currentFactor, "+") > 0 Then result = result + CalculateExpression(Mid(currentFactor, InStr(currentFactor, "+") + 1)) ElseIf InStr(currentFactor, "-") > 0 Then result = result - CalculateExpression(Mid(currentFactor, InStr(currentFactor, "-") + 1)) Else ' Caso contrário, multiplique normalmente result = result * EvaluateFactor(currentFactor) End If Next i EvaluateTerm = result End Function Private Function EvaluateMultiplicationDivision(expression As String) As Variant ' Avalia a expressão para multiplicação e divisão Dim terms() As String terms = Split(expression, "+") Dim result As Variant result = EvaluateTerm(terms(0)) Dim i As Integer For i = 1 To UBound(terms) result = result + EvaluateTerm(terms(i)) Next i EvaluateMultiplicationDivision = result End Function Private Function EvaluateFullExpression(expression As String) As Variant ' Avalia a expressão levando em consideração a ordem de precedência dos operadores Dim result As Variant result = EvaluateMultiplicationDivision(expression) If Not IsError(result) Then EvaluateFullExpression = result Else EvaluateFullExpression = CVErr(xlErrValue) End If End Function Private Function CalculateExpression(expression As String) As Variant On Error Resume Next ' Substitui vírgulas por pontos para garantir a interpretação correta dos números expression = Replace(expression, ",", ".") ' Remove espaços em branco expression = Replace(expression, " ", "") ' Avalia a expressão CalculateExpression = EvaluateFullExpression(expression) If Err.Number <> 0 Then ' Se ocorrer um erro, retorna o erro CalculateExpression = CVErr(xlErrValue) End If On Error GoTo 0 End Function Private Sub EvaluateAndAddToHistory() ' Avalia a expressão na caixa de texto e a adiciona ao histórico Dim expression As String expression = TextBox1.Value ' Avalia a expressão Dim result As Variant result = CalculateExpression(expression) If Not IsError(result) Then ' Adiciona a expressão e o resultado ao histórico AddToHistory expression & " = " & result ' Exibe o resultado na caixa de texto TextBox1.Value = result Image1.Picture = LoadPicture("C:\Users\craft\OneDrive\Desktop\CALCULADORA\emojo.jpg") If result = 69 Then Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\amoung-usa-sus.wav" ReproduzirSom caminhoSom Image1.Picture = LoadPicture("C:\Users\craft\OneDrive\Desktop\CALCULADORA\sus.jpg") End If Else ' Trata erros de avaliação MsgBox "Expressão inválida!", vbExclamation ' Limpa a caixa de texto após a avaliação TextBox1.Value = "" End If End Sub Private Sub AddToHistory(calculation As String) ' Adiciona o cálculo ao histórico ListBoxHistory.AddItem calculation ListBoxHistory.ListIndex = ListBoxHistory.ListCount - 1 End Sub Private Sub menos_Click() If TextBox1.Text = "" Then TextBox1.Text = "-" Else TextBox1.Text = TextBox1.Text & "-" End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub multiplicar_Click() If TextBox1.Text = "" Then TextBox1.Text = "*" Else TextBox1.Text = TextBox1.Text & "*" End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub Off_Click() Unload UserForm1 Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-leave-noise.wav" End Sub Private Sub UserForm_Initialize() ListBoxHistory.Clear Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\ronnie_lightweight-baby.wav" ReproduzirSom caminhoSom End Sub Private Sub negativo_Click() Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom If TextBox1.Text = "" Then TextBox1.Text = "-" Else TextBox1.Text = "-" & TextBox1.Text End If End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim inputChar As String inputChar = Chr(KeyAscii) If KeyCode = 13 Then ' 13 é o código ASCII para Enter ' Executa o cálculo e adiciona ao histórico EvaluateAndAddToHistory KeyCode = 0 ' Impede que o Enter seja processado normalmente End If If Not (inputChar Like "[0,1,2,3,4,5,6,7,8,9]" Or inputChar Like "[.,,,+,-,*,/]") Then KeyAscii = 0 ' Ignora a tecla pressionada se não for um número, vírgula ou operador End If If IsNumeric(inputChar) Then ' Se o caractere é numérico, restringe a entrada para uma vírgula por número If inputChar = "." Then If InStr(1, TextBox1.Value, ".", vbTextCompare) > 0 Then KeyAscii = 0 End If End If ElseIf inputChar Like "[+,-,*,/]" Then ' Restringe a entrada para um operador seguido If Len(TextBox1.Value) > 0 Then If Not IsNumeric(Right(TextBox1.Value, 1)) Then KeyAscii = 0 AddToHistory TextBox1.Value End If End If End If End Sub Private Sub ReproduzirSom(ByVal caminhoSom As String) Dim objShell As Object Set objShell = CreateObject("WScript.Shell") ' Executar um script do PowerShell para reproduzir o som objShell.Run "powershell -c (New-Object Media.SoundPlayer '" & caminhoSom & "').PlaySync()" End Sub Private Sub apaga_numero_Click() Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom ' Apaga o último caractere da caixa de texto Dim textoAtual As String textoAtual = TextBox1.Value If Len(textoAtual) > 0 Then TextBox1.Value = Left(textoAtual, Len(textoAtual) - 1) End If End Sub Private Sub apagar_linha_Click() Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom TextBox1.Value = "" hasDecimal = False hasOperator = False End Sub Private Sub cinco_Click() If TextBox1.Text = "" Then TextBox1.Text = 5 Else TextBox1.Text = TextBox1.Text & 5 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub dividir_Click() Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom If TextBox1.Text = "" Then TextBox1.Text = "/" Else TextBox1.Text = TextBox1.Text & "/" End If End Sub Private Sub dois_Click() If TextBox1.Text = "" Then TextBox1.Text = 2 Else TextBox1.Text = TextBox1.Text & 2 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub igual_Click() Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom EvaluateAndAddToHistory End Sub Private Sub mais_Click() Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom If TextBox1.Text = "" Then TextBox1.Text = "+" Else TextBox1.Text = TextBox1.Text & "+" End If End Sub Private Sub nove_Click() If TextBox1.Text = "" Then TextBox1.Text = 9 Else TextBox1.Text = TextBox1.Text & 9 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub oito_Click() If TextBox1.Text = "" Then TextBox1.Text = 8 Else TextBox1.Text = TextBox1.Text & 8 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub quatro_Click() If TextBox1.Text = "" Then TextBox1.Text = 4 Else TextBox1.Text = TextBox1.Text & 4 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub seis_Click() If TextBox1.Text = "" Then TextBox1.Text = 6 Else TextBox1.Text = TextBox1.Text & 6 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub sete_Click() If TextBox1.Text = "" Then TextBox1.Text = 7 Else TextBox1.Text = TextBox1.Text & 7 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub tres_Click() If TextBox1.Text = "" Then TextBox1.Text = 3 Else TextBox1.Text = TextBox1.Text & 3 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub um_Click() If TextBox1.Text = "" Then TextBox1.Text = 1 Else TextBox1.Text = TextBox1.Text & 1 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub virgula_Click() If TextBox1.Text = "" Then TextBox1.Text = "," End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub Private Sub zero_Click() If TextBox1.Text = "" Then TextBox1.Text = 0 Else TextBox1.Text = TextBox1.Text & 0 End If Dim caminhoSom As String caminhoSom = "C:\Users\craft\OneDrive\Desktop\CALCULADORA\discord-notification.wav" ReproduzirSom caminhoSom End Sub
  3. Boa noite Sou inexperiente em VBasic e precisava de uma ajuda para um projeto. Tenho um form que abre dentro de um painel. Nele tenho um botão que abre um 2º form em showdialog e queria que ao fechar o 2º form adicionasse o valor da variável recolhida no campo do 1º form. Já experimentei normalmente a passar entre forms mas os dados não são adicionados possivelmente por o 1º form estar aberto dentro de um painel. Em baixo envio parte do código para ver se alguém me consegue ajudar. Abro o 1º form no painel da seguinte maneira: Public Sub OpenChieldForm(ChieldForm As Form) If CurrenteChieldForm IsNot Nothing Then CurrenteChieldForm.Close() End If CurrenteChieldForm = ChieldForm With ChieldForm .TopLevel = False .FormBorderStyle = FormBorderStyle.None .Dock = DockStyle.Fill End With Panel_Contenedor.Controls.Add(ChieldForm) Panel_Contenedor.Tag = ChieldForm ChieldForm.BringToFront() ChieldForm.Show() End Sub Private Sub Btn_CriarEncomenda_Click(sender As Object, e As EventArgs) Handles Btn_CriarEncomenda.Click OpenChieldForm(New Form_CriarEditarEncomendas) End Sub Com um botão dentro do 1º form abro o 2º form: Private Sub Btn_AbreLista_Click(sender As Object, e As EventArgs) Handles Btn_AbreLista.Click Form_SelecionarCliente.ShowDialog() End Sub Depois no 2º form tenho um datagrid que ao clicar em confirmar adiciona o valor pretendido do datagrid numa variável publica e queria que ao fechar este form esses dados fossem adicionados nos respetivo campo indicado do 1º form, mas nada acontece. Private Sub SelecionaClientes() Id_Cliente_Selecionado = Tab_ClientesSelecionadoDataGridView.CurrentRow.Cells("IdClienteDGV").Value Form_CriarEditarEncomendas.IdClienteTextBox.Text = Id_Cliente_Selecionado Close() End Sub Private Sub Btn_Confirmar_Click(sender As Object, e As EventArgs) Handles Btn_Confirmar.Click SelecionaClientes() End Sub Passar dados entre forms sem estarem abertos dentro de paineis eu consigo fazer, agora estando 1 aberto num painel não estou a conseguir. Agradecia a ajuda para esta situação, Obrigada.
  4. Bom Dia Quero saber quando foi adicionado um novo registo a uma determinada tabela no Mysql. A forma classica é com um timmer. ... mas o timmer obriga-me a interrogar a database repetidamente. Achei depois que o conseguiria com um BindingSource, associado a uma textbox por exemplo, aproveitando depois o evento textchanged.... Mas preciso sempre de actualizar a BindingSource. Depois tentei faze-lo a partir de um trigger que chamaria uma rotina externa... Mas desisti, já qe preciso de levar a atualização a todos clientes do programa. Utilizo muito HMI controls que fornecem um interface com as variaveis de um PLC... Cada mudança do estado de uma variavel do PLC, posso trata-la no evento equivalente ao texttchanged... Não preciso de estar a recorrer a um timmer... Não sei se fui claro.... Mas há alguma coisa parecida com isto, para monitorar a base de dados ? Obrigado Paulo Frutuoso
  5. pessoal sou novato nesta área gostaria a vossa ajuda quero validar o meu software de facturação e estou com dificuldade de programar o esquema xml como posso definir isso para pegar os dados na minha base de dados sql server? esse o esquem que vem vb.net <?xml version="1.0" encoding="utf-8"?> <xs:schema attributeFormDefault="unqualified" elementFormDefault="qualified" xmlns:xs="http://www.w3.org/2001/XMLSchema"> <xs:element name="AuditFile"> <xs:complexType> <xs:sequence> <xs:element name="Header"> <xs:complexType> <xs:sequence> <xs:element name="AuditFileVersion" type="xs:string" /> <xs:element name="CompanyID" type="xs:unsignedByte" /> <xs:element name="TaxRegistrationNumber" type="xs:unsignedLong" /> <xs:element name="TaxAccountingBasis" type="xs:string" /> <xs:element name="CompanyName" type="xs:string" /> <xs:element name="CompanyAddress"> <xs:complexType> <xs:sequence>
  6. Boa tarde, Agradeço a vossa ajuda para resolver uma situação que não obtenho o resultado esperado. Na prática consiste em abrir um ficheiro que se indica na folha "Registos". Depois de abrir o ficheiro pretendido, efetuam-se as alterações ou registos necessários e este é fechado. Até aqui tudo bem, acontece que a seguir o ficheiro menu de trabalho deveria saltar para a folha inicial "Home", o que não acontece. Sub Controlo_1() Sheets("Registos").Select PathName = Range("C3").Value Filename = Range("C25").Value TabName = Range("D25").Value ControlFile = ActiveWorkbook.Name Workbooks.Open Filename:=PathName & Filename Sheets(TabName).Select Sheets("Home").Select End Sub O que está a acontecer é dar erro na última ação "Sheets("Home").Select". Será que existe uma forma simples de resolver isto. Obrigado, Domingues
  7. Bom dia, estou a densenvolver um projeto onde é mostrado ao utilizador num form um PDF, onde o utilizador insere os dados. O meu problema e receber os dados vindos do pdf. Apenas consigo retornar os nomes. De momento, tenho este código; For i As Integer = 0 To formWidget.FieldsWidget.List.Count - 1 Dim combo As PdfComboBoxWidgetFieldWidget = TryCast(formWidget.FieldsWidget.List(i), PdfComboBoxWidgetFieldWidget) Dim combotext As String = formWidget.FieldsWidget.List(i).Name If combo IsNot Nothing AndAlso combotext = "Resultado" Then Message.show(combo.SelectedValue)) End If Next Neste caso quero retornar apenas o valor selecionado na combobox, mas o valor retornado na variável combo é nothing. Estou a utilizar o Spire.Pdf, Widget e Fields. Se alguém me conseguir ajudar ou mostrar algo que me posso ajudar agradecia.
  8. boa noite estou aqui meio bloqueado , alguém sabe como fazer isto ? tenho uma string como uma conta "1+2+3+4-5", e queria algum comando, que retorna-se o valor de 5, que fizesse a conta que está dentro da string .
  9. Boa noite. Ao clicar no Start no Visual Studio abre normalmente o programa. Ao abrir o programa (.exe) pelo bin/Debug ele apresenta um erro: O incremento não deverá ser chamado se o estilo for Painel Rolante. Antes eu coloquei um ProgressBar com um Timer, ao chegar a 100% abre o Form Inicio e fecha o atual. Timer: Private Sub TimerCountDown_Tick(sender As Object, e As EventArgs) Handles TimerCountDown.Tick 'Incrementar 1 no intervalo de tempo 150 milésimos de segundo ProgressBarSplashScreen.Increment(1) If ProgressBarSplashScreen.Value = ProgressBarSplashScreen.Maximum Then TimerCountDown.Stop() Inicio.Show() Me.Close() End If If ProgressBarSplashScreen.Value > 1 And ProgressBarSplashScreen.Value < 100 Then LabelSplashScreen.Text = String.Format("A carregar {0}%", {ProgressBarSplashScreen.Value}) ElseIf ProgressBarSplashScreen.Value = 100 Then LabelSplashScreen.Text = "A carregar {100%}" End If End Sub Erro: https://i.postimg.cc/YqPrVxCZ/5RiQb3p.png Alguém me poderia ajudar por favor?
  10. Olá! Eu carrego em uma textbox um arquivo TXT com N linhas e preciso inserir um ";" a cada 56 caracteres, por 20 vezes, ou seja, 56 caracteres add ; (20 vezes e pula para próxima linha) Estou fazendo com o código abaixo, mas o ";" aparece a cada 01 caractere, podem me ajudar? Dim aux As String = txtLinhas.Text txtLinhas.Text = String.Empty For i As Integer = 0 To aux.Length - 56 txtLinhas.Text &= aux.Chars(i).ToString + ";" Next
  11. Quando introduzo a nota ele dá-me o seguinte erro: System.NullReferenceException: 'A referência de objecto não foi definida como uma instância de um objecto.' O código é o seguinte: <Public Class Form1 Structure aluno Dim nome As String Dim notas() As Integer End Structure Dim al(10) As aluno Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim i, j As Integer ReDim Preserve al(10).notas(2) For i = 1 To 2 al(i).nome = InputBox("Nome") For j = 1 To 2 al(i).notas(j) = Val(InputBox(j & " ª Nota")) Next Next End Sub ... > O objetivo era ler para 11 alunos o nome e para cada a classificação a três disciplinas, mas dá-me erro ao ler a primeira nota ele dá o erro acima e Nome Valor Tipo al(i).notas Nothing Integer()
  12. Boa Tarde ando a ja uns dias a procurar uma soluçao em diversos sites e no youtube através de videos mas nao encontrei nada que fizesse o webbrowser de outro form usasse o textbox do form1 como eu poderia fazer para que o web browser quando usase a string username fosse buscar a informaçao que estava escrita no form 1 no textbox3 e a password no texbox2 esta é o meu código do form1 Public Class Form1 Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick segundos.Text += 1 If segundos.Text = "60" Then minutos.Text += 1 segundos.Text = 0 End If If minutos.Text = "60" Then horas.Text += 1 minutos.Text = 0 End If End Sub Public Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Timer1.Enabled = False Timer1.Stop() Button1.Enabled = True Button7.Enabled = False End Sub Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load form2.Show() TrackBar1.Minimum = 0 TrackBar1.Maximum = 100 TrackBar2.Minimum = 0 TrackBar2.Maximum = 100 TrackBar1.Value = 35 TrackBar2.Value = 100 End Sub Public Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Static i As Integer i += 1 form2.Show() If i >= ImageList1.Images.Count Then i = 0 form2.Hide() End If Button9.BackgroundImage = ImageList1.Images(i) End Sub Public Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Form3.Show() End Sub Public Sub License_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles License.Click TabControl1.SelectedTab = TabPage4 End Sub Public Sub Map_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Map.Click TabControl1.SelectedTab = TabPage1 End Sub Public Sub Settings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Settings.Click TabControl1.SelectedTab = TabPage2 End Sub Public Sub Stats_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stats.Click TabControl1.SelectedTab = TabPage3 End Sub Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Static i As Integer If TextBox1.Text = "pika_bot2019" Then i = 0 Label4.Visible = True Label3.Visible = False Label4.Enabled = True Label3.Enabled = False Button3.BackgroundImage = ImageList2.Images(i) Button4.BackgroundImage = ImageList2.Images(i) Else MsgBox("Invalid License") Label4.Visible = False Label4.Enabled = False Label3.Visible = True Label3.Enabled = True End If End Sub Public Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click TabControl2.SelectedTab = TabPage5 End Sub Public Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click TabControl2.SelectedTab = TabPage6 End Sub Public Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click TabControl2.SelectedTab = TabPage7 End Sub Public Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click TabControl2.SelectedTab = TabPage8 End Sub Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Label4.Enabled = True Then Button1.Enabled = False Button7.Enabled = True Timer1.Enabled = True Timer1.Start() Else Label3.Enabled = True Form4.Show() End If End Sub Public Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing Dim dialog As DialogResult dialog = MessageBox.Show("Are you sure you want to exit?", "Alert", MessageBoxButtons.YesNo) If dialog = DialogResult.No Then e.Cancel = True Else Application.ExitThread() End If End Sub Public Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click TabControl3.SelectedTab = TabPage10 End Sub Public Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click TabControl3.SelectedTab = TabPage11 End Sub Public Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click TabControl3.SelectedTab = TabPage12 End Sub Public Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click TabControl3.SelectedTab = TabPage13 End Sub Public Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click TabControl3.SelectedTab = TabPage14 End Sub Public Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click TabControl3.SelectedTab = TabPage15 End Sub Public Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click TabControl3.SelectedTab = TabPage16 End Sub Public Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click TabControl3.SelectedTab = TabPage17 End Sub Public Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click TabControl3.SelectedTab = TabPage18 End Sub Public Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click TabControl3.SelectedTab = TabPage19 End Sub Public Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click TabControl3.SelectedTab = TabPage20 End Sub Public Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click TabControl3.SelectedTab = TabPage21 End Sub Public Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click TabControl3.SelectedTab = TabPage22 End Sub Public Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged If CheckBox6.Checked Then NumericUpDown1.Enabled = True Label7.Enabled = True Else NumericUpDown1.Enabled = False Label7.Enabled = False End If End Sub Public Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll Label8.Text = TrackBar1.Value.ToString() End Sub Public Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll Label10.Text = TrackBar2.Value.ToString() End Sub End Class este é o codigo do form3 Public Class Form3 Dim didWeNavigated? As Boolean = False Dim gottheserver? As Boolean = False Public Property ScriptErrorsSuppressed As Boolean Public Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Public Sub WebBrowser2_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted If didWeNavigated = False Then Exit Sub End If If didWeNavigated = True Then didWeNavigated = False Dim username As String = TextBox3.Text Dim password As String = TextBox2.Text WebBrowser2.Document.GetElementById("bgcdw_login_form_username").SetAttribute("Value", username) that text field. WebBrowser2.Document.GetElementById("bgcdw_login_form_password").SetAttribute("Value", password) text field. End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick SendKeys.Send("{ENTER}") Timer1.Stop() End Sub End Class
  13. 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á.
  14. Bom dia, Estou com um problema grave e não consigo encontrar solução: Temos um programa em VB6 instalado em várias empresas que de repente após as ultimas atualizações do windows 10 (1903 18362.239), passou a dar erro quando se abrem forms que contenham o control MSHFlexGrid. O erro aponta para o control ListView no ficheiro MSCOMCTL.OCX, Já pesquisei em tudo que é forum e embora encontre muitas soluções continuo com o problema. Já tentei voltar a registar o OCX e reinstalar a aplicação. O erro apenas aparece aparece quando o windows 10 faz a atualização para esta versão, em versões anteriores não existe problema algum. O VB 6 (SP6) que estou a utilizar tem a versão VBA: Retail 60.9782 https://drive.google.com/file/d/11FlSj1iv2IAmJdHN0A_hjFJryqPKoO1U/view?usp=sharing
  15. Boa tarde! Com este programa os meus objectivos são: 1-Fazer uma pergunta a utilizador de quantos formulários quer fazer; 2-Depois a pessoa selecciona o radiobutton que lhe interessa; 3-Aparece uma mensagem a dizer obrigado pela votação; 4- Escreve na listbox quantas vezes votaram neste Radiobutton; O erro que tenho é quando escreve o Rpg que é o texto de um radiobutton aparece o numero de questionarios que a pessoa quer fazer e nao esta a somar so aparece o 1 nao soma a variavel volta sempre a 0 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim i, n, Conta1, Conta2, Conta3, Conta4, Conta5, Conta6 As Integer Conta1 = 0 Conta2 = 0 Conta3 = 0 Conta4 = 0 Conta5 = 0 Conta6 = 0 For i = 1 To n If RadioButton1.Checked Then Conta1 = Conta1 + 1 ListBox1.Items.Add("RPG =" & Conta1) ElseIf RadioButton2.Checked Then Conta2 = Conta2 + 1 ListBox1.Items.Add("Survival =" & Conta2) ElseIf RadioButton3.Checked Then Conta3 = Conta3 + 1 ListBox1.Items.Add("Ação =" & Conta3) ElseIf RadioButton4.Checked Then Conta4 = Conta4 + 1 ListBox1.Items.Add("Terror =" & Conta4) ElseIf RadioButton5.Checked Then Conta5 = Conta5 + 1 ListBox1.Items.Add("Survival=" & Conta5) ElseIf RadioButton6.Checked Then Conta6 = Conta6 + 1 ListBox1.Items.Add("MOBA=" & Conta6) End If Next End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click n = InputBox("Quantas votações deseja fazer?") Link da interface do meu programa vzxFiqu.png
  16. Como consigo programar estes botões que são criados dinamicamente ? Ou informação sobre criação de botões dinâmicos Private Sub compra_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Width = pagina_inicial.Width - 1 Me.Height = pagina_inicial.Height - 1 Dim objConexao As SqlClient.SqlConnection objConexao = New SqlClient.SqlConnection() objConexao.Open() '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Dim num_total_pedidos As Integer Dim sql As New SqlCommand("SELECT count (*) FROM tbl_pedidos", objConexao) num_total_pedidos = sql.ExecuteScalar() Dim i, k, x, y As Integer x = 63 y = 20 For i = 1 To num_total_pedidos ' For k = 1 To 4 Dim btn As New Button ' btn.Location = New Point(x, y) btn.Width = 100 btn.Height = 100 btn.Text = "" btn.Visible = True FlowLayoutPanel1.Controls.Add(btn) btn.Name = "btn" & i MsgBox("btn" & i) ' x = x + 150 ' Next ' x = 63 ' y = 150 Next objConexao.Close() End Sub
  17. Boas pessoal Quero fazer uma consulta com meu combobox da seguinte forma Quando o Usuario Consultar no combobox digamos em uma lista de 100 linhas cadastrados nomes de pessoas , la tem um nome assim "Jose Augusto Silva", e "Joao Alfredo Silva" , "Julia Silva" Quando o Usuario digitar no combobox a palavra "Silva" ele me trazer no LISITENS em aberto o combobox todos os Usuarios com este nome utilizando a consulta LIKE do SQL mas nao consegui fazer funcionar nem no TEXTCHANGED e nem no KEYUP alguem tem alguma ideia ?
  18. Preciso de criar um projeto no visual basic. Associei o meu trabalho a uma database, no entanto, quando abro o meu trabalho noutro computador não dá, porque o diretório de raiz do database enconttr-se no utilizador do meu computador. O meu professor não me consegui ajudar no assunto , e não sabe como se resolve. Alguém me pode ajudar?
  19. Boa tarde!! Eu tenho uma dúvida em passar de um form para o outro variáveis. Passo a explicar: Eu tenho em VB 3 form(s), o 1º form e o 2º form têm um jogo, e o 3º form dá a pontuação. O 1º e o 2º form têm pontuações diferentes dependendo do jogo do utilizador, agora eu queria mandar para o 3º form a pontuação do 1º e do 2º. O meu código é assim: Form 1. Dim pontuacao1 As Integer código do jogo ... pontuacao1 = (exemplo) 10 Form 2. Dim pontuacao2 As Integer código do jogo ... pontuacao2 = (exemplo) 20 Form 3. Agora eu queria apresentar as duas pontuações e a soma delas. (exemplo) Label1.text = pontuacao1 Label2.text = pontuacao2 Label3.text = pontuacao1 + pontuacao2
  20. E Ai galera como eu posso fazer para salvar as configurações de uma picturebox. Pra mesmo que eu feche o programa a imagem que eu coloquei lá continue lá quando eu abri-lo novamente
  21. Boas, Estava a tentar criar uma rotina em que consoante muitos valores, fosse capaz de encontrar uma soma em que o resultado seja igual a um valor definido. Por Ex: São fornecidos valores de 1 a 9 e resultado 10. É suposto encontrar uma combinação por exemplo 1+9 ou 8+2 ou 1+2+3+4. Com resultado 10. Consegui por a funcionar com a função solver do Excel, mas quando o resultado é a soma de muitas combinações possíveis, pode demorar mais de uma hora a conseguir solução. É possível efectuar este procedimento em VB6? Alguém tem ideias ? VB6 porque é a linguagem que estou mais confortável.
  22. Olá, estou querendo fazer um programa que deleta pastas, mais estou tento dificuldades nessa parte do código: If System.IO.Directory.Exists("C:\Users\USUÁRIO\AppData\Local\Temp") Then System.IO.Directory.Delete("C:\Users\USUÁRIO\AppData\Local\Temp", True) Else System.IO.Directory.CreateDirectory("C:\Users\USUÁRIO\AppData\Local\Temp") End If End Sub O que posso colocar na parte de "USUÁRIOS" para que ele possa "detectar" automaticamente o nome.
  23. Pessoal, eu gostaria de alguns exemplos simples e funcionando de leitura, criação, verificar a existência e apagar chaves e valores do registro do windows, principalmente como fazer essas operações quando o windows é de 64 Bits e a chave ou valor se encontra em Wow6432 la no registro. Muito obrigado desde já.
  24. Pessoal sou novo aqui, queria saber como faço no VB6 para Conectar um campo de uma Tabela no SQL Serve e Exibir em uma Combo que no caso seria. (Tem uma tabela com o nome de municipios, que dentro dela tem o campo municipios(cidade) e o com UF(estados), em uma combo eu queria que aparece os registros de municipio e a outra os registro de UF, porem nao sei que codigo eu uso... Desculpe Qualquer coisa..
  25. Boas, este é o meu primeiro tópico neste fórum. Então é o seguinte, numa fase final do processo do correr do meu programa, tenho uma datagridview com dados e quando carrego no botão , passa os dados da DGV para o excel. O código que uso é este: If DataGridView1.Rows.Count > 0 Then Dim wapp As Microsoft.Office.Interop.Excel.Application Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet Dim wbook As Microsoft.Office.Interop.Excel.Workbook wapp = New Microsoft.Office.Interop.Excel.Application wapp.Visible = True wbook = wapp.Workbooks.Add() wsheet = wbook.ActiveSheet Dim iX As Integer Dim iY As Integer Dim iC As Integer For iC = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(1, iC + 1).Value = DataGridView1.Columns(iC).HeaderText wsheet.Cells(1, iC + 1).Font.Bold = True Next For iX = 0 To DataGridView1.Rows.Count - 1 For iY = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(iX + 2, iY + 1).value = DataGridView1(iY, iX).Value Next Next wsheet.Columns.AutoFit() End If Onde o erro aparece é nesta parte do código: (...) For iX = 0 To DataGridView1.Rows.Count - 1 For iY = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(iX + 2, iY + 1).value = DataGridView1(iY, iX).Value <-- É nesta linha que dá erro. Next Next (...) Mensagem do erro. ---------------------- Aproveito este tópico para perguntar se alguém sabe como faço com que dados apareçam por baixo e não ao lado como aparece nesta imagem? O código usado para guardar o dado no ficheiro texto é este: (...) If CB_tercaadicionar.Checked Then My.Computer.FileSystem.WriteAllText("D:\Terca_Feira.txt", TB_Adicionarhora.Text, True) My.Computer.FileSystem.WriteAllText("D:\numhora_Terca_Feira.txt", TB_numhora.Text, True) End If (...) Obrigado!
×
×
  • 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.