Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » COMBOBOXLAR ÜZERİNE2:
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Kod ile veri tabanı hazırlamak

Yazar: wish
Veri tabanımızı en kolay yoldan Data Manager ile hazırlıyoruz. Bir de bu işin kod yazarak ne kadar kolay olduğunu göreceğiz.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 1912
Yayın Tar:29.01.2005
Yazar : sarpedon218
Hit :4167

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Diyelim ki 3 tane ComboBox?ımız var, birinci comboda araç türleri, 2 . comboda araç markaları, 3.comboda da araç modellerinin sıralanacağı comboboxlarımız var.

İsteğimiz 1.Comboda araç türü seçildiğinde 2.Comboda sadece o türe ait markalar listelensin, 2.Comboda marka seçildiğinde de 3. Comboda sadece o araç türüne ait markanın modelleri listelensin. Yani comboların içeriği 3?lü sorgulama ile belirlensin. Yalnız bu sorgulamayı veri tabanı kullanmadan yapacağız.

Aşağıdaki kodları aynen kopyalayın:

***************************************************************************
General Decleration
Dim deve(100, 110, 100) As String
Dim basim As Byte
Dim gerial As Boolean
Dim m, k As Integer
Dim l As String
***************************************************************************
Private Sub Form_Load()
deve(1, 1, 1) = "OTOMOBİL"
deve(2, 1, 1) = "KAMYON"
deve(3, 1, 1) = "OTOBÜS"
deve(4, 1, 1) = "KAMYONET"
deve(5, 1, 1) = "MİNİBÜS"
deve(6, 1, 1) = "ÇEKİCİ-KAFA"
deve(7, 1, 1) = "MOTORSİKLET"
deve(8, 1, 1) = "TRAKTÖR"
deve(9, 1, 1) = "TANKER"
deve(10, 1, 1) = "Dİ?ER"
deve(1, 1, 1) = "OTOMOBİL"
deve(1, 1, 2) = "ALFA ROMEO"
deve(1, 1, 3) = "Dİ?ER"
deve(1, 2, 1) = "OTOMOBİL"
deve(1, 2, 2) = "AUDI"
deve(1, 2, 3) = "Dİ?ER"
deve(1, 3, 1) = "OTOMOBİL"
deve(1, 3, 2) = "BMW"
deve(1, 3, 3) = "Dİ?ER"
deve(1, 4, 1) = "OTOMOBİL"
deve(1, 4, 2) = "DAEWOO"
deve(1, 4, 3) = "Dİ?ER"
deve(1, 5, 1) = "OTOMOBİL"
deve(1, 5, 2) = "FERRARI"
deve(1, 5, 3) = "Dİ?ER"
deve(1, 6, 1) = "OTOMOBİL"
deve(1, 6, 2) = "FIAT"
deve(1, 6, 3) = "A112"
deve(1, 6, 4) = "ALBEA"
deve(1, 6, 5) = "BRAVA"
deve(1, 6, 6) = "MAREA"
deve(1, 6, 7) = "TEMPRA"
deve(1, 6, 8) = "UNO"
deve(1, 6, 9) = "PALİO"
deve(1, 6, 10) = "PANDA"
deve(1, 6, 11) = "PUNTO"
deve(1, 6, 12) = "SİENA"
deve(1, 6, 13) = "STİLO"
deve(1, 6, 14) = "STRADA"
deve(1, 6, 15) = "Dİ?ER"
deve(1, 7, 1) = "OTOMOBİL"
deve(1, 7, 2) = "FORD"
deve(1, 7, 3) = "FİESTA"
deve(1, 7, 4) = "FOCUS"
deve(1, 7, 5) = "FUSİOn"
deve(1, 7, 6) = "KA"
deve(1, 7, 7) = "MONDEO"
deve(1, 7, 8) = "RANGER"
deve(1, 7, 9) = "TAUNUS"
deve(1, 7, 10) = "VİCTORİA"
deve(1, 7, 11) = "ESCORT"
deve(1, 7, 12) = "MUSTANG"
deve(1, 7, 13) = "SCORPIO"
deve(1, 7, 14) = "ORION"
deve(1, 7, 15) = "Dİ?ER"
deve(1, 8, 1) = "OTOMOBİL"
deve(1, 8, 2) = "HONDA"
deve(1, 8, 3) = "ACCORD"
deve(1, 8, 4) = "CIVIC"
deve(1, 8, 5) = "CR-V"
deve(1, 8, 6) = "HR-V"
deve(1, 8, 7) = "JAZZ"
deve(1, 8, 8) = "S 2000"
deve(1, 8, 9) = "STREAM"
deve(1, 8, 10) = "Type-V"
deve(1, 8, 11) = "Dİ?ER"
deve(1, 9, 1) = "OTOMOBİL"
deve(1, 9, 2) = "HYUNDAI"
deve(1, 9, 3) = "ACCENT"
deve(1, 9, 4) = "ATOS PRİMe"
deve(1, 9, 5) = "GALLOPE"
deve(1, 9, 6) = "GETZ"
deve(1, 9, 7) = "SANTA F"
deve(1, 9, 8) = "TRACED"
deve(1, 9, 9) = "X G"
deve(1, 9, 10) = "ELANTRA"
deve(1, 9, 11) = "COUPE"
deve(1, 9, 12) = "SONATA"
deve(1, 9, 13) = "Dİ?ER"
deve(1, 10, 1) = "OTOMOBİL"
deve(1, 10, 2) = "KIA"
deve(1, 10, 3) = "BESTA"
deve(1, 10, 4) = "BOGNO"
deve(1, 10, 5) = "MAGENTİS"
deve(1, 10, 6) = "OPİLUS"
deve(1, 10, 7) = "PİNCANTO"
deve(1, 10, 8) = "PREGİO"
deve(1, 10, 9) = "PRİDE"
deve(1, 10, 10) = "RİO"
deve(1, 10, 11) = "SERTİA"
deve(1, 10, 12) = "Dİ?ER"
deve(1, 11, 1) = "OTOMOBİL"
deve(1, 11, 2) = "LADA"
deve(1, 11, 3) = "2110"
deve(1, 11, 4) = "NIVA"
deve(1, 11, 5) = "SAMARA"
deve(1, 11, 6) = "VEGA"
deve(1, 11, 7) = "Dİ?ER"
deve(1, 12, 1) = "OTOMOBİL"
deve(1, 12, 2) = "LANDROVER"
deve(1, 12, 3) = "DİSCOVERY"
deve(1, 12, 4) = "FREELAMBER"
deve(1, 12, 5) = "RANGE ROVER"
deve(1, 12, 6) = "Dİ?ER"
deve(1, 13, 1) = "OTOMOBİL"
deve(1, 13, 2) = "MAZDA"
deve(1, 13, 3) = "323"
deve(1, 13, 4) = "326"
deve(1, 13, 5) = "B 2500"
deve(1, 13, 6) = "E2200"
deve(1, 13, 7) = "6"
deve(1, 13, 8) = "MPV"
deve(1, 13, 9) = "MX-5"
deve(1, 13, 10) = "PREMACY"
deve(1, 13, 11) = "626"
deve(1, 13, 12) = "929"
deve(1, 13, 13) = "121"
deve(1, 13, 14) = "Dİ?ER"
deve(1, 14, 1) = "OTOMOBİL"
deve(1, 14, 2) = "MERCEDES"
deve(1, 14, 3) = "A-Class"
deve(1, 14, 4) = "C-Class"
deve(1, 14, 5) = "CL"
deve(1, 14, 6) = "CLK"
deve(1, 14, 7) = "Cls"
deve(1, 14, 8) = "E-Class"
deve(1, 14, 9) = "GLS350"
deve(1, 14, 10) = "SLK"
deve(1, 14, 11) = "SL"
deve(1, 14, 12) = "Dİ?ER"
deve(1, 15, 1) = "OTOMOBİL"
deve(1, 15, 2) = "MITSUBISHI"
deve(1, 15, 3) = "515"
deve(1, 15, 4) = "CARİSMA"
deve(1, 15, 5) = "CENTER"
deve(1, 15, 6) = "COULD"
deve(1, 15, 7) = "L300"
deve(1, 15, 8) = "LANCER"
deve(1, 15, 9) = "COLT"
deve(1, 15, 10) = "GALANT"
deve(1, 15, 11) = "SPACE WAGON"
deve(1, 15, 12) = "STARION"
deve(1, 15, 13) = "PAJERO"
deve(1, 15, 14) = "SAPPORO"
deve(1, 15, 15) = "MONTERO"
deve(1, 15, 16) = "Dİ?ER"
deve(1, 16, 1) = "OTOMOBİL"
deve(1, 16, 2) = "NISSAN"
deve(1, 16, 3) = "300Z"
deve(1, 16, 4) = "AMERA"
deve(1, 16, 5) = "COUNTRY"
deve(1, 16, 6) = "FX 45"
deve(1, 16, 7) = "MICRA"
deve(1, 16, 8) = "PRIMERA"
deve(1, 16, 9) = "SERENA"
deve(1, 16, 10) = "TERRAN"
deve(1, 16, 11) = "SUNNY"
deve(1, 16, 12) = "Dİ?ER"
deve(1, 17, 1) = "OTOMOBİL"
deve(1, 17, 2) = "OPEL"
deve(1, 17, 3) = "ASTRA"
deve(1, 17, 4) = "CORSA"
deve(1, 17, 5) = "CAPİTAL"
deve(1, 17, 6) = "MERİVAN"
deve(1, 17, 7) = "OMEGA"
deve(1, 17, 8) = "SİGMUM"
deve(1, 17, 9) = "SPİDSTER"
deve(1, 17, 10) = "VECTRA"
deve(1, 17, 11) = "ZAFİRA"
deve(1, 17, 12) = "TIGRA"
deve(1, 17, 13) = "FRONTERA"
deve(1, 17, 14) = "ASCONA"
deve(1, 17, 15) = "Dİ?ER"
deve(1, 18, 1) = "OTOMOBİL"
deve(1, 18, 2) = "PEUGEOT"
deve(1, 18, 3) = "106"
deve(1, 18, 4) = "206"
deve(1, 18, 5) = "306"
deve(1, 18, 6) = "307"
deve(1, 18, 7) = "406"
deve(1, 18, 8) = "607"
deve(1, 18, 9) = "J9"
deve(1, 18, 10) = "305"
deve(1, 18, 11) = "405"
deve(1, 18, 12) = "407"
deve(1, 18, 13) = "Dİ?ER"
deve(1, 19, 1) = "OTOMOBİL"
deve(1, 19, 2) = "RENAULT"
deve(1, 19, 3) = "CLİO"
deve(1, 19, 4) = "LAGUNA"
deve(1, 19, 5) = "MEGANE"
deve(1, 19, 6) = "SAFRANE"
deve(1, 19, 7) = "SCENİC"
deve(1, 19, 8) = "TWİNGO"
deve(1, 19, 9) = "TOROS"
deve(1, 19, 10) = "BROADWAY"
deve(1, 19, 11) = "RENAULT 12 TOROS"
deve(1, 19, 12) = "RENAULT 11"
deve(1, 19, 13) = "RENAULT 21"
deve(1, 19, 14) = "RENAULT 19"
deve(1, 19, 15) = "Dİ?ER"
deve(1, 20, 1) = "OTOMOBİL"
deve(1, 20, 2) = "SEAT"
deve(1, 20, 3) = "ALTEA"
deve(1, 20, 4) = "CORDOBA"
deve(1, 20, 5) = "CUPRA RANGE"
deve(1, 20, 6) = "IBIZA"
deve(1, 20, 7) = "LEON"
deve(1, 20, 8) = "TOLEDO"
deve(1, 20, 9) = "MALAGA"
deve(1, 20, 10) = "Dİ?ER"
deve(1, 21, 1) = "OTOMOBİL"
deve(1, 21, 2) = "SKODA"
deve(1, 21, 3) = "FABİA"
deve(1, 21, 4) = "OCTOVİA"
deve(1, 21, 5) = "FELİCİA"
deve(1, 21, 6) = "SUPER B"
deve(1, 21, 7) = "Dİ?ER"
deve(1, 22, 1) = "OTOMOBİL"
deve(1, 22, 2) = "SUZUKI"
deve(1, 22, 3) = "ALTO"
deve(1, 22, 4) = "GRAND VİTARA"
deve(1, 22, 5) = "JİMNY"
deve(1, 22, 6) = "LİANA"
deve(1, 22, 7) = "MARUTİ"
deve(1, 22, 8) = "SAMURAI"
deve(1, 22, 9) = "VİTARA"
deve(1, 22, 10) = "Dİ?ER"
deve(1, 23, 1) = "OTOMOBİL"
deve(1, 23, 2) = "TOFAS"
deve(1, 23, 3) = "Do?AN"
deve(1, 23, 4) = "ŞAHİN"
deve(1, 23, 5) = "KARTAL"
deve(1, 23, 6) = "UNO"
deve(1, 23, 7) = "TİPO"
deve(1, 23, 8) = "MURAT"
deve(1, 23, 9) = "SERÇE"
deve(1, 23, 10) = "Dİ?ER"
deve(1, 24, 1) = "OTOMOBİL"
deve(1, 24, 2) = "TOYOTA"
deve(1, 24, 3) = "AVENSİS"
deve(1, 24, 4) = "COROLLA"
deve(1, 24, 5) = "CRESSİDA"
deve(1, 24, 6) = "LANDCRUISER"
deve(1, 24, 7) = "RAV4"
deve(1, 24, 8) = "YARİS"
deve(1, 24, 9) = "CORONA"
deve(1, 24, 10) = "LEXUS"
deve(1, 24, 11) = "Dİ?ER"
deve(1, 25, 1) = "OTOMOBİL"
deve(1, 25, 2) = "VOLKSWAGEN"
deve(1, 25, 3) = "302"
deve(1, 25, 4) = "BORA"
deve(1, 25, 5) = "GOLF"
deve(1, 25, 6) = "RUPO"
deve(1, 25, 7) = "PASSAT"
deve(1, 25, 8) = "POLO"
deve(1, 25, 9) = "SHANA"
deve(1, 25, 10) = "TOURAN"
deve(1, 25, 11) = "Dİ?ER"
deve(1, 26, 1) = "OTOMOBİL"
deve(1, 26, 2) = "VOLVO"
deve(1, 26, 3) = "XC70"
deve(1, 26, 4) = "XC90"
deve(1, 26, 5) = "Dİ?ER"
deve(1, 27, 1) = "OTOMOBİL"
deve(1, 27, 2) = "DACIA"
deve(1, 27, 3) = "Dİ?ER"
deve(1, 28, 1) = "OTOMOBİL"
deve(1, 28, 2) = "DAIHATSU"
deve(1, 28, 3) = "Dİ?ER"
deve(1, 29, 1) = "OTOMOBİL"
deve(1, 29, 2) = "RANGE ROVER"
deve(1, 29, 3) = "Dİ?ER"
deve(1, 30, 1) = "OTOMOBİL"
deve(1, 30, 2) = "LAND ROVER"
deve(1, 30, 3) = "Dİ?ER"
deve(2, 31, 1) = "KAMYON"
deve(2, 31, 2) = "DAEWOO"
deve(2, 31, 3) = "KAMYON"
deve(2, 31, 4) = "Dİ?ER"
deve(2, 32, 1) = "KAMYON"
deve(2, 32, 2) = "DODGE"
deve(2, 32, 3) = "Dİ?ER"

