Online ForummHoş geldin, Misafir.
Son Ziyaretiniz:
Mesaj Sayınız: 0


    Visual Basi 6.0 Kodları

    Paylaş

    Admin
    Admin
    Admin

    Aktiflik :
    999 / 999999 / 999

    Cinsiyet : Erkek
    Mesaj Sayısı : 136
    Rep Gücü : 1000719
    Rep Puanı : 2
    Kayıt tarihi : 19/02/11
    Yaş : 20
    Nerden : Diyarbakır

    yeni Visual Basi 6.0 Kodları

    Mesaj tarafından Admin Bir Salı Haz. 28, 2011 1:04 pm

    Evet arkadaşlar vb 6.0 ile 3 gündür ilgileniyorum öğrendiklerimi sizinle paylaşmak istedim. Öğrendiğim bütün kodları bu konudan paylaşacam foruma habire yeni konu açmaya gerek yok. Mesaj sayısı kaygım da yok
    Yukarıda tut kodu için form'umuza bir adet check box ekliyoruz bunun caption'unu(görünen adı) Her Zaman Üstte Tut yapabilirsiniz.
    Forma bir adette modül ekliyoruz. Şimdi kodlara gelelim.
    Check Box'a çift sol tıklayıp içine:

    Kod:
    Private Sub Check1_Click()
    If Check1.Value = 1 Then
    Call FormOnTop(Me.hWnd, True)
    If Form1.Visible = True Then
    Call FormOnTop(Form1.hWnd, True)
    End If
    Else
    Call FormOnTop(Me.hWnd, False)
    If Form1.Visible = True Then
    Call FormOnTop(Form1.hWnd, False)
    End If
    End If
    End SubYazdıktan sonra modülümüzün içine:

    Kod:
    Private Declare Function SetWindowPos Lib "User32" (ByVal hWnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long) As Long
    Public Sub FormOnTop(hWindow As Long, bTopMost As Boolean)
    ' Example: Call FormOnTop(me.hWnd, True)
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2
    Const SWP_NOACTIVATE = &H10
    Const SWP_SHOWWINDOW = &H40
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2

    wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE

    Select Case bTopMost
    Case True
    Placement = HWND_TOPMOST
    Case False
    Placement = HWND_NOTOPMOST
    End Select


    SetWindowPos hWindow, Placement, 0, 0, 0, 0, wFlags
    End SubEkliyoruz. Bunları yaptıktan sonra play'e basıp Check Box'a tıklayın ve interneti veya bir klasörü açarak deneyin.

    BİR TEŞEKKÜRÜ ÇOK GÖRMEYİN

    (Kendim Yazdım)
    --------------------------------------------------------------------------------------------------------------------------------------------------------
    Şimdi bugün öğrendiğim bir programı sizlerle de paylaşmak istiyorum.
    Bugün WebBrowser yapmayı öğrendim nasıl yapıldığını sizinle de paylaşayım.
    İlk önce microsoft internet control ve microsoft windows common controls 5.0'ı components'ten seçiyoruz ve uygula diyoruz.
    Sonra araç çubuğuna birkaç nesne daha gelir.
    Bunlardan WebBrowser'i seçip görüntülenecek sayfanın boyutunun ne kadar olmasını istiyorsanız o kadar ayarlayın.
    Sonra yukarıdaki nesnelerden ComboBox'u seçin bu da adres çubuğumuz olacak.
    Ve Geri,İleri,Git,Yenile,Dur Ve Anasayfa'ya gidecek Command Buttonlar gerekiyor.(Toplam 6 Command Button)
    Kodları vermeden önce hazıra kaçmamak için ve ne de olsa kodlar birsüre sonra unutulur unutmamanız için bunları öğrenin:
    Back=Geri
    Forward=İleri
    Refresh=Yenile
    HomePage=Ana Sayfa
    Navigate=Git
    Şimdi sıra kodlarda
    Geri butonuna:
    WebBrowser1.GoBack
    İleri butonuna:

    Kod:
    WebBrowser1.ForwardGit butonuna:

    Kod:
    WebBrowser1.Navigate "http://" & Combo1Yenile butonuna:

    Kod:
    WebBrowser1.RefreshDur butonuna:

    Kod:
    WebBrowser1.StopAna Sayfa butonuna:

    Kod:
    WebBrowser1.GoHomeBir Not:
    Hata çıkmasını engeller:
    Örneğin hiç bir sayfaya girmemişken ileri butonu çalışmaz normal internette bu çalışmadığını hata çıkararak değil hiç bir şey yapmayarak gösterir ama bu kodu yazmazsanız projenizde o hata çıkar işte bu kod:

    Kod:
    On Error Resume NextBİR TEŞEKKÜRÜ ÇOK GÖRMEYİN

    (Kendim Yazdım)
    --------------------------------------------------------------------------------------------------------------------------------------------------------
    Bugünki konumuzda öğrenmeniz gereken bazı terimler:
    Show=Göster
    Hide=Sakla,Gizle

    Bugün form açıp kapatmayı ve bununla neler yapabileceğinizi anlatacam arkadaşlar.
    İlk önce iki form açıp birinci ve ikinci forma 2 adet Command Button ekliyoruz.
    Birinci formdaki Command Buttonlardan birinin adını "Form1' Geçiş" ikincisinin adını da "Form2'ye geçiş" yapıyoruz ve aynısını form2 ye uyguluyoruz.
    Form1deki form1'i göster yazısına çift sol tıklayıp şu kodları yazıyoruz:
    [code] Form1.Show [code]
    Form1deki form2'ye geçiş yazısına çift sol tıklayıp şu kodları yazıyoruz:
    [code] Form1.Hide
    Form2.Show [/Show]
    Bundan sonra Form2'ye geçiyoruz ve Form2'deki Form2'yi göster Commdan Button'una şu kodları yazıyoruz:

    Kod:
    Form2.ShowVe son olarak ta Form2'deki Form1'e geçiş Commdan Button'una şu kodları yazıyoruz:

    Kod:
    Form2.Hide
    Form1.ShowBu öğrendiklerinizle koxplarda genel,atak,exta ve diğer gibi bölümler oluşturabilirsiniz.

    BİR TEŞEKKÜRÜ ÇOK GÖRMEYİN

    (Kendim Yazdım)
    --------------------------------------------------------------------------------------------------------------------------------------------------------
    Şimdi sizlere MsgBox özelliğini anlatacağım
    MsgBox kolay ama işe yarar bir özelliktir.
    Şimdi size MsgBox ile neler yapılabileceğini göstereyim.
    Formumuza bir adet Command Button ekliyoruz.
    Sonra Command Buttona çift sol tıklayıp kod bölümüne:

    Kod:
    MsgBox "MESAJINIZ BURAYA"Sonra play'e basıyoruz ve Command Button'a tıkladığınızda mesajınız çıkacaktır.
    Ve bir özellik daha anlatayım.
    MsgBox "MESAJINIZ", Vb.Critical, "UYARI"
    Buradaki Vb.Critical, "UYARI" çıkan mesaj kutusunun adı oluyor.
    Deneyin ne demek istediğimi daha iyi anlarsınız.


      Forum Saati Cuma Ara. 09, 2016 9:37 am