Yazan: "dersler"
dersler etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

zaman: 0
Sosyal ağlar ve web tasarımıyla ilgili bir blog ve unity hakkında hersey dunya hakkında bir dunya bilgi ve FreeSpritler
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. 
Okumaya Devam Et

zaman: 0
Sosyal ağlar ve web tasarımıyla ilgili bir blog ve unity hakkında hersey dunya hakkında bir dunya bilgi ve FreeSpritler
https
 İnternette sunucular ve son kullanıcılar arasında bilgilerin "başkaları tarafından" okunamayacak şekilde nasıl aktarılacağına dair kurallar ve yöntemleri düzenleyen bir sistemdir.
Özellikle internet üzerinden yürütülen bankacılık işlemleri için banka siteleriyle bağlantı kurulduğunda ya da kredi kartıyla ödeme yapılan sistemlerde kredi kartı bilgileriniz doğrulanırken, tarayıcınızdaki adres çubuğunun başında "http" yerine "https" yazdığını görürsünüz. Başında "https" yazılan adreslerle bağlantı kurduğunuzda, bilgiler sadece karşı taraf ve sizin tarafınızdan okunabilecek şekilde şifrelenir. "http" ile yapılan bilgi alışverişinde ise bir şifreleme yoktur, başka kişiler de sizin aldığınız ve verdiğiniz bilgilere ulaşabilir. "https", bilgi güvenliği gereken zamanlarda uygulanan bir güvenli iletişim protokolüdür.
Yani Arkadaşlar Bir Tür İnter Tarayıcısının Virüs Etiketi Diyebiliriz.

WebteGez'den UYARI .. ;

İnternetten Alışveriş Yaparken Şifrenizi Girdiğiniz Sayfanın Üst Tarafındaki URL Kısmının "HttpS" İle Başlamasına Dikkat Edin.
Okumaya Devam Et
Kaydol: Kayıtlar (Atom)