Funções, rotinas e dicas

Iai Amigos, blzzz...

Seguinte, vamos colocar aki nesse tópico algumas FUNÇÕES, ROTINAS, DICAS etc... (Algumas coisas Úteis e/ou Legais de VB)

Pra começar eu ja vo colocando uma rotina que uso muito em meus Projetos:

AUTO COMPLETE EM COMBOBOX:

1- Crie uma nova Classe de Módulo e renomeie como: clsAutoComplete

2- Na Classe de Módulo cole a rotina:

Private WithEvents pCombo As ComboBoxPrivate IsDelOrBack As BooleanPublic Sub Bind(Cmb As ComboBox)Set pCombo = CmbEnd SubPrivate Sub Class_Terminate()Set pCombo = NothingEnd SubPrivate Sub pCombo_Change()On Error Resume NextDim OldLen As IntegerDim i As IntegerIf Not pCombo.Text = "" And Not IsDelOrBack Then OldLen = Len(pCombo.Text) For i = 0 To pCombo.ListCount - 1 If InStr(1, Mid$(UCase(pCombo.List(i)), 1, OldLen), UCase(pCombo.Text)) Then pCombo.Text = pCombo.List(i) If pCombo.SelText = "" Then pCombo.SelStart = OldLen Else pCombo.SelStart = InStr(pCombo.Text, pCombo.SelText) End If pCombo.SelLength = Len(pCombo.Text) Exit For End If NextEnd IfEnd SubPrivate Sub pCombo_KeyDown(KeyCode As Integer, Shift As Integer)IsDelOrBack = (KeyCode = vbKeyBack Or KeyCode = vbKeyDelete)End Sub
3- No Form que for usar o Auto Complete declare a Classe de Módulo:

Dim Complete As New clsAutoComplete
4- E por fim, chame a Rotina no seu ComboBox:

Complete.Bind cboNome* Onde cboNome é o nome do seu ComboBox.

Obs: Use o comando acima para chamar a rotina depois de ter Enchido ele ou no LOAD do Form.

É isso ae, Postem as suas agora.... até