deve(2, 33, 1) = "KAMYON"
deve(2, 33, 2) = "FORD"
deve(2, 33, 3) = "KAMYON"
deve(2, 33, 4) = "CARGO"
deve(2, 33, 5) = "Dİ?ER"
deve(2, 34, 1) = "KAMYON"
deve(2, 34, 2) = "HYUNDAI"
deve(2, 34, 3) = "KAMYON"
deve(2, 34, 4) = "Dİ?ER"
deve(2, 35, 1) = "KAMYON"
deve(2, 35, 2) = "IVECO"
deve(2, 35, 3) = "2912 M"
deve(2, 35, 4) = "2914 F"
deve(2, 35, 5) = "2914 FX"
deve(2, 35, 6) = "2914 M"
deve(2, 35, 7) = "Dİ?ER"
deve(2, 36, 1) = "KAMYON"
deve(2, 36, 2) = "OTOYOL/IVECO/FIAT"
deve(2, 36, 3) = "KAMYON"
deve(2, 36, 4) = "Dİ?ER"
deve(2, 37, 1) = "KAMYON"
deve(2, 37, 2) = "KIA"
deve(2, 37, 3) = "Dİ?ER"
deve(2, 38, 1) = "KAMYON"
deve(2, 38, 2) = "MERCEDES"
deve(2, 38, 3) = "KAMYON"
deve(2, 38, 4) = "Dİ?ER"
deve(2, 39, 1) = "KAMYON"
deve(2, 39, 2) = "MITSUBISHI"
deve(2, 39, 3) = "CANTER"
deve(2, 39, 4) = "Dİ?ER"
deve(2, 40, 1) = "KAMYON"
deve(2, 40, 2) = "NISSAN"
deve(2, 40, 3) = "Dİ?ER"
deve(2, 41, 1) = "KAMYON"
deve(2, 41, 2) = "RENAULT"
deve(2, 41, 3) = "Dİ?ER"
deve(2, 42, 1) = "KAMYON"
deve(2, 42, 2) = "VOLVO"
deve(2, 42, 3) = "Dİ?ER"
deve(2, 43, 1) = "KAMYON"
deve(2, 43, 2) = "BMC"
deve(2, 43, 3) = "BMC YAVUZ"
deve(2, 43, 4) = "BMC FATIH"
deve(2, 43, 5) = "Dİ?ER"
deve(2, 44, 1) = "KAMYON"
deve(2, 44, 2) = "DACIA"
deve(2, 44, 3) = "Dİ?ER"

