Search the Community

boa noite queria saber se alguem poderia me ajudar queria q quando aperta se o enter ele pularia uma linnha e colocaria um numer 1 e deposi quando aperta se de novo enter pularia e colocaria 2

Boa tarde Exmos. Desejo construir no Excel um formulário para o registo de fornecedores com diversos campos em uma Tabela, Nome ("A1"), NIF ("B1"), Morada ("C1") e Moeda ("D1"). Tenho a Textbox3.Locked = True (Campo Morada) com a dependência da permissão do registo de dados, apenas quando a textbox2 que a antecede confirme a condição Textbox3.Locked = False, ou seja, apenas consigo iniciar o registo da morada na Textbox3 quando um valor numérico está registado na Textbox2. Desejo no entanto, e quando abro a Userform para preencher o formulário de um novo registo de fornecedor, que ao iniciar a introdução do registo no campo Morada, que o código verifique se o NIF já se encontra registado evitando assim a duplicação do NIF. Fico imensamente grato pela ajuda que me possam dispensar! Att., Rui Barata

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()

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

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.

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

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>

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

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.

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 .

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?

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

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()

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

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á.

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

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

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

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 ?

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?

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

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

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.

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.

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á.