Articles by "basic"
basic etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Visual Basic Sürükle Bırak
 Biliyorum. Aradan neredeyse 1-2 yıl felan geçti Visual Basic kodları paylaşmamam. Ama gene yavaş yavak ara sıra paylaşmaya başlıyorum. Bu vereceğim ders ile Visual Basic'de program yapan arkadaşlar sürükle bırak özelliği ile bir objeyi program esnasında sürükleyebilir ve istediği yerde bırakabilmesini sağlayacağız.

 Bunun için 4 adet malzemeye ihtiyacımız var. Peki nedir bu malzemeler*

  • 1 adet TextBox
  • 1 adet Panel
  • 1 adet PictureBox
  • 1 adet ListBox
Bunları programda zevkinize göre yerlerine yerleştirdikten sonra bir ayar yapmamız gerekiyor.
Texbox, panel ve listbox'ın allowdrop ayarını True yapmalısınız. True yapmayı sakın unutmayın!

Ve aşağıdaki kod ile sürükle bırak işlemini yapabilirsiniz.


Public Class Form1

    Private Sub TextBox1_DragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop
        Dim path As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For Each filename As String In path
            TextBox1.Text = filename
        Next
    End Sub

    Private Sub TextBox1_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub

    Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
        Dim path As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For Each filename As String In path
            ListBox1.Items.Add(filename)
        Next
    End Sub

    Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub

    Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop
        Dim path As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For Each filename As String In path
            PictureBox1.ImageLocation = filename
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        Next
    End Sub

    Private Sub Panel1_DragEnter(sender As Object, e As DragEventArgs) Handles Panel1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub
End Class

 Bu kadar arkadaşlar. Zorlandığınız ve yapamadığınız yerler olursa yorumda belirtin size elimden geldiğince yardım etmeye çalışacağım. 
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
 S.A. Arkadaşlar.
Bugün size Visual Studio Program Crack Yapmasını Öğreteceğim.

Normalde herkes internetten Visual Studio programını indirir kurar, 90 gün sonra deneme sürümü biter ve bizden serial key(product key) ister. Bizde gider Visual Studio programı için internette serial key arar dururuz. Ama artık serial key aramaya hiç gerek yok. Serial Key'siz direk yoldan hiç bir program indirmeden bu sorunu ortadan kaldırabiliyoruz. Nasıl mı.?

Yazılı Anlatım:

1) Başlat > Çalıştır > regedit
Arkadaşlar ilk olarak başlat butonuna ve ardından çalıştır butonuna tıklayıp metin yazma alanına regedit yazın ve klavyenizin "Enter" tuşuna veya çalıştır bölümünde "Tamam" butonuna tıklayınız.

2) HKEY_LOCAL_MACHINE > SOFTWARE > Microsoft > Wow6432Node > Microsoft > VBExpress > 9.0 > Registration (Bu Registration Klasörünü Silin..)
 Daha sonra karşınıza bir ekran gelecektir. Bu ekranda sizi yukarıda gösterdiğimiz yolla gerekli "Registration" klasörüne ulaştıracağız.
 Bu "Registration" klasörünü bulduktan sonra Mouse ile üzerine tek sol tık yapıp ardından klavyenizden "Delete" tuşuna ve daha sonra "Evet" butonuna basarak siliniz veya mouse ile üzerinde tek sağ yapıp ardından "Sil" yazısına tıklayıp ve tekrar "Evet" butonuna basarakda silebilirsiniz.

3) Hayırlı Olsun.!
 Ve işte artık işimiz tamamdır. Artık Visual Studio programınızı ömür boyu sıkıntısız bir şekilde product key uyarısı almadan gönül rahatlıyığla kullanabilirsiniz.

4) Yorumda bir teşekkürü çok görmezsiniz inşallah.

5) Kısa süre sonra resimli ve videolu olarakta size sunacağız.

Resimli Anlatım: (Tam Ekran İçin Resimlerin Üzerine Tıklayabilirsiniz)













Bu Kadar :)
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Bu Windows kullanım uygulamaları esnasında sayfanın özelliklerini ayarlamak için kullanılır.

Pagesetupdiyalog, Visualbasic.net'te sayfanın kenarlarının ayarını, boşlukları, alt-üst bilgilerini vs. ayarlamasını sağlar.

AllowMargins: Kenar boşluklarını ayarlamak için kullanılır
.allowmargins=true
AllowOrientation: Sayfanın yatay dikey ayarı yapılmasını sağlar. 
.alloworientation=true
AllowPaper: Kağıt büyüklüğünün değiştirilmesi ayarıdır.
.allowpaper=true
Allowprinter: Diyalog bölümünde printer düğmesi olup olmayacağını belirler.
.AllowPrinter=true
ShowNetwork: Diyalog penceresinde network düğmesi gözükmesini belirler.
.shownetwork=true