-->

Sponsor Alanı

Slider

İlgi Çeken Videolar

Sağlık

Teknoloji

Sinema

Televizyon

Ne Nedir?

En5 Konular

Ads1

TextBox Özellikleri - VB.Net

TextBox Özellikleri - VB.Net
Visual basic derslerimize devam ediyoruz. Bu dersimizde TextBox'ın özelliklerinden bahsedeceğiz:

1 - Tool Tip Text: Tool tip text hangi yerlerde kullanılmaktadır; Örnek, bir command buton var sayalım  Bu buton hesaplama yapmaktadır. Peki bunu kullanıcıya nasıl aksettireceğiz.  ,kullanıcı butonun üzerinde kısa süre duraksadığı zaman butool tiptext'in içine yazdığınız yazı görünecektir..

2 - Multiline: İki tane değer almaya yarar. Bu değerler ise; True, False. True ise 1 den fazla satır girilebilir, False ise sadece 1 satır girilebilir.

3 - Alingment: Nesne içindeki yazının sola, sağa ve ortaya yerleştirilmesi için kullanılmaktadır.

4 - Scroll Bars: Bu araç ile  text kutusuna kaydırma çubuğu eklemeye yarar.

5 - Maxlenght: Text kutusuna girebileceğiniz en yüksek   karakter sayısını ayarlamanıza olanak tanır.

6 - Password Char: İsminden de anlaşıldığı üzere herhangi bir şifre seçildiğinde tanımlandığında başka kişilerin şifrenizi görmemesini için text kutusunda görünmesini istediğiniz işareti buraya koydurursunuz.

7 - Locked: Kilit anlamına gelmektedir.

8 - Border Style: sınırları belirler. Nesnenin ekran üzerindeki...

9 - Appearance: 3D görünüm sağlamaya yarar.

10 - SelText: Seçilmiş metin bu özellikle öğrenilip değiştirilebilir.

11 - Enable: Bir nesnenin pasif veya aktif olmasını ayarlar.

12 - Visible: Görünür ve görünmez ayarlarını yapabileceğiniz özellik.

Vb.Net Dersi - Radio Button Kullanımı

Radio Button Kullanımı Visual Basic 2010

Bu dersimizde visual basic ile  RadioButton kullanımı hakkında kısa bilgiler vereceğiz ufak kodlama ile örnek olması açısından çalışma yapacağız.

Gerekli olan araçlarımız;

2 Adet GroupBox
4 Adet RadioButton
1 Adet Button

Ve Formu aşağıdaki gibi tasarlayın...

radiobutton

Button'a çift tıklayarak click olayına aşağıdaki kodu yazın.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Visible = True Then
            durum1 = "genç"
        End If
        If RadioButton2.Visible = True Then
            durum1 = "yaşlı"
        End If
        If RadioButton3.Visible = True Then
            durum2 = "evli"
        End If
        If RadioButton4.Visible = True Then
            durum2 = "bekar"
        End If
        MsgBox("siz" & durum1 & " ve " & durum2 & " ibrahimfirat.net")
    End Sub
End Class


RadioButton Kullanımı Video


Visual Basic - MsgBox Kullanımı

Vb.Net derslerimize devam ediyoruz. Yeni öğrenenler için faydalı olacak basit derslerimizle devam ediyoruz. iF Takipçileri için  ara ara  kolaydan zora doğru giden derslerimize yer vereceğiz.

vb.net

Bu dersimizde visual basic çıkış fonksiyonu olarak tanımladığımız MsgBox kullanımını göreceğiz.

Uygulamayı denemek için bir tane form açın form1'in Load kısmına aşağıdaki kodu yazın.

MsgBox("ibrahimfirat")



Ders Not Ortalaması Alma ( Vb.Net )

Bu dersimizde  yeni başlayanlar için oldukça faydalı olabilecek ufak çalışmamızla devam ediyoruz.  Elimizden geldiğince yeni öğrenenler için basit ve alt yapı oluşturacak derslere yer veriyoruz.

Bu derste not ortalamasını alan program yapacağız.

vb.net


Gerekli araçlar:


Form açın ve..

3 Tane TextBox
3 Tane Label
1 Tane Button ekleyin...

Yazmanı gereken kod aşağıda


Button a çift  tıklayarak aşağıdaki kırmızı renk olan kodları click olayına yazınız.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim yazili1, yazili2, ort As Integer
        yazili1 = Val(TextBox1.Text)
        yazili2 = Val(TextBox2.Text)
        ort = (yazili1 + yazili2) / 2
        TextBox3.Text = ort
    End Sub