deve(2, 45, 1) = "KAMYON"
deve(2, 45, 2) = "DAF"
deve(2, 45, 3) = "KAMYON"
deve(2, 45, 4) = "Dİ?ER"
deve(2, 46, 1) = "KAMYON"
deve(2, 46, 2) = "ISUZU"
deve(2, 46, 3) = "Dİ?ER"
deve(2, 47, 1) = "KAMYON"
deve(2, 47, 2) = "INTER"
deve(2, 47, 3) = "KAMYON"
deve(2, 47, 4) = "Dİ?ER"
deve(2, 48, 1) = "KAMYON"
deve(2, 48, 2) = "LEYLAND"
deve(2, 48, 3) = "KAMYON"
deve(2, 48, 4) = "Dİ?ER"
deve(2, 49, 1) = "KAMYON"
deve(2, 49, 2) = "MAN"
deve(2, 49, 3) = "KAMYON"
deve(2, 49, 4) = "Dİ?ER"
deve(2, 50, 1) = "KAMYON"
deve(2, 50, 2) = "MAGIRUS"
deve(2, 50, 3) = "KAMYON"
deve(2, 50, 4) = "Dİ?ER"
deve(2, 51, 1) = "KAMYON"
deve(2, 51, 2) = "SCANIA"
deve(2, 51, 3) = "KAMYON"
deve(2, 51, 4) = "Dİ?ER"
deve(3, 52, 1) = "OTOBÜS"
deve(3, 52, 2) = "DAEWOO"
deve(3, 52, 3) = "OTOBÜS"
deve(3, 52, 4) = "Dİ?ER"
deve(3, 53, 1) = "OTOBÜS"
deve(3, 53, 2) = "OTOYOL/IVECO/FIAT"
deve(3, 53, 3) = "EUROSTAR OTOBÜS"
deve(3, 53, 4) = "Dİ?ER"
deve(3, 54, 1) = "OTOBÜS"
deve(3, 54, 2) = "MERCEDES"
deve(3, 54, 3) = "OTOBÜS"
deve(3, 54, 4) = "Dİ?ER"
deve(3, 55, 1) = "OTOBÜS"
deve(3, 55, 2) = "MITSUBISHI"
deve(3, 55, 3) = "MARATHON OTOBUS"
deve(3, 55, 5) = "SAFIR"
deve(3, 55, 6) = "SAFARI"
deve(3, 55, 7) = "POWERBUS"
deve(3, 55, 8) = "Dİ?ER"
deve(3, 56, 1) = "OTOBÜS"
deve(3, 56, 2) = "VOLVO"
deve(3, 56, 3) = "OTOBÜS"
deve(3, 56, 4) = "Dİ?ER"

