Jump to content

Search the Community

Showing results for tags 'vb'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Comunidade
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Apresentação de Projectos de Programação
    • Downloads
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Pascal
    • Python
    • Bases de Dados
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica e Automação Industrial
    • Matemática
    • Software de Contabilidade e Finanças
    • Dúvidas e Discussão de Programação
  • Outras Áreas
    • Notícias de Tecnologia
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website


GitHub


LinkedIn


Twitter


Facebook

  1. Tenho que criar um jogo tipo " Quem quer ser milionário" até 10 de fevereiro para avaliação final. Se alguem me conseguir enviar os códigos para fazer o programa agradecia porque nao percebo mesmo nada. Obrigada
  2. Olá pessoal ! Estou tentando enviar imagem por e-mail com form.vb, Até consigo o feito, mas, no recebimento a imagem vem com nomeada como seção1,2 e não aparece no corpo da mensagem, também gostaria de enviar uma lista de imagens no corpo do e-mail, se alguém poder ajudar agradeço, a principio o mais importante é ao menos uma imagem, mas que quando visualize o e-mail apareça incorporada. Segue código. Dim Msg As String = "<html> <body> <table width=""100%""> <tr> <td style=""font-style:arial; color:maroon; font-weight:bold""> E-mail <br> <img src=cid:myImageID> </td> </tr> </table> </body> </html> body = Msg Dim mail As MailMessage = New MailMessage() mail.IsBodyHtml = True Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString(body, Nothing, "text/html") Dim theEmailImage As LinkedResource = New LinkedResource("Passaro.png") theEmailImage.ContentId = "myImageID" htmlView.LinkedResources.Add(theEmailImage) mail.AlternateViews.Add(htmlView) mail.From = New MailAddress("De") mail.[To].Add("Para") mail.Subject = TxtMensagem.Text Dim cred As System.Net.NetworkCredential = New System.Net.NetworkCredential("Meu email", "Chave") Dim smtp As SmtpClient = New SmtpClient("smtp.gmail.com", 587) smtp.EnableSsl = True smtp.DeliveryMethod = SmtpDeliveryMethod.Network smtp.UseDefaultCredentials = False smtp.Credentials = cred smtp.Send(mail)
  3. Boa tarde, Possuo uma aplicação em Visual Basic 2019 e queria bloquear a linha de cabeçalho do DataGrid e que não recebesse a cor da linha de dados do DataGrid no cabeçalho.
  4. Bom dia a todos Tenho uma aplicação que estava a funcionar bem e que de um momento para o outro deixou de gravar os dados na Base Dados Access ao correr normalmente fora do Visual Studio. Se correr a aplicação dentro do Visual Studio grava os dados bem, por fora não grava os dados na tabela. O Caminho do Data Source é - C:\Users\Justino\Documents\Visual Studio 2015\Projects\TotoMilhoesNovo\TotoMilhoesNovo\GuardarResultadosDataSet.xsd A pasta na arvore tem o nome "Documentos" no data source aparece Documents. Tentei criar um novo Data Source e vai buscar o nome da pasta Documents Agradeço ajuda desde já a fim de repor a aplicação a funcionar normalmente
  5. 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.
  6. 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.
  7. 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
  8. 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>
  9. 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.
  10. 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
  11. 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
  12. 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?
  13. 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
  14. 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
  15. 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
  16. 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.
  17. 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 .
  18. 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?
  19. 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?
  20. 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
  21. 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()
  22. 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
  23. 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á.
  24. 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
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.