Search the Community

Boa noite. Será que me podem ajudar nesta questão? Tenho um listbox a selecionar o Listindex e a exibir a imagem do ficheiro correspondente de acordo com a variável LB1 de um ciclo For ... Next. Apesar de o ciclo incluir a linha de código Me.ListBox2.Selected(LB1) = True o Listbox perde aleatoriamente a seleção e só volta a exibir a ultima linha do ciclo. Sabem dizer-me se há forma de evitar que o Listbox perca a seleção? Grato.

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

.desculpem

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>

Bom dia. Eu estou a tentae executar uma aplicaçao .exe em java e quando tento colocar todas as janellas dele dentro de meu form essa aplicação dá crash. So nao dá crash na hora de colocar a janela principal, quando eu npretendo colocar tambem uma que esta configruada para ir sempre para o segundo ecra em full screen.

tenho um potenciometro a ler numa label queria retirar o valor máximo que passou nessa label para passar para uma variavel, obrigado pela ajuda

Boa Tarde a todos, eu estou no ultimo ano de escolaridade e tenho que desenvolver um projeto final de ano(PAP), na minha PAP, estou com um problema na minha listview quando eu adiciono alguns itens, aparece automaticamente a scrollbar quando fico sem campo de visão, mas não anda automaticamente para baixo ao colocar um novo item. Tentei este código só que não resulta Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged ListView1.Items(8).Selected = True ListView1.Select() ListView1.EnsureVisible(8) End Sub

Bom dia, pessoal! Desculpem-me se estou postando na seção errada. Realmente eu não sei distinguir se minha dúvida é de versões anteriores ou não. Hoje eu baixei um programa de um site de downloads que continha um arquivo chamado: Tutorial.vbs e dentro dele estava escrito os comandos abaixo: O que isso modifica no meu PC? Ao clicar neste arquivo .vbs, esses comandos acima foram para o editor de registro? Maldita hora que fui clicar nesse arquivo. O que eu preciso fazer para desfazer essa ação?

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

Ao adicionar os itens no datagrid mas notei que está repetir o mesmo nome do produto preciso de ajuda vossa.... grato pela atenção For i = 0 To DataGridView1.Rows.Count - 1 salvarvenda(CInt(DataGridView1.Rows(i).Cells(0).Value), CStr(DataGridView1.Rows(i).Cells(1).Value), CStr(DataGridView1.Rows(i).Cells(2).Value), CDec(DataGridView1.Rows(i).Cells(3).Value), CInt(DataGridView1.Rows(i).Cells(4).Value)) next

Sou estudante de Programação e nunca tinha usado VBA e tenho de entregar um trabalho, mas nunca tive formação nesta linguagem, e estou a ter problemas no programa na parte de Pesquisar registros com filtros, já tentei ao máximo fazer seguindo tutoriais na internet, vídeo aulas e fórum mas está sempre a dar erro e não consigo resolver. Fico muito agradecido se alguém me conseguir ajudar. Link do Programa: https://drive.google.com/file/d/1qBprlBRX8eg8wRoK2_Yy_UZ3pfisrzWj/view?usp=sharing

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 tarde. Sou ainda iniciante em VB criei um rodapé que vai da direita para a esquerda, eu ia colocar nesse rodapé, notícias sobre tecnologia de um website. Mas eu não sei como copio código HTML para VB e além disso sempre que eu abrir a aplicação aparecer noticias atualizadas. Alguém me poderia ajudar, por favor?

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://imgur.com/a/Bc4pUMy 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 https://imgur.com/a/vzxFiqu

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