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.
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.