deve(3, 57, 1) = "OTOBÜS"
deve(3, 57, 2) = "MAN"
deve(3, 57, 3) = "OTOBÜS"
deve(3, 57, 4) = "Dİ?ER"
deve(3, 58, 1) = "OTOBÜS"
deve(3, 58, 2) = "BMC"
deve(3, 58, 3) = "OTOBUS"
deve(3, 58, 4) = "Dİ?ER"
deve(3, 59, 1) = "OTOBÜS"
deve(3, 59, 2) = "DAF"
deve(3, 59, 3) = "OTOBÜS"
deve(3, 59, 4) = "Dİ?ER"
deve(3, 60, 1) = "OTOBÜS"
deve(3, 60, 2) = "ISUZU"
deve(3, 60, 3) = "OTOBÜS"
deve(3, 60, 4) = "Dİ?ER"
deve(3, 61, 1) = "OTOBÜS"
deve(3, 61, 2) = "NEOPLAN"
deve(3, 61, 3) = "OTOBÜS"
deve(3, 61, 4) = "Dİ?ER"
deve(3, 62, 1) = "OTOBÜS"
deve(3, 62, 2) = "TURKKAR"
deve(3, 62, 3) = "OTOBÜS"
deve(3, 62, 4) = "MİNİBÜS"
deve(3, 62, 5) = "Dİ?ER"
deve(3, 63, 1) = "OTOBÜS"
deve(3, 63, 2) = "SETRA"
deve(3, 63, 3) = "OTOBÜS"
deve(3, 63, 4) = "Dİ?ER"
deve(3, 64, 1) = "OTOBÜS"
deve(3, 64, 2) = "SCANIA"
deve(3, 64, 3) = "OTOBÜS"
deve(3, 64, 4) = "Dİ?ER"
deve(4, 65, 1) = "KAMYONET"
deve(4, 65, 2) = "DODGE"
deve(4, 65, 3) = "CHARGER"
deve(4, 65, 4) = "DURANGO"
deve(4, 65, 5) = "RAM MAGMUM"
deve(4, 65, 6) = "VAN"
deve(4, 65, 7) = "DAKOTA"
deve(4, 65, 8) = "Dİ?ER"
deve(4, 66, 1) = "KAMYONET"
deve(4, 66, 2) = "FORD"
deve(4, 66, 3) = "PİKAP"
deve(4, 66, 4) = "TRANSİT"
deve(4, 66, 5) = "Dİ?ER"
deve(4, 67, 1) = "KAMYONET"
deve(4, 67, 2) = "HYUNDAI"
deve(4, 67, 3) = "KAMYONET"
deve(4, 67, 4) = "Dİ?ER"
deve(4, 68, 1) = "KAMYONET"
deve(4, 68, 2) = "KIA"
deve(4, 68, 3) = "Dİ?ER"
deve(4, 69, 1) = "KAMYONET"
deve(4, 69, 2) = "MAZDA"
deve(4, 69, 3) = "Dİ?ER"
deve(4, 70, 1) = "KAMYONET"
deve(4, 70, 2) = "MITSUBISHI"
deve(4, 70, 3) = "KAMYONET"
deve(4, 70, 4) = "PIKAP"
deve(4, 70, 5) = "Dİ?ER"
deve(4, 71, 1) = "KAMYONET"
deve(4, 71, 2) = "NISSAN"
deve(4, 71, 3) = "PİKAP"
deve(4, 71, 4) = "Dİ?ER"
deve(4, 72, 1) = "KAMYONET"
deve(4, 72, 2) = "SKODA"
deve(4, 72, 3) = "PICK-UP"
deve(4, 72, 4) = "Dİ?ER"
deve(4, 73, 1) = "KAMYONET"
deve(4, 73, 2) = "BMC"
deve(4, 73, 3) = "LEVENT KAMYONET"
deve(4, 73, 4) = "Dİ?ER"
deve(4, 74, 1) = "KAMYONET"
deve(4, 74, 2) = "DACIA"
deve(4, 74, 3) = "KAMYONET"
deve(4, 74, 4) = "Dİ?ER"
deve(4, 75, 1) = "KAMYONET"
deve(4, 75, 2) = "ISUZU"
deve(4, 75, 3) = "KAMYONET"
deve(4, 75, 4) = "Dİ?ER"
deve(4, 76, 1) = "KAMYONET"
deve(4, 76, 2) = "INTER"
deve(4, 76, 3) = "KAMYONET"
deve(4, 76, 4) = "Dİ?ER"
deve(4, 77, 1) = "KAMYONET"
deve(4, 77, 2) = "LEYLAND"
deve(4, 77, 3) = "KAMYONET"
deve(4, 77, 4) = "Dİ?ER"
deve(5, 78, 1) = "MİNİBÜS"
deve(5, 78, 2) = "FIAT"
deve(5, 78, 3) = "DOBLO"
deve(5, 78, 4) = "DUCATO"
deve(5, 78, 5) = "Dİ?ER"
deve(5, 79, 1) = "MİNİBÜS"
deve(5, 79, 2) = "FORD"
deve(5, 79, 3) = "TRANSİT"
deve(5, 79, 4) = "Dİ?ER"
deve(5, 80, 1) = "MİNİBÜS"
deve(5, 80, 2) = "HYUNDAI"
deve(5, 80, 3) = "STAREX"
deve(5, 80, 4) = "Dİ?ER"
deve(5, 81, 1) = "MİNİBÜS"
deve(5, 81, 2) = "KIA"
deve(5, 81, 3) = "Dİ?ER"
deve(5, 82, 1) = "MİNİBÜS"
deve(5, 82, 2) = "MAZDA"
deve(5, 82, 3) = "Dİ?ER"
deve(5, 83, 1) = "MİNİBÜS"
deve(5, 83, 2) = "MERCEDES"
deve(5, 83, 3) = "208 VAN"
deve(5, 83, 4) = "VANEO"
deve(5, 83, 5) = "Dİ?ER"
deve(5, 84, 1) = "MİNİBÜS"
deve(5, 84, 2) = "MITSUBISHI"
deve(5, 84, 3) = "PRESTIJ"
deve(5, 84, 4) = "Dİ?ER"
deve(5, 85, 1) = "MİNİBÜS"
deve(5, 85, 2) = "NISSAN"
deve(5, 85, 3) = "Dİ?ER"
deve(5, 86, 1) = "MİNİBÜS"
deve(5, 86, 1) = "OPEL"
deve(5, 86, 15) = "Dİ?ER"
deve(5, 87, 1) = "MİNİBÜS"
deve(5, 87, 2) = "PEUGEOT"
deve(5, 87, 3) = "BOXER"
deve(5, 87, 4) = "PARTNER"
deve(5, 87, 5) = "Dİ?ER"
deve(5, 88, 1) = "MİNİBÜS"
deve(5, 88, 2) = "RENAULT"
deve(5, 88, 3) = "KANGO"
deve(5, 88, 4) = "TRAFİC"
deve(5, 88, 5) = "Dİ?ER"
deve(5, 89, 1) = "MİNİBÜS"
deve(5, 89, 2) = "VOLKSWAGEN"
deve(5, 89, 3) = "TRANSPORTER"
deve(5, 89, 4) = "Dİ?ER"
deve(5, 90, 1) = "MİNİBÜS"
deve(5, 90, 2) = "BMC"
deve(5, 90, 3) = "LEVENT MINIBUS"
deve(5, 90, 4) = "MIDIBUS LEVENT"
deve(5, 90, 5) = "Dİ?ER"
deve(5, 91, 1) = "MİNİBÜS"
deve(5, 91, 2) = "ISUZU"
deve(5, 91, 3) = "MİDİBÜS"
deve(5, 91, 4) = "Dİ?ER"
deve(5, 92, 1) = "MİNİBÜS"
deve(5, 92, 2) = "INTER"
deve(5, 92, 3) = "MİNİBÜS"
deve(5, 92, 4) = "Dİ?ER"
deve(5, 93, 1) = "MİNİBÜS"
deve(5, 93, 2) = "LEYLAND"
deve(5, 93, 3) = "MİNİBÜS"
deve(5, 93, 4) = "Dİ?ER"
deve(5, 94, 1) = "MİNİBÜS"
deve(5, 94, 2) = "TURKKAR"
deve(5, 94, 3) = "MİNİBÜS"
deve(5, 94, 4) = "Dİ?ER"
deve(6, 95, 1) = "ÇEKİCİ-KAFA"
deve(6, 95, 2) = "FORD"
deve(6, 95, 3) = "Dİ?ER"
deve(6, 95, 4) = "ÇEKİCİ"
deve(6, 96, 1) = "ÇEKİCİ-KAFA"
deve(6, 96, 2) = "OTOYOL/IVECO/FIAT"
deve(6, 96, 3) = "ÇEKİCİ"
deve(6, 96, 4) = "Dİ?ER"
deve(6, 97, 1) = "ÇEKİCİ-KAFA"
deve(6, 97, 2) = "MERCEDES"
deve(6, 97, 3) = "ÇEKİCİ"
deve(6, 97, 4) = "Dİ?ER"
deve(6, 98, 1) = "ÇEKİCİ-KAFA"
deve(6, 98, 2) = "RENAULT"
deve(6, 98, 3) = "ÇEKİCİ"
deve(6, 98, 4) = "Dİ?ER"
deve(6, 99, 1) = "ÇEKİCİ-KAFA"
deve(6, 99, 2) = "VOLVO"
deve(6, 99, 3) = "ÇEKİCİ"
deve(6, 99, 4) = "Dİ?ER"
deve(6, 100, 1) = "ÇEKİCİ-KAFA"
deve(6, 100, 2) = "BMC"
deve(6, 100, 3) = "CEKICI"
deve(6, 100, 4) = "Dİ?ER"
deve(6, 101, 1) = "ÇEKİCİ-KAFA"
deve(6, 101, 2) = "DAF"
deve(6, 101, 3) = "CEKICI"
deve(6, 101, 4) = "Dİ?ER"
deve(6, 102, 1) = "ÇEKİCİ-KAFA"
deve(6, 102, 2) = "MAN"
deve(6, 102, 3) = "ÇEKİCİ"
deve(6, 102, 4) = "Dİ?ER"
deve(6, 103, 1) = "ÇEKİCİ-KAFA"
deve(6, 103, 2) = "MAGIRUS"
deve(6, 103, 3) = "ÇEKİCİ"
deve(6, 103, 4) = "Dİ?ER"
deve(6, 104, 1) = "ÇEKİCİ-KAFA"
deve(6, 104, 2) = "SCANIA"
deve(6, 104, 3) = "ÇEKİCİ"
deve(6, 104, 4) = "Dİ?ER"
deve(7, 105, 1) = "MOTORSİKLET"
deve(7, 105, 2) = "MOTORSİKLET"
deve(7, 105, 3) = "Dİ?ER"
deve(8, 106, 1) = "TRAKTÖR"
deve(8, 106, 2) = "TRAKTÖR"
deve(8, 106, 3) = "Dİ?ER"
deve(9, 107, 1) = "TANKER"
deve(9, 107, 2) = "TANKER"
deve(9, 107, 3) = "Dİ?ER"
deve(10, 108, 1) = "Dİ?ER"
deve(10, 108, 2) = "Dİ?ER"
deve(10, 108, 3) = "Dİ?ER"


