Search the Community

Eu tenho um programa que vai rodar direto de um pendriver Tô tentando encriptar e decriptar o app.config, mas preciso que funcione em vários computadores alguém pode me ajudar com alguma solução?

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

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

Boas, eu não sei muito bem trabalhar com esta plataforma porém, gostava que me ajudassem numa situação! A situação é a seguinte, eu tenho uma base de dados em access 2010 em que tenho uma tabela "User" e outra "Colaboradores" e os campos relacionados são o Username, com isto eu gostava que na minha aplicação em visual basic (Estou a utilizar o visual studio 2012) fosse possível colocar numa combobox uma lista dos utilizadores que têm o tipouser igual a "Colaboradores" porém gostava que nessa combobox aparececem apenas os utilizadores que ainda não foram registados como colaboradores. Se alguém me conseguir ajudar eu agradeço, Obrigado pela atenção Miguel Oliveira,

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 estou com alguns problemas a mexer com sql pois é a primeira vez que mexo. Já tenho o código para inserir os dados na listbox e o código para adicionar novos dados a base de dados. Mas não estou a conseguir fazer um código para eliminar esses dados. O que eu pretendia fazer era criar 2 botões para movimentar de um registo para outro e com o botão eliminar apagar o registo que eu iria selecionar na listbox. Se alguem me conseguir ajudar fico muito agradecido. Aqui fica o meu código atual: (Obs:Se tiver algo mal no código por favor informar obrigado ) Imports System.Data.SqlClient Public Class Form1 Dim conexao As New SqlConnection() Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load conexao.ConnectionString = "Data Source = WKSACR022\ACRPROJETOS; INITIAL CATALOG = ACRBAL; USER ID = sa; PASSWORD = terena00;" End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click carregaListBox(ListBox1, "SELECT produto FROM TbProdutos") End Sub Private Sub carregaListbox(ByVal Lst As ListBox, ByVal query As String) Lst.Items.Clear() conexao.Open() Dim cmd As New SqlCommand(query, conexao) Dim db_reader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.Default) Dim texto As String Dim i As Integer Do While db_reader.Read texto = db_reader.Item(0).ToString For i = 1 To db_reader.FieldCount - 1 texto &= vbTab & db_reader.Item(i).ToString Next i Lst.Items.Add(texto) Loop conexao.Close() End Sub Dim myConnectionString As String = "Data Source = WKSACR022\ACRPROJETOS; INITIAL CATALOG = ACRBAL; USER ID = sa; PASSWORD = terena00;" Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim SQL As String = "INSERT INTO TbProdutos([Produto],[Observacao]) VALUES (@produto, @observacoes)" Dim connection As New SqlConnection(myConnectionString) Dim command As New SqlCommand(SQL, connection) command.Parameters.Add("@produto", SqlDbType.NChar).Value = TxtProduto.Text command.Parameters.Add("@observacoes", SqlDbType.NChar).Value = TxtObservacoes.Text connection.Open() Dim x As Integer = command.ExecuteNonQuery() If x < 1 Then MessageBox.Show("A operação efectudada não retomou qualqer resultado.") End If connection.Close() connection = Nothing command = Nothing End Sub End Class

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?

Boas. (Primeira vez que faço um relatório) Tenho uma aplicação já feita em linguagem vb.net de registo de pesagens para a empresa onde estou a estagiar. Está tudo a funcionar, o problema é que eles querem imprimir esses registo. O crystal report não funciona pois dá me erros e então decidi fazer pelo report que já vem com o vs10. Até aqui tudo bem fiz tudo direitinho como vi em alguns tutoriais e em fóruns, como aqui no P@P e no Macorrati. O problema é o seguinte: Ele faz me o relatório de todas as pesagens registadas e eu queria apenas de uma só pesagem, com a opção do utilizador escolher qual pesagem registada deseja imprimir. Alguém tem uma ideia de como poderei fazer este relatório. Obrigado

Boas estou com um pequeno problema no meu projeto. Tenho a seguinte tabela : TbProduto com os campos IdProduto, Produto e Observações. Quando faço add new o IdProduto fica a -1 Tenho esse campo como preenchimento automático e mesmo assim nada. Quando fecho o form e volto a abrir esse número passa para 1, mas ao adicionar outro produto novo o Id volta a ser -1. Algúem consegue ajudar? Obrigado.

Tenho um form onde insiro os dados na base de dados e outro form onde visualizo. Nesse que visualizo os dados, gostava de poder carregar em um dos dados e que depois abrisse um novo form. Exemplo: | Referências | |-------------------------| |PRVT DO 20 0750| |-------------------------| |PRVT DO 20 0350| Ao Carregar em "PRVT DO 20 0750" na tabela este abriria outro form com os componentes dessa mesma referencia. Se alguém souber de alguma forma de o fazer agradecia a ajuda. Obrigado. Afonso Mira😄

Existe alguma maneira de Arredondar os botões padrões do Visual Basic? O meu projeto está com os botões padrões mas gostaria de embelezar o projeto e arrendondar as bordas/cantos dos botões, se alguém tiver uma solução que responda. Obrigado, Afonso Mira

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

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.

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

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