Search the Community

Boas... Estou a tentar fazer um programa em que tenho uma ListBox. E esta ListBox tem a opção SelectionMode = MultiSimple. Isto para poder seleccionar vários itens da listebox O problema é quando seleccione os itens da lisbox para aparecer por exemplo numa textbox, só me aparece sempre o primeiro iten que esta seleccionado. alguém me sabe dizer como obtenho todos os itens seleccionados na lisbox? obrigado

oi pessoal tudo bom com vocês peço socorro pós sou iniciante e tenho um código que e para gerar carne de pagamento local só que ele imprime contando a parti de um TxtNumeroParcelas.Text, so que ele so imprime uma pagina com 6 carnes e se tiver 10 na txt ele só imprime 6 e não gera a próxima pagina eis aqui o código Private Sub PrintCarne_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintCarne.PrintPage Dim margemEsq As Single = e.MarginBounds.Left Dim margemSup As Single = e.MarginBounds.Top + 60 Dim margemDir As Single = e.MarginBounds.Right Dim margemInf As Single = e.MarginBounds.Bottom fonteTitulo = New Font("Verdana", 18, FontStyle.Bold) fonteRodape = New Font("Verdana", 10) fonteNormal = New Font("Verdana", 14) zero = 1 today = DateTimePicker1_Cliente.Text For x = 1 To TxtNumeroParcelas.Text If trinta = "30" Then dataParcelamento = today.AddDays(trinta) 'MdGerartitulu.gerandoTituloParcelado() trinta = trinta + 30 / 1 ' MsgBox(trinta) ElseIf trinta <> "30" Then dataParcelamento = today.AddDays(trinta) 'MdGerartitulu.gerandoTituloParcelado() trinta = trinta + 30 / 1 End If e.Graphics.DrawString(linha1 & linha1 & linha1 & linha1, New Font("Tahoma", 7, FontStyle.Bold), cor, 3, aux) aux += 7 e.Graphics.DrawString(NOME_DA_EMPRESA, New Font("Tahoma", 8, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString(NOME_DA_EMPRESA, New Font("Tahoma", 8, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 15 e.Graphics.DrawString("CNPJ:" & " " & cnpj_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString("CNPJ:" & " " & cnpj_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 15 e.Graphics.DrawString("ENDERECO:" & " " & end_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString("ENDERECO:" & " " & end_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 15 e.Graphics.DrawString("CIDADE:" & " " & cidade & " / " & uf_enpesa & " TELEFONE:" & " " & tel_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString("CIDADE:" & " " & cidade & " / " & uf_enpesa & " TELEFONE:" & " " & tel_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 15 e.Graphics.DrawString("E-MAIL:" & " " & email_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString("E-MAIL:" & " " & email_empresa, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 15 e.Graphics.DrawString("DATA COMPRA:" & " " & FRM_CADATRO_DE_FORNECEDOR.DATA_HOJE & " " & "HORA " & " " & FRM_CADATRO_DE_FORNECEDOR.HORA_HOJE, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString("DATA COMPRA:" & " " & FRM_CADATRO_DE_FORNECEDOR.DATA_HOJE & " " & "HORA " & " " & FRM_CADATRO_DE_FORNECEDOR.HORA_HOJE, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 20 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '=========================================================================================== e.Graphics.DrawString("Parcela Nº:" & " " & zero & " de " & TxtNumeroParcelas.Text, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString("Parcela Nº:" & " " & zero & " de " & TxtNumeroParcelas.Text, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) ' 'e.Graphics.DrawString("Nº Titulo:" & " " & nTitulo, New Font("Tahoma", FT, FontStyle.Bold), cor, 150, aux) ' e.Graphics.DrawString("Nº Titulo:" & " " & nTitulo, New Font("Tahoma", FT, FontStyle.Bold), cor, 635, aux) 'e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) ' aux += 15 e.Graphics.DrawString("Codigó: " & TXT_PESQUSAR_POR_ID_CLIENTE.Text & " Nome:" & " " & lblNome.Text, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString("Codigó: " & TXT_PESQUSAR_POR_ID_CLIENTE.Text & " Nome:" & " " & lblNome.Text, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 15 e.Graphics.DrawString("Valor R$" & " " & LblValorDaParcela.Text, New Font("Tahoma", 8, FontStyle.Bold), cor1, 10, aux) e.Graphics.DrawString("Valor R$" & " " & LblValorDaParcela.Text, New Font("Tahoma", 8, FontStyle.Bold), cor1, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) 'aux += 15 e.Graphics.DrawString("Data de Vencimento:" & " " & dataParcelamento, New Font("Tahoma", 8, FontStyle.Bold), cor1, 120, aux) e.Graphics.DrawString("Data de Vencimento:" & " " & dataParcelamento, New Font("Tahoma", 8, FontStyle.Bold), cor1, 460, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 15 e.Graphics.DrawString("Data de Pagamento:" & " ___ /___ /______ ", New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString("Data de Pagamento:" & " ___ /___ /______ ", New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 18 e.Graphics.DrawString(MD_VARIAVES_PUBLICAS.linha, New Font("Tahoma", FT, FontStyle.Bold), cor, 10, aux) e.Graphics.DrawString(MD_VARIAVES_PUBLICAS.linha, New Font("Tahoma", FT, FontStyle.Bold), cor, 335, aux) e.Graphics.DrawString(Traco, New Font("Tahoma", 7, FontStyle.Bold), cor, 315, aux) aux += 7 e.Graphics.DrawString("Assinatura", New Font("Tahoma", FT, FontStyle.Bold), cor, 50, aux) e.Graphics.DrawString("Assinatura", New Font("Tahoma", FT, FontStyle.Bold), cor, 385, aux) 'e.Graphics.DrawString(Traco, New Font("Tahoma", 11, FontStyle.Bold), cor, 305, aux) aux += 7 e.Graphics.DrawString(linha1 & linha1 & linha1 & linha1, New Font("Tahoma", 7, FontStyle.Bold), cor, 3, aux) aux += 7 If x = 6 Then e.HasMorePages = True End If Next e.HasMorePages = False End Sub desde já agradeço a todos

Boa noite, Sou um utilizador muito básico de excell, e não possuo conhecimentos de programação em VBA suficientes para fazer o que pretendo. O que pretendo é elaborar um formulário onde consiga muito rapidamente gerar etiquetas para colocar nas roupas (ainda em corte), contendo informações como a Ref, tamanho, quantidade, tipo de peça (casaco, camisola, polo, etc) e qual a parte (frente, costa, manga, etc). Já elaborei o userform, com as caixas de texto, checkpoint e optionbutton. Mas não sei como programar para que quando clicar em gravar, o excell gerar todas as etiquetas correspondentes ao que seleccionei que será (1 por cada tamanho e por cada parte) Se alguém me conseguir ajudar agradecia, posso enviar o ficheiro que já elaborei para tentar explicar melhor.

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

Bom dia, alguem me consegue ajudar a criar um programa em visual basic que utilize 2 buttons, em que consiga ir buscar ao ambiente de trabalho e abrir uma pasta como por exemplo um documento de texto e que o valor ou texto apareça numa textbox ?

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

Estou criando um launcher para abrir um jogo, mas preciso que ele abra somente um, e que se houver a tentativa de abrir dois eles gere uma mensagem "Você não pode abrir dois launchers" e não abra o segundo. Se alguém puder ajudar ficaria grato.

boas galera, sou BR mas gostei do forum, sempre estou aqui então... eu preciso pegar o texto que esta em um arquivo .txt hospedado em um dominio na net e passar cada pedaço dele pra uma determinada textbox EX: (texto no arquivo .txt) "OLA / Galera / Meu / Nome / é / Fury / SL" (No VB) Txt1.text = "Ola" Txt2.text = "Galera" Txt3.text = "Meu" Txt4.text = "Nome" Txt5.text = "é" Txt6.text = "Fury" Txt7.text = "SL" Obrigado Pela atençao espero que Me ajudem pois preciso muito

Srs , Alguém poderia me ajudar a resolver esse probleminha : Preciso somar uma coluna do ListView1: FrmDesvio.ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextVaccNC_Sec.Text

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

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

Boas a todos, Tenho uma form MDI que chama uma form1 configurada com MDChild = true Nestas condições consigo que o evento Form_Activate funcione na form1, mas não o Form_Deactivate nem o Form_LostFocus Com o MDChild = false funciona tudo. Alguém sabe se há forma de contornar. Obrigado

Olá, Boa noite. Projeto em VB, uma combobox carrega dados (Tabela endereço) de um banco de dados Access, porém existem vários endereços que se repetem. Preciso de um código que restrinja a exibição de dados repetidos e conforme o usuário digita vá preenchendo a combobox (txt_endereco) Private Sub txt_endereco_Change() On Error GoTo erro Set db = OpenDatabase(dirdb & "bdcrim.mdb") Set Tabela = db.OpenRecordset("SELECT distinct Endereco FROM tblCadastro ") While Not Tabela.EOF txt_endereco.AddItem Tabela!Endereco & "" Tabela.MoveNext Wend Exit Sub Private Sub txt_endereco_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next If KeyCode = 8 Then 'Backspace txt_endereco.SelStart = txt_endereco.SelStart - 1 txt_endereco.SelLength = Len(txt_endereco) ElseIf KeyCode = 27 Then 'Esc txt_endereco.Text = Empty ElseIf KeyCode = 40 Then 'Seta para Baixo If listEndereço.Visible = True Then listEndereço.Text = txt_endereco.Text listEndereço.Visible = True Else Set Tabela = db.OpenRecordset("SELECT Endereço FROM tblCadastro WHERE Endereço Like '" & Mid(txt_endereco.Text, 1, txt_endereco.SelStart) & "*' ORDER BY Endereço Asc") listEndereço.Clear Do Until Tabela.EOF DoEvents 'listNasc.AddItem Tabela("Local_nasc") listEndereço.AddItem Tabela![Endereço] Tabela.MoveNext Loop If Tabela.RecordCount > 8 Then listEndereço.Height = 225 * 8 Else listEndereço.Height = 225 * Tabela.RecordCount listEndereço.Visible = True listEndereço.Text = txt_endereco.Text listEndereço.SetFocus End If End If End Sub Private Sub txt_endereco_KeyPress(KeyAscii As Integer) Dim cb As Long Dim FindString As String Const CB_ERR = (-1) Const CB_FINDSTRING = &H14C If KeyAscii < 32 Or KeyAscii > 127 Then Exit Sub If txt_endereco.SelLength = 0 Then FindString = txt_endereco.Text & Chr$(KeyAscii) Else FindString = Left$(txt_endereco.Text, txt_endereco.SelStart) & Chr$(KeyAscii) End If cb = SendMessage(txt_endereco.hwnd, CB_FINDSTRING, -1, ByVal FindString) If cb <> CB_ERR Then txt_endereco.ListIndex = cb txt_endereco.SelStart = Len(FindString) txt_endereco.SelLength = Len(txt_endereco.Text) - txt_endereco.SelStart End If KeyAscii = 0 End Sub

Olá pessoas... Eu estou com uma duvida nesse codigo <p> <a class="btn" href="/scenes/jobsAccept/2845270"><font color="green">SIM</font></a> <a class="btn" href="/scenes/jobsReject/2845270"><font color="red">NÃO</font></a> </p> preciso fazer o meu button clicar no "sim" pelo webbrowser do vb , porque a class dos 2 são iguais e o link que fica no href é gerado , só se tivesse como fazer o form identificar se está escrito "JobsAccept" e clicar nesse botão mas eu não sei fazer isso , me ajudem por favor...

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

Ora muito bom dia, Estou a tentar desenvolver uma aplicação para o meu local de trabalho, e preciso de ajuda numa parte, fiz o download do visual studio, agora o meu objetivo é criar botões, que quando são clicados abre uma pasta específica, ou quando o cursor fica somente em cima do botão sem clicar mostra uma imagem. Será isto possível em VBA? a parte de abrir a pasta já consegui, falta-me só inserir a imagem.

Boa tarde com conseguem perceber eu sou novo no vb e preciso de umas dicas depois de algum tempo sem programar ja nao me lembro como usar o For e preciso de fazer um contador com para uns radiobuttons eu ja sei que tenho de ter uma variavel para o numero de pessoas inseridas e que para ter a estatistica de quantas pessoas votaram no radiobutton tenho de dividir pelo numero de pessoas Agradeço a toda gente que me possa ajudar a lembrar do For

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

Olá pessoal tudo bem sou novo aqui, estou com uma dúvida estou querendo deixar os dias atualizado no calendário no visual basic 6.0 como eu faço para que a data atualizado sozinho.

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

queria saber qual o código para aparecer na listbox a opção que escolho na combobox. e trabalho com 6 comboboxs e queria mostrar na listbox. obrigado

Saudações! Como Buscar palavras em uma determinada linha do RichTextBox? Como Buscar palavra em uma determinada linha a partir de uma certa coluna no RichTextBox?

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.