Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
VB 2010 kolay dersler
#1
Arkadaşlar bugün içimden geldi arşivimdeki vb2010 kodlarını sizlerle paylaşayım dedim kiss

alarm yapmak :
1 timer (enabled true , interval 1000)
Textbox
1 label
ve 1 tanede windows media player ekliyoruz (ismini player1 yapıyoruz)
ve kodlar :
Kod:
Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Start()
        Timer1.Interval = 1000
        Label1.Text = TimeOfDay

        If TextBox1.Text = Label1.Text Then
            player1.URL = ("şarkıadı.mp3")
        End If
    End Sub

    Private Sub AxWindowsMediaPlayer1_Enter(sender As System.Object, e As System.EventArgs) Handles player1.Enter

    End Sub
End Class

combobox'a değer girme :

Kod:
ComboBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = ""
download manager yapmak:

Kod:
My.Computer.Network.DownloadFile(TextBox1.Text, TextBox2.Text, "", "", True, "20", False)

Listboxa üçgen şekli yapmak
Kod:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j As Integer  ' Daha fazla bilgi için : www.gorselprogramlama.com

Dim gec As String

gec = ""

ListBox1.Items.Clear()

For i = 1 To Val(TextBox1.Text)

For j = 1 To i

gec = gec & " " & j

Next j

ListBox1.Items.Add(gec)

gec = ""

Next i

gec = ""

ListBox2.Items.Clear()

For i = Val(TextBox1.Text) To 1 Step -1

For j = i To 1 Step -1

gec = gec & " " & j

Next j

ListBox2.Items.Add(gec)

gec = ""

Next i

End Sub

End Class

index çalar yapmak

webbrowser
2 textbox
2 button

Kod:
Önizle Butonu ; Webbrowser1.Navigate(Textbox1.Text)

İndexi Çal Buton Kodu ; WebBrowser1.Navigate(TextBox1.Text)
        TextBox2.Text = WebBrowser1.DocuMentText

Kilit Ekran Yapmak :
Bu derste size kilit ekranı yapmayı göstereceğim.

Öncelikle forma şunları yapıyoruz:

TopMost=True
WindowState=Maximized
FormBorderStyle=None

Sonra 1 textbox ve 1 button ekliyoruz.

Button'a şu kodları yazıyoruz:

Kod:
If TextBox1.Text = "buraya şifre yazılacak" Then
    Me.Close()
Else
    MsgBox("Bu parola hatalı.", 16, "Hata")
End If
Labeli Haraket ettirme

Kod:
If e.KeyCode = Keys.Left Then
            Label1.Left -= 10
        ElseIf e.KeyCode = Keys.Right Then
            Label1.Left += 10
        ElseIf e.KeyCode = Keys.Up Then
            Label1.Top -= 10
        ElseIf e.KeyCode = Keys.Down Then
            Label1.Top += 10
        End If
Beğenenler:
#2
Güzel Döküman Olmuş Devamını Bekliyoruz.
Beğenenler:

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Vb.Net 2010 İndex Çalıcı LuckMania 4 941 05-06-2015, Saat: 22:55
Son Yorum: ScienlymTM
  VB.2010 NotePad## !!JusTBlue!! 2 436 12-05-2014, Saat: 21:31
Son Yorum: H4KİK4T
  Vb.Net Kolay Webbrowser Yapımı LuckMania 0 572 02-11-2013, Saat: 19:52
Son Yorum: LuckMania
Anahtar Kelimeler

VB 2010 kolay dersler indir, VB 2010 kolay dersler Videosu, VB 2010 kolay dersler Online izle, VB 2010 kolay dersler Bedava indir, VB 2010 kolay dersler Yükle, VB 2010 kolay dersler Hakkında, VB 2010 kolay dersler Nedir, VB 2010 kolay dersler Free indir, VB 2010 kolay dersler Oyunu, VB 2010 kolay dersler Download


1 Ziyaretçi