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 » google arama motoru
Ü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

EXCELDE MAKRO İLE ADIM ADIM MÜŞTERİ SİPARİŞ KARTI

Yazar: coozn
EXCEL MAKRO ile KAYIT YAPMA...DE?İŞTİRME....ARAMA....SİLME.....FORMU TEMİZLEME..... GÜNCELLEME.......FORMU KAPATMA.....EXCEL ÇELIŞMA SAYFASI KAPAT İŞLEMLERİ İLE BİR FİRMA İÇİN BASİT BİR SİPARİŞ VERİBANKASI OLUŞTURMA....ikinci ders SİLME?.


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 № : 7102
Yayın Tar:10.05.2006
Yazar : japon6844
Hit :2370

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

Dim ara, deger, deger1, deger2, parcala, topla

Set oWShellExt = CreateObject("Shell.Application")

ara = Text1.Text

If ara <> "" Then

For k = 1 To Len(ara)
parcala = Mid(ara, k, 1)
If parcala = Chr(34) Then parcala = "%22"
If parcala = Chr(32) Then parcala = "+"
If parcala = "ö" Then parcala = "%C3%B6"
If parcala = "ç" Then parcala = "%C3%A7"
If parcala = "ı" Then parcala = "%C4%B1"
If parcala = "ş" Then parcala = "%C5%9F"
If parcala = "ğ" Then parcala = "%C4%9F"
If parcala = "ü" Then parcala = "%C3%BC"
If parcala = "Ö" Then parcala = "%C3%96"
If parcala = "Ç" Then parcala = "%C3%87"
If parcala = "Ş" Then parcala = "%C5%9E"
If parcala = "İ" Then parcala = "%C4%B0"
If parcala = "?" Then parcala = "%C4%9E"
If parcala = "Ü" Then parcala = "%C3%9C"
topla = topla + parcala
Next

deger1 = "http://www.google.com.tr/search?hl=tr&q="
deger2 = "&meta="
deger = deger1 & topla & deger2

oWShellExt.shellexecute deger

End If




Yorumlar, eklemeler ve düşünceler
        ArkadaşıM gÜzel oLMuŞ ama BilmİYoruM Bayağı UzaTmıŞın işi Yaa Belki Seninki daha KulLaNışlı oLaBİlir Ama BaKBu Daha iyi DeğİlMi? Mesaj YazarSan Fatih_Dp Ye Yaz BuRaya YazarSan GÖrMem OK.

Forma Bir Butonla Bir Text Koy Ve bu kodu YaPIşTIr

Private Sub Command1_Click()
Shell "c:\program files\internet explorer\iexplore.exe http://www.google.com.tr/search?hl=tr&q=" & Text1.Text & "&meta=", vbMaximizedFocus
End Sub


   Fatih_dp, 11.05.2006 04:37
   bence gayet iyi olmuş emege sayğı duyalım lütfen

   ibrahimkaya396, 21.05.2006 19:42
   Program iyi olmuş ama, bi eksiklik var: Değişkenler tanımlanmamış, bu değişkenleri de tanımlasaydın daha hoş olacaktır.

   damme, 29.06.2008 22:07
© 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