HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Sabitlenirse Ne Mutlu
İlk Başta Söylemeliyim ALINTI Fakat Bu forumda Yok....
VB.NET `e geçip emektar VB6 yı unutanlar hatırlasın diye arşivden birkaç değişik kod paylaşmak istedim
Paylaşacaklarım Programlarınıza kazandırabileceğiniz küçük özellikler.
Başlayalım :
1-Programı Parlatma:
Bunu şöyle açıklayalım , Aktif olmayan Msn konuşma penceresinin mesaj gelince Taskbar`da turuncu renk alması.
Kodlar:
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Const Invert = 1
Kullanım:
FlashWindow Me.hwnd, Invert
Örnek Görüntü:
2-Programınızda Bulunan Tüm Textbox `ları Tek Tuşla Temizleme:
Eğer programımızda fazla sayıda textbox varsa iş görebilir program kolaylığı açısından.
Kodlar:
Dim Kontrol As Control
For Each Textboxlar In Me.Controls ```Formdaki kontrolleri aldık
If TypeOf Textboxlar Is TextBox Then ```Textboxlar eğer textbox ise
Textboxlar.Text = "" `Hepsini sil
End If
Next
Kullanım:
Yukarıdaki kodları bir Butona koyabilirsiniz.
3-Programımızı Demo yapma:
Programımızın belirli sayıda çalışmasını, sonra hata vermesini yapıcaz. Basit yöntem fakat geliştirerek daha güvenli yapabilirsiniz.
Kodlar:
Dim acılmasayısı
Private Sub Form_Load()
acılmasayısı = GetSetting("sınır", "sınırla", "acılmasayısı", 0)
If acılmasayısı >= 5 Then ` Buradaki 5 değerini kendinize göre değiştirin.
SaveSetting "sınır", "sınırla", "acılmasayısı", 111111
MsgBox "Demo Kullanım Süreniz Sona Erdi"
Unload Me
End
Else
acılmasayısı = acılmasayısı + 1
SaveSetting "sınır", "sınırla", "acılmasayısı", acılmasayısı
Label1.Caption = acılmasayısı
End If
End Sub
Kullanım:
Örnek şu şekilde;
Bir adet label ekliyoruz. Program her açıldığında Labeldeki sayısal değeri 1 arttırıyor. Değer 5 ten büyük olduğunda yani 6. kullanımda kullanıma izin verilmiyor. Kodları olduğu gibi alabilirsiniz.
4-Rastgele Text Üretme:
Bu özelliği mesela şöyle kullanabiliriz ; Form girişimizde ürettiğimiz text ile güvenlik girişi sağlayabiliriz her girişte farklı olacağı için. Kullanıcıdan texti aynen girmesini isteriz.
5-Programımıza Zenginlik Katma :
Bu paylaşımda ise , mesela resimdeki gibi olan görüntümüze kendi programımızın adını yazıp hakkında bölümüne koyabiliriz. Bu sayede hakkında bölümümüze giren bir kullancı daha güzel bir arayüzle karşılaşır. İndirip denerseniz görüceksiniz. Hareketli ve gayet hoş. Giriş formunada eklenebilir. ( Bu Proje yabancı bir kaynaktan alıntıdır. )
Rep Atan Eller Dert Görmesin
İlk Başta Söylemeliyim ALINTI Fakat Bu forumda Yok....
VB.NET `e geçip emektar VB6 yı unutanlar hatırlasın diye arşivden birkaç değişik kod paylaşmak istedim
Paylaşacaklarım Programlarınıza kazandırabileceğiniz küçük özellikler.
Başlayalım :
1-Programı Parlatma:
Bunu şöyle açıklayalım , Aktif olmayan Msn konuşma penceresinin mesaj gelince Taskbar`da turuncu renk alması.
Kodlar:
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Const Invert = 1
Kullanım:
FlashWindow Me.hwnd, Invert
Örnek Görüntü:
2-Programınızda Bulunan Tüm Textbox `ları Tek Tuşla Temizleme:
Eğer programımızda fazla sayıda textbox varsa iş görebilir program kolaylığı açısından.
Kodlar:
Dim Kontrol As Control
For Each Textboxlar In Me.Controls ```Formdaki kontrolleri aldık
If TypeOf Textboxlar Is TextBox Then ```Textboxlar eğer textbox ise
Textboxlar.Text = "" `Hepsini sil
End If
Next
Kullanım:
Yukarıdaki kodları bir Butona koyabilirsiniz.
3-Programımızı Demo yapma:
Programımızın belirli sayıda çalışmasını, sonra hata vermesini yapıcaz. Basit yöntem fakat geliştirerek daha güvenli yapabilirsiniz.
Kodlar:
Dim acılmasayısı
Private Sub Form_Load()
acılmasayısı = GetSetting("sınır", "sınırla", "acılmasayısı", 0)
If acılmasayısı >= 5 Then ` Buradaki 5 değerini kendinize göre değiştirin.
SaveSetting "sınır", "sınırla", "acılmasayısı", 111111
MsgBox "Demo Kullanım Süreniz Sona Erdi"
Unload Me
End
Else
acılmasayısı = acılmasayısı + 1
SaveSetting "sınır", "sınırla", "acılmasayısı", acılmasayısı
Label1.Caption = acılmasayısı
End If
End Sub
Kullanım:
Örnek şu şekilde;
Bir adet label ekliyoruz. Program her açıldığında Labeldeki sayısal değeri 1 arttırıyor. Değer 5 ten büyük olduğunda yani 6. kullanımda kullanıma izin verilmiyor. Kodları olduğu gibi alabilirsiniz.
4-Rastgele Text Üretme:
Bu özelliği mesela şöyle kullanabiliriz ; Form girişimizde ürettiğimiz text ile güvenlik girişi sağlayabiliriz her girişte farklı olacağı için. Kullanıcıdan texti aynen girmesini isteriz.
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
5-Programımıza Zenginlik Katma :
Bu paylaşımda ise , mesela resimdeki gibi olan görüntümüze kendi programımızın adını yazıp hakkında bölümüne koyabiliriz. Bu sayede hakkında bölümümüze giren bir kullancı daha güzel bir arayüzle karşılaşır. İndirip denerseniz görüceksiniz. Hareketli ve gayet hoş. Giriş formunada eklenebilir. ( Bu Proje yabancı bir kaynaktan alıntıdır. )
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
Rep Atan Eller Dert Görmesin
Son düzenleme:
Teşekkürler.Bende bunları arıyordum.Bu sefer +Repi hakettin.Ama nerden bilelim bu konuyu kopyala yapıştır yapmadığını?
Eğer alıntıysa alıntı yazarsan hiçbir şey olmaz.Bunu söyleyeyim.
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
Kontrol Ediliyor
Vb.net VS-2022 mobile2 global hile kodlama yardım
