Jump to content


Photo

Procurando String Em Listbox (vb)


  • Faça o login para participar
11 replies to this topic

#1 Sic

Sic

    Meu Reggae é Roots!

  • Usuários
  • 311 posts
  • Sexo:Masculino
  • Localidade:SP - ZL!
  • Interesses:Web, Desenvolvimento, Design, ITIL.<br /><br />Praia, Sol, Surf, Música, Violão e um Forreggae.

Posted 08/05/2004, 00:34

Olá pessoal, vamos a esse tuto, é bem facinho..

Vamos começar um novo projeto "Standard.EXE". No Form, inserimos uma ListBox com a propriedade Name=lstcapitais

Criamos um procedimento capitais.

No evento Form_Load() , fazemos o Call capitais, para adicionar os respectivos itme's á ListBox.

Criamos um Modulo .Bas, ao qual adicionamos uma função API, chamada SendMessage, e uma variável constante LB_FINDSTRING com valor inicial em hexadecimal 399.



Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Public Const LB_FINDSTRING = &H18F

Private Sub capitais()
With lstcapitais
  .AddItem "São Paulo"
  .AddItem "Rio de Janeiro"
  .AddItem "Salvador"
  .AddItem "Manaus"
  .AddItem "Belo Horizonte"
  .AddItem "Curitiba"
End With
End Sub

Adicionamos um objeto CommandButton com a propriedade Name=cmdProcura e Caption=Procurar, ao qual adicionamos o seguinte código ao evento Click:



Private Sub cmdProcura_Click()

Dim strSearch As String
Dim intPos As Integer

strSearch = InputBox$("Digite a String:", "Procurar")

With lstStates
If strSearch = "" Then
           .ListIndex = 0
Else
            intPos = SendMessage(.hwnd, _
                         LB_FINDSTRING, _
                         -1, _
                         ByVal strSearch)
            If intPos >= 0 Then
                         .ListIndex = intPos
            End If
End If
End With
End Sub


Clicando no botão procurar, digitamos a String, que pretendemos e será assinalada a string igual ou maior ao que digitamos.


Espero que tenham gostado.
Flwos...
(y)
Bruno Cesar Dutra - "Mudar é ir Além!"
UbuntuUser - 7.04

Poesias Trash - Idiotice & Conscientização | BlackVistaMod @ Tecnologia

#2 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 15/09/2017, 20:44

Prostatitis Cephalexin cialis Clomid Lieu Ovulation Come Viagra Naturale Effet Cialis 10mg cialis Propecia Marcas
Viagra Farmaco Generico cialis Prezzo Cialis Farmacia Svizzera Pet Doxycyline Where To Buy Tadalafil 20mg Best Price Amoxicillin Cat Dapoxetina Prezzo generic cialis Effetti Cialis 10

#3 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 13201 posts

Posted 17/09/2017, 05:47

Propecia Impacto cialis Does Kamagra Work Buy Prevacid Otc Acheter Du Priligy Quebec Buying Cialis Tadalafil cialis Lasix
Xenical 120 Mg Prix cialis price Cialis 5 Mg Online Pharmacy
Buy Zithromax Without Prescription Amoxil Rats Viagra Ou Kamagra
Amoxicillin Suspension 150ml <a href=http://cialtobuy.com>cialis</a> Amoxicillin 500mg For Urinary Tract Infection

#4 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 20/09/2017, 21:38

Buy Stromectol From India buy cialis Cialis Generic Soft Tabs Online Pharmacy Usa Bactrim Ds 800 Vs Amoxicillin 500 cialis Posologia Cialis 20 Mg
Viagra Store Coupons cialis Priligy Foglio Illustrativo
Viagra Y Cialis Cual Es Mejor Precio Cialis Espana Viagra Online In Italia Chipest
accutane online india <a href=http://cialtobuy.com>cheap cialis</a> Cialis 20 Mg Reimport

#5 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 26/09/2017, 01:59

Liver Damage Propecia cialis Commander Cialis En France
Priligy Pomata Macrobid No Doctor cialis buy online Viagra Tabletten Frau Como Tomar Cialis 20 Mg Zithromax Rash Toddler
Cephalexin And Laying In The Sun Viagra Billig Rezept online pharmacy Walmart Cialis Price Discount Finasteride Where To Buy

#6 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 28/09/2017, 19:00

Online Inhalers No Prescription Usa cialis Zithromax Work For Uti Cialis En Farmacia Cephalexin Dog Side Effects

#7 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 05/10/2017, 00:16

Tadalafil 40 Online Kaufen Viagra And Cialis Non Perscription Buy Gabapentin Online levitra 20mg best price Cialis On Line Pharmacies Cialis Barata Espana Amoxicillin Cause Yeast Infection

#8 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 13201 posts

Posted 10/10/2017, 10:10

Sale Stendra Erectile Dysfunction Generic Finasteride Vs Propecia viagra 30 Day Cialis 5mg

#9 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 21/10/2017, 17:12

Tadalafil 5 Mg Best Price Usa buy viagra online Cheap Cialis Generic Online
Buy Cheap Cephalexin Comprar Cialis En Farmacias cost of levitra at savon pharmacy Viagra Generico Andorra Under Eye
Prix Du Clomid Healthy Man Cialis viagra online pharmacy Acheter Cialis Ligne Andorre Tadalafil Generique 20mg Viagra Precio Farmacia

#10 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 31/10/2017, 05:58

Cialis Professional Comprar Cialis En Andalucia Cialis Funziona Davvero viagra Buy Generic Cialis Online Uk Propecia Daily Dosage Benign Prostatic Hyperplasia Canadian Bull 100
Rifampicin online pharmacy Cialis Incompatibilidades

#11 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 07/11/2017, 20:09

Suche Viagra Zu Kaufen Levitra 5mg Generique viagra Cialis In Italia
Kamagra Versand Aus Deutschland Propecia Liver Function online pharmacy Propecia 1mg 20mg
Drinking Alcohol While Taking Zithromax generic cialis Amoxicillin Gluten Acquisto Viagra Online buy brand name accutane

#12 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 22/11/2017, 02:50

Dutasteride Bph Comprare Viagra Online Italia Acheter Xenical 120 cialis Generic Viagraon Line
Buy Cialis In Canada Cialis Soft Generique viagra online pharmacy Amoxicillin 200 Dosage Comprare Levitra Su Internet Cialis Europa
Cialis Valsartan viagra online Viagra Somministrazione Order Prescription From Canada Buy Online Test For Amh
Buy levitra in europe Proscar Propecia Dosage Propecia Guia cialis 247overnightpharmacy




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq