Yazan: "kod"
kod 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
CSS ve Div İle Yazıları vs. Yan Yana Yazma - float
Merhaba arkadaşlar.

 Bu yazımda çoğu kişinin zorlandığı arayıpta zor bulduğu bir konuyu paylaşmak istiyorum.

 Herhangi iki tane yazı veya her hangi iki tane html kodu bazen görünüş veya ihtiyaç bakımından web sitemizde yan yaana yazmak isteyebilirsiniz. Yan yana derken biri tam sola diğer tam sağa gibi.

 Örnek olarak aşağıya bakınız:



Soldaki Yazı
Sağdaki Yazı


Yukarıdan gördüğünüz gibi ikiside yan yana aynı hizada biri tam sola diğeri tam sağa geçmiş durumda. Aslında görünüşte çok kolay gözükebilir bunda ne var diye. Am inanın çoğu arkadaşlar bunu çok arıyorlar.

 Benim bile başıma gelmişti eskilerden. Her türlü deneme yapıyordum ama olmuyordu.

Özelllikle mesela:

Soldaki Yazı <div style="align:right;">Sağdaki Yazı</div>

 vb. gibi bir sürü kodlar denememe rağmen olmuyordu. Hep aşağıdaki gibi bir sonuç alırdım.

Soldaki Yazı
Sağdaki Yazı

Sağa doğru yanaştırırdım ama diğeriyle aynı hizada olmazdı. Ve bende araştırmalarım sonucunda bu sorunu buldum.

 CSS kodunyla "float" ile artık herşey çok güzel olacak :)
Soldaki Yazı <div style="float:right;"></div>

 İşte yukarıdaki kod ile neyin sağ tarafına yazmak istiyorsanız o koddan hemen sonra <div> ile başlayan kodu yazarak istediğinizi başarıyla yapabilirsiniz.

Hepinize koaly gelsin arkadaşlar. Bundan böyle web sitenizin tasarımları bir başka güzel olacak :)
Okumaya Devam Et
Kaydol: Kayıtlar (Atom)