Search the Community
Showing results for tags 'vb'.
-
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
-
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)
-
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.
-
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
-
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.
-
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