Public Class Form1

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim items = From it In Quadro.Items.Cast(Of Object)()
                    Where it.ToString().IndexOf(TextBox1.Text, StringComparison.CurrentCultureIgnoreCase) >= 0
        Dim matchingItemList As List(Of Object) = items.ToList()
        Quadro.BeginUpdate()
        Quadro.Items.Clear()
        For Each item In matchingItemList
            Quadro.Items.Add(item)
        Next
        Quadro.EndUpdate()
    End Sub


End Class

Private Sub FLink_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim respostaSairLogInLogIn As Integer
        respostaSairLogInLogIn = MsgBox("Tem a certeza que deseja sair?", vbYesNo + vbQuestion, "Confirmação")

        If respostaSairLogInLogIn = vbNo Then
            Me.Show()
            Me.TextBox1.Focus()
            Exit Sub
        Else
            Me.Timer1.Enabled = False
            Me.Contagem.Enabled = False
            Me.NotifyIcon1.Visible = False

            If ObjFuncoes.ExisteFicheiro(ObjFuncoes.GetAppPath & Me.ID_Ficheiro.Text & ".Fbd") = True Then
                Dim ObjRedoma As Redoma = New Redoma(Me.ID_X.Text)
                ObjRedoma.Iniciar_Bloqueio(

Se tivesses de começar um novo projeto em .Net, com contratação de mais três programadores, escolherias VB ou C#? Porquê?

Abs

Marcelinho

Agradeço ajuda a fim de perceber a razão do que apresento.

Tenho uma aplicação para uso pessoal feita por mim em VB.

Quando executo a rotina para apresentar resultados entre datas (Ex. DataInicial  2025-01-01 e DataFinal 2025-09-03) só me apresenta  1 Registo, 

se eu mudar o ano da DataInicial para 2024-01-01

a consulta apresenta os registos todos correspondentes. ao Ano 2025

Segue o código da rotina

NOTA: 1 Tenho o mesmo programa no portatil e funciona bem com a mesma rotina

            2 Base Dados Access 

Dim DataInicio = Format(DateTimePicker1.Value, "yyyy-MM-dd")     

   Dim DataFim = Format(DateTimePicker2.Value, "yyyy-MM-dd")                     

 Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\Justino\Documents\DespesasCaseiras\DespesasPessoaisFamiliares.mdb;")    

    Dim Query As String = "SELECT Id,Data,Designacao,Despesa,Categoria,SubCategoria,Familiar FROM DadosActuais Where Data BETWEEN '" & DataInicio & "' AND '" & DataFim & "' AND Categoria Like '" & Trim(TextBox1.Text.ToString) & "%' AND SubCategoria Like '" & Trim(TextBox2.Text.ToString) & "%' AND Familiar Like '" & Trim(TextBox3.Text.ToString) & "%' Order By Id"      

  Dim DataAdapter As New OleDbDataAdapter(Query, ConnectionString)      

 Dim MyData As New DataSet      

  DataAdapter.Fill(MyData, "DadosActuais")      

  ' Neste caso utilizei uma datagridview para visualizar os dados      

  Me.DataGridView1.DataSource = MyData.Tables("DadosActuais")        

'Conta as linhas da Grid e coloca na Label      

  Label1.Text = Nothing       

 Label1.Text = "Este Filtro encontrou - " & Me.DataGridView1.RowCount - 1 & " Registos"     

   Button2.Enabled = True       

      ConnectionString.Close()       

 Call ControlaGrid()      

  Call SomarColunas()

passa-se o seguinte...tenho este pequeno codigo mas não consigo por o "move" para cada elemento da Listbox.....

ajuda por favor??

   Private Sub btninstall_Click(sender As Object, e As EventArgs) Handles btninstall.Click
       Dim sourceDir = inputfdl.SelectedItems
       Dim inn = input.Text & "\" & inputfdl.SelectedItem
       Dim out = bank1.Text & "\" & inputfdl.Text
       For Each file As String In sourceDir

           My.Computer.FileSystem.MoveFile(inn, out)
       Next file
       Call install()

   End Sub

Obrigado!!

Tenho uma rotina feita em VB NET para envio de emails, utilizando smtp, a partir das minhas aplicações. Acontece que agora será necessário utilizar o OAuth para envio de emails através de uma conta Gmail. Alguém tem algo desenvolvido para resolver esta questão?

https://support.google.com/a/answer/14114704?hl=pt#:~:text=A partir de 14 de,exceto as senhas dos apps

Obrigado

Necessitava de seleccionar uma linha na DataGridView1, mas depois de várias pesquisas não encontro a solução.

Se eu utilizar este código  DataGridView1.CurrentCell = DataGridView1.Item(1, 4) vai apontar para a linha 4 e só foca a célula.

Eu pretendo é seleccionar  a linha completa e que fique não como seleccionada mas sim como CurrentRow.

Pretendo utilizar isto para que depois de fazer o refresh à DataGridView1 esta se posicione na mesma linha em que estava.

Cumprimentos

Estou com um erro numa aplicação pessoal na soma de Coluna em DataGrid

O operador '+' não está definido para tipo 'Decimal' e tipo 'DBNull'.

Junto código da rotina que estou a utilizar

O Campo correspondente na BD Access está defenido como Moeda

Agradeço desde já uma ajuda

 Private Sub SomaColuna()

        'Somar a coluna de Despesa e Receita
        Dim SOMA As Decimal
        '  Dim Soma1 As Decimal
        'Dim Corretor As Decimal


        For Each coluna As DataGridViewRow In MilleniumVáriosDataGridView.Rows

            SOMA = SOMA + coluna.Cells(5).Value

            'Soma1 = Soma1 + coluna.Cells(3).Value
        Next

        Label3.Text = SOMA

        Label3.Text = Microsoft.VisualBasic.Format(Decimal.Parse(SOMA), "##,##0.00 €")

    End Sub

Como faço para gerar o .pfx? Não tenho o .key para gerar .pfx

Obrigado!

Sei que já existem alguns tópicos com este assunto mas estou um pouco (muito) confuso.

Estou a desenvolver uma aplicação que terá de ter acesso à Autenticação do Cartão de Cidadão.

Já tenho o middleware instalado.

Inicialmente estava a tentar usar a eidpt.dll, mas dava-me erro de dependências.

Usando a pteidlib_dotnet.dll está a dar o erro "PTEID Error Code : 9" a fazer eidpt.Pteid.GetID().

Alguém me pode dar uma ajuda?

Obrigado.

Estou com um problema que não sei resolver

Tenho uma aplicação feita por mim p/ meu uso pessoal de despesas e receita caseiras executado em Visual Studio 2015 que funcionava bem.

Depois de desinstalar o Visual Studio 2022 (não me entendia bem com a configuração) eis que a minha aplicação deixou de funcionar bem nas rotinas de busca de dados ( Receitas; Despesas e outras) entre datas

Junto codigo da rotina "Despesas"

Agradeço ajuda se possivel

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       
        Dim DataInicio As Date = DateTimePicker1.Value
        Dim DataFim As Date = DateTimePicker2.Value



        Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\DespesasCaseiras\DespesasPessoaisFamiliares.mdb;")
      

        Dim Query As String = "SELECT Id,Data,Designacao,Despesa,Categoria,SubCategoria,Familiar FROM DadosActuais Where Data BETWEEN '" & DataInicio & "' AND '" & DataFim & "'AND Categoria Like '" & Trim(TextBox1.Text.ToString) & "%' AND SubCategoria Like '" & Trim(TextBox2.Text.ToString) & "%' AND Familiar Like '" & Trim(TextBox3.Text.ToString) & "%' Order By Id"


        Dim DataAdapter As New OleDbDataAdapter(Query, ConnectionString)
        Dim MyData As New DataSet

        DataAdapter.Fill(MyData, "DadosActuais")

        ' Neste caso utilizei uma datagridview para visualizar os dados
        Me.DataGridView1.DataSource = MyData.Tables("DadosActuais")
        Me.DataGridView1.Refresh()

        'Conta as linhas da Grid e coloca na Label
        Label1.Text = Nothing
        Label1.Text = "Este Filtro encontrou - " & Me.DataGridView1.RowCount - 1 & " Registos"

        Button2.Enabled = True

        'Button1.Enabled = False

        Call ControlaGrid()

        Call SomarColunas()



    End Sub

Obrigado desde já pela atenção

Private Sub editar _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connection As New OleDbConnection
        Dim query As String
        Dim command As New OleDbCommand

        connection = New OleDbConnection(My.Settings.fclinicConnectionString)

        query = "UPDATE paciente SET [Nome Paciente]=@Nome_PacienteTextBox,[Nº Utente]=@Nº_UtenteTextBox,[Genero]=@GeneroComboBox,[Data Nascimento]=@Data_NascimentoDateTimePicker,[Morada]=@morada,[Cidade]=@cidade,[País]=@pais,[Codigo Postal]=@codpostal,[Telefone]=@telefone,=@email,[Tipo de Sangue]=@sangue,[Alergias]=@alergias"

        command = New OleDbCommand(query, connection)


        command.Parameters.Add("@Nome_PacienteTextBox", OleDbType.VarChar).Value = Nome_PacienteTextBox.Text
        command.Parameters.Add("@Nº_UtenteTextBox", OleDbType.VarChar).Value = Nº_UtenteTextBox.Text
        command.Parameters.Add("@GeneroComboBox", OleDbType.VarChar).Value = GeneroComboBox.Text
        command.Parameters.Add("@Data_NascimentoDateTimePicker", OleDbType.VarChar).Value = Data_NascimentoDateTimePicker.Text
        command.Parameters.Add("@morada", OleDbType.VarChar).Value = MoradaTextBox.Text
        command.Parameters.Add("@cidade", OleDbType.VarChar).Value = CidadeTextBox.Text
        command.Parameters.Add("@pais", OleDbType.VarChar).Value = PaísComboBox.Text
        command.Parameters.Add("@codpostal", OleDbType.VarChar).Value = Codigo_PostalTextBox.Text
        command.Parameters.Add("@telefone", OleDbType.VarChar).Value = TelefoneTextBox.Text
        command.Parameters.Add("@email", OleDbType.VarChar).Value = EmailTextBox.Text
        command.Parameters.Add("@sangue", OleDbType.VarChar).Value = Tipo_de_SangueComboBox.Text
        command.Parameters.Add("@alergias", OleDbType.VarChar).Value = AlergiasTextBox.Text


        Dim Olido As Integer
        connection.Open()

        Olido = command.ExecuteNonQuery()

        If (Olido < 1) Then

            MsgBox("Erro ao actualizar", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else

            MessageBox.Show("Os dados foram alterados com sucesso!")


        End If
        connection.Close()
        connection.Dispose()

    End Sub 

Tenho uma aplicação executada por mim e para minha utilização de despesas e receitas, sucede que ao fazer uma busca entre datas não aparecem varios registos que se encontram na tabela.

Sinceramente não sei o que sucedeu, mas consigo repor os registos um a um com a chamada do respectivo e salvar de novo o mesmo.

Sucede que tenho centenas de registos nesta situação, como fazer para repor pelos menos 10 ou 20 de cada vez.

Uso esta rotina para repor um de cada vez. 

Agradeço desde já uma orientação.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Contador As Integer

        For ContaLinhas As Integer = 0 To DadosActuaisDataGridView.RowCount - 1

            For Colunas As Integer = 2 To 2

                If DadosActuaisDataGridView.Item(2, ContaLinhas).Selected = True Then

                    Contador = Contador + 1
                 
                    DadosActuaisBindingNavigatorSaveItem.PerformClick()

                End If

            Next Colunas

        Next ContaLinhas

    End Sub

Estou com o seguinte problema:

Não consigo gravar o novo registo por "completo" na base de dados.

Isto é: Se eu clicar no botão GRAVAR do form que pretendo ele grava, mesmo q faça STOP ao form e volte a fazer RUN o novo registo está lá.

O problema está que: Ele não grava o registo na base de dados, e caso eu adicione outro form e ponha lá a mesma base de dados ele não detecta o registo que fiz anteriormente.

No código do guardar, tenho isto:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Validate()
        Me.CLIENTESBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Base_de_DadosDataSet)
        Me.CLIENTESTableAdapter.Update(Me.Base_de_DadosDataSet.CLIENTES)

Gostaria de guardar isto na base de dados, para que sempre a acedesse estivesse lá gravado o que faço no VB.

Cumprimentos.

Estou conectando a uma tabela DBF com o drive VFPOLEDB, para excluir determinados registros e até aí tudo bem, mas quando tendo executar o comando PACK, para uma exclusão definitiva, o object connect retorna erro, alegando não ter exclusividade para executar o PACK.Assim faço a conexão:

   cnConnection := CreateObject( "ADODB.Connection" )
   cnConnection:ConnectionString := ;
    "Provider=VFPOLEDB.1" +;
    ";Data Source=" + cPath  +;
    ";Exclusive=Yes" +;
    ";Collating Sequence=general" //=Machine ou  =general
   cnConnection:CursorLocation  := AD_USE_CLIENT
   cnConnection:CommandTimeOut  := 600
   cnConnection:ConnectionTimeOut := 600
   cnConnection:open()

Executa as exclusões:

     mSQL := "Delete FROM Dia"
      mSQL += " Where dia_tl = 'A' AND dia_mm = '" + pe_mm + "';"
      oCommand := CreateObject("ADODB.Command")
      oCommand:ActiveConnection := oCnVfp
      oCommand:CommandText := mSQL
      oCommand:Execute()

Aqui tento fazer o PACK:

      mQuery := "PACK"
      oCommand:CommandText := mQuery
      oCommand:Execute()

Descrição do erro: "File must be opened exclusively"

Desde já, agradeço a ajuda.

Tenho necessidade de fazer uma contagem das celulas a Amarelo da  SaidosEuroDreamsDataGridView, mas não consigo, alguem me dê uma ajuda.

Tenho este código no Private Sub frmGraficoPremiosEuroDream_Load(sender As Object, e As EventArgs) Handles MyBase.Load

 'Conta os numeros do Premiados
        Dim yContagem(40) As Integer

        For i As Integer = 1 To 40
            For Linhas = 0 To SaidosEuroDreamsDataGridView.RowCount - 1

                For Colunas = 1 To 6
                         If SaidosEuroDreamsDataGridView.DefaultCellStyle.BackColor=??????? Then
                        yContagem(i) += 1
                    End If

                Next Colunas

                For Colunas = 1 To 6

                Next Colunas

            Next Linhas
        Next i

Já alguém tem algum exemplo do envio do ficheiro(XML) CIRU_PT, de forma automático , para o portal eSPap, possivelmente através do sistema de EDI

Preciso da vossa ajuda, estou a criar um projeto, em que tenho que colocar as matriculas de carros, já coloquei uma masked text box  ao programa mas como o parque automóvel portugûes neste momento tem três tipos de matriculas eu só consigo colocar um tipo de matriculas na masked text box...

A minha pergunta é existe alguma forma de colocar os três tipos matriculas na masked text box... ou terei de colocar três masked text boxs... desculpem a ignorância 😄

Preciso da vossa ajuda, 

 Diogo Fernandes