Visual Basic 6 Not Defteri Yapımı

Visual Basic’ e yeni başlayan dostlarımın kesinlikle bakması gereken bir konu.

Visual Basic 6′ da kolayca not defteri yapabiliyoruz. Gerçek not defteri kadar işlevsiz olsa da, geliştirilerek ortaya güzel şeyler çıkarılabilir. Basit bir kodlardan oluşuyor, sizler için makale haline getirip Visual Basic’ e yeni başlayan dostlarıma güzelce bir anlatım yaptığımı düşünüyorum. Uzatmadan başlayalım.

Visual Basic 6 Not Defteri Nasıl Yapılır?

İlk önce boş bir form açalım ve formumuza araç kutusundan;

• 6 adet CommandButton
• 3 adet Textbox
• 1 adet CommonDialog ( CTRL + T > Microsoft Common Dialog Control 6.0 )
• 1 adet Label ekleyelim.

Tasarımını aşağıdaki resimdeki gibi yapalım.

visual basic not defteri

Her butonun bir görevi olacak, hemen onları açıklayalım.

Command1: Aç

Command2: Kaydet

Command3: Renk Seç

Command4: Temizle

Command5: Font Boyutu

Command6: Font İsmi

Buton nesnelerinin ekranın sağındaki Properties bölümünden Caption yerlerini verdiğim gibi yapalım.

Textboxların içini Properties > Text bölümünden boşaltalım.

Label nesnesinin Caption bölümünü boşaltalım.

Formun boş alanına çift tıklayalım ve kodları olduğu gibi yapıştıralım.

Private Sub Command1_Click()
CommonDialog1.DialogTitle = “Açmak İçin Dosya Seç”
CommonDialog1.Filter = “*.txt”
CommonDialog1.Action = 1

Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, SATIR
metin = metin + Chr(10) + Chr(13) + SATIR
Loop
Close #1
Text1.Text = metin
End Sub

Private Sub Command2_Click()
Open App.Path & “vbasicturkiye.txt” For Output As #1
Print #1, Text1.Text;
Close #1
End Sub

Private Sub Command3_Click()
On Error Resume Next
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command4_Click()
Text1.Text = “”
End Sub

Private Sub Command5_Click()
Text1.FontSize = Text2.Text
End Sub

Private Sub Command6_Click()
Text1.Font = Text3.Text
End Sub

Private Sub Form_Load()
Dim fontt As Byte
fontt = Text1.FontSize
Text2.Text = fontt ‘ tam sayı olması için
Text3.Text = Text1.Font
End Sub

Private Sub Text1_Change()
Label1.Caption = “Harf Uzunluğu ” & Len(Text1.Text)
End Sub

visual basic not defteri 2

Gördüğünüz gibi sorunsuz çalışıyor dostlarım.

Eğer takıldığınız yer varsa konu altından yorum atabilirsiniz  Umarım yardımcı olabilmişimdir.

Yapamadınız mı?

Hazır Proje İNDİR