End Class


Video


Mouse Koordinatları ( Visual Basic )

vb
Bu konumuzda  Vb.Net Mouse Koordinatlarını  göstereceğiz. V.b.Net'de API kullanarak mouse imlecinin bulunduğu alanı bulmayı ve değiştirmeyi öğreneceğiz.



Eklemeniz Gereken araçlar:

* 1 tane Timer

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Declare Function GetCursorPos Lib "user32.dll" (ByVal lpPoint As POINTAPI) As Long
Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long)  As Long

Private Sub Timer1_Tick()
Dim yerler As POINATPI
ykr = GetCursorPos(yerler)
Me.Caption = yerler.X & "," & yerler.Y
End Sub

Konumlandırmanız için

X = 250
Y = 300
yer = SetCursorPos(X,Y)

Visual Basic Dersi - Mause'u Ve Klavyeyi Devre Dışı Bırakmak

vb.net
Vb.Net derslerimize kaldığımız yerden devam ediyoruz. Basit çalışmalarımıza bugün ki dersimiz vb.Net ile bilgisayar girişlerini devre dışı bırakmayı öğreneceğiz.

Forma 1'er tane  Timer ve Command ekleyin.

Option Explicit 

Private Declare Function BlockInput Lib "user32" (ByVal fBlock _ 
As Long ) As Long 

Const API_FALSE = 0& 
Const API_TRUE = 1& 

Private Sub Command1_Click( ) 
Timer1.Interval = 500 
Timer1.Enabled = True 
Call BlockInput(API_TRUE ) 
End Sub 

Private Sub Timer1_Timer( ) 
Static Cnt As Long 

Cnt = Cnt + 1 
If Cnt > 10 Then 
Cnt = 0 
Timer1.Enabled = False 
Call BlockInput(API_FALSE ) 
Label1.Caption = "" 
Else 
Label1.Caption = "Açılacak zamanı belirleme: " _ 
& Format$(CStr((10 - Cnt ) ) / 2, "0.0" ) 
End If 
End Sub

TextBox'taki Bilgileri Klasöre Eklemek

Uzun zamandan beri Visual basic derslerine devam edemiyorduk kaldığımız yerden devam ediyoruz.

Bu dersimizde Treeview ile Klasör Listelemeyi öğreneceğiz.

Lazım olan araçlarımız;

1 tane textbox
1 tane button
1 tane treeview

vb.net

Aşağıdaki kodları ekleyiniz.

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim klasorler As String() = Directory.GetDirectories(TextBox1.Text) 'textboxdaki bilgileri alarak abu bilgiler ile klasörlerdekileri listeliyoruz.
        TreeView1.Nodes(0).Text = TextBox1.Text
        Dim anadugum As TreeNode = TreeView1.Nodes(0)
        If klasorler.Length <> 0 Then
            Dim aktifklasor As String
            For Each aktifklasor In klasorler ' klsör listeleri üzerindeki bilgiler için döngü kuruyoruz
                Dim dugum As TreeNode = New TreeNode(aktifklasor)
                anadugum.Nodes.Add(dugum) 'oluşturulan bu döngü anadüğüm adlı parent node altına ekliyin.

            Next
        End If
        TreeView1.ExpandAll() 'anadüğüm ve tüm alt düğümleri açık veziyette listemekteyiz.
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TreeView1.Nodes.Add("Klasör Listesi") 'bu isimde 1 adet parent note ekledik.
    End Sub
End Class 

Vb.Net Dinlediğiniz Müziği Listeye Ekleme

vb.net

Visual basic derslerimize bir süre ara vermiştik yoğunluktan dolayı, kaldığımız yerden devam ediyoruz. Bugün ki konumuz herhangi bir müzik çalarda dinlediğiniz bir müziği combobox'a liste olarak ekleyeceğiz Combobox'tan seçim yapınca eklenen müzik açılacaktır.

Gerekli araçlarımız:

1 tane media player
1 tane openfiledialog
1 tane button
1 tane combobox

Kodlama:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
        ComboBox1.Items.Add(AxWindowsMediaPlayer1.URL)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        AxWindowsMediaPlayer1.URL = ComboBox1.Text


    End Sub

Windows Media Player Eklemek ve Müzik Çalar yapmak için Video