Combo1.Clear
For k = 1 To 10
If deve(k, 1, 1) <> "" Then
Combo1.AddItem deve(k, 1, 1)
End If
***************************************************************************
Private Sub Combo1_LostFocus()
Dim a As String
Dim i As Integer
If Combo1.Text <> eee.Text Then
Combo2.Clear
For k = 1 To 10
For i = 1 To 110
If deve(k, i, 1) = Combo1.Text Then
If deve(k, i, 2) <> "" Then
Combo2.AddItem deve(k, i, 2)
End If
End If
Next i
Next k
Combo2.AddItem "Dİ?ER"
End If
End Sub

***************************************************************************
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If basim = vbKeyBack Or basim = vbKeyDelete Then
If Combo1.Text <> "" Then
gerial = True
End If
End If

End Sub
***************************************************************************
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{Tab}"
End If
End Sub
Private Sub Combo1_Change()
If gerial = True Or Combo1.Text = "" Then
gerial = False
Exit Sub
End If

Dim i As Long
Dim nSel As Long

For i = 0 To Combo1.ListCount - 1
If InStr(1, Combo1.List(i), Combo1.Text, _
vbTextCompare) = 1 Then
nSel = Combo1.SelStart
Combo1.Text = Combo1.List(i)
Combo1.SelStart = nSel
Combo1.SelLength = Len(Combo1.Text) - nSel
Exit For
End If
Next
End Sub
Private Sub Combo1_GotFocus()
eee.Text = Combo1.Text
End Sub
Private Sub Combo2_Change()
If gerial = True Or Combo2.Text = "" Then
gerial = False
Exit Sub
End If
Dim i As Long
Dim nSel As Long
For i = 0 To Combo2.ListCount - 1
If InStr(1, Combo2.List(i), Combo2.Text, _
vbTextCompare) = 1 Then
nSel = Combo2.SelStart
Combo2.Text = Combo2.List(i)
Combo2.SelStart = nSel
Combo2.SelLength = Len(Combo2.Text) - nSel
Exit For
End If
Next
End Sub
***************************************************************************
Private Sub Combo2_GotFocus()
mds.Text = Combo2.Text
End Sub
***************************************************************************
Private Sub Combo2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{Tab}"
End If
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
***************************************************************************
Private Sub Combo2_LostFocus()
Dim a As String
Dim i As Integer
If mds.Text <> Combo2.Text Then
Combo3.Clear
For k = 1 To 10
For i = 1 To 110
If deve(k, i, 2) = Combo2.Text And deve(k, i, 1) = Combo1.Text Then
For m = 3 To 100
If deve(k, i, m) <> "" Then
Combo3.AddItem deve(k, i, m)
End If
Next m
End If
Next i
Next k
End If
End Sub
***************************************************************************
Private Sub Combo3_Change()
If gerial = True Or Combo3.Text = "" Then
gerial = False
Exit Sub
End If

Dim i As Long
Dim nSel As Long

For i = 0 To Combo1.ListCount - 1
If InStr(1, Combo3.List(i), Combo3.Text, _
vbTextCompare) = 1 Then
nSel = Combo3.SelStart
Combo3.Text = Combo3.List(i)
Combo3.SelStart = nSel
Combo3.SelLength = Len(Combo3.Text) - nSel
Exit For
End If
Next
End Sub
***************************************************************************
Private Sub Combo3_GotFocus()
Dim a As String
End Sub
***************************************************************************
Private Sub Combo3_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{Tab}"
End If
End Sub
***************************************************************************
Kodların uzunluğunu görünce değişkeni neden ?deve? olarak tanımladığımı anlamışsınızdır.
İşte 3?lü sorgu ile çalışan Comboboxlarımız hazır nihayet.

Mehmet ERÇİN
Sarpedon218@yahoo.com.au
149840312




Yorumlar, eklemeler ve düşünceler
        sanırım bir eksiklik ya da hata var.... denedim ama sürekli hata verdi çalışmadı...

   birdirbir, 05.02.2005 00:32
   Arkadaşım eline sağlık gerçekten, ama kodların yanlarına da açıklayıcı bilgiler yazsaymışsın daha güzel olurmuş

   vbhastasi, 19.05.2007 01:30
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin