Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Visual Basic 2005'te resimlerle not defteri hazırlama dersi
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Uygulamalarımızın içinde Google'dan faydalanmak

Yazar: x-x-x-03
Her gün web browserimiz ile mutlaka ziyaret ettigimiz Google.com, arama servisini yanlızca web browserimiz aracılıgıyla degil, Nisan 2002 yılından beri SOAP arabirimi ile her turlu WSDL tanımlamayı destekleyen programlama dilininde aracılıgıyla 8 milyardan fazla indekslenmiş sayfayı hizmetimize sunuyor. Yanlızca webde degil, Google DesktopSearch ile masaustumuzdede google arama teknolojisini kulanabiliyoruz, SDK sını anlatan bir makaleyi onumuzdeki gunlerde yayınlayacagım. Ama şimdilik web kısmında arama yapmaya odaklanalım.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10819
Yayın Tar:02.12.2008
Yazar : Webmaster
Hit :8439

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Visual Basic 2005 yada sizde hangisi varsa çalışıtırın.
Sonra yeni bir proje açmak için File menüsünden NEW PROJECT seçeneğine tıklayın (Kısayolu: CTRL+N):






Açılan pencereden "WindowsApplication" ı seçiyoruz:





Form açıldıktan sonra soldaki araç kutusunda bulunan "All Windows Forms" tabını açarak içindeki listeden
1 adet RichTextBox, menüstrip, openfiledialog, savefiledialog, colordialog, fontdialog seçerek forma ekleyiniz. RichTextBox haricindekiler formun altına yerleşeceklerdir:





Form ve üzerindeki nesnelerin adlarını aşağıdakiler gibi değiştirin:

RichTextBox(edıtor)

OPENFİLEDİALOG (aç1)

SAVEFİLEDİALOG(kay1)

FONTDİALOG(yaz1)

COLORDİALOG(renk1) olarak degıstırıyoruz

Form1'in adını (anaform) olarak degıstırıyoruz

Bu işlem için nesneyi seçili hale getirip, sağdaki properties alanındaki Name özelliğini yukarıdaki gibi değiştirmelisiniz.

ve MENÜSTRİP'in menü sıralamasını şu sekılde hazırlıyoruz:

*********************************
Dosya
Yeni

Kaydet
Farklı Kaydet
-
Çıkış

**********************************
Düzen
Kes
Kopyala
Yapıştır
Tümünü Seç
-
Geri
İleri

***********************************
Görünüm
Yazı Tipi
Yazı Rengi

***********************************
Yardım
Hakkında

Menüye yeni seçenekler eklemek için formun üst kısmında yazılı olan "Type Here" alanına tek tıklama yapmanız yeterlidir. Örnek için aşağıdaki resme bakınız:





Menüyü hazırladıktan sonra F5'e basarak formunuzun nasıl göründüğünü test edebilirsiniz. Yaklaşık olarak aşağıdaki gibi bir şey olmalı:






Şimdiki aşamada ise yapmanız gereken aşağıdaki kodları formun içine yapıştırmak. Bu iş için formun üzerine fareyi getirip "View Code" linkine tıklayın ve görülen bir kaç satır kodu silip yerine aşağıdaki kodu yapıştırın:


Public Class anaform
'değişkenimizi fName olarak tanımladık
Dim fName As String

Private Sub anaform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Burada programımız acıldıgında (edıtor)un pozısyonunu belırlıyoruz
edıtor.Width = 1015
edıtor.Height = 768
End Sub
'bu kısımda edıtor'de herhangı bır degısıklık yapıldıgı zaman yapılacak ıslemlerı belırlıyoruz
Function DiscardChanges() As Boolean
If edıtor.Modified Then
Dim reply As MsgBoxResult
reply = MsgBox("Yazıda Ki Değişiklikleri Kaydetmet İstermisiniz?", MsgBoxStyle.YesNo)
If reply = MsgBoxResult.Yes Then
kay1.Filter = "LWL Files|*.lwl|RTF Files|*.RTF|DOC Files|*.DOC|Text Files|*.TXT|All Files|*.*"
If kay1.ShowDialog = Windows.Forms.DialogResult.OK Then
fName = kay1.FileName
edıtor.SaveFile(fName, RichTextBoxStreamType.PlainText)
edıtor.Modified = False
End If
Else
Return True
End If
Else
Return True
End If
End Function

'bu kısımda dosya acmak ıcın yapılacak ıslemlerı belırlıyoruz

Private Sub AçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AçToolStripMenuItem.Click
aç1.Filter = "LWL Files|*.lwl|RTF Files|*.RTF|DOC Files|*.DOC|Text Files|*.TXT|All Files|*.*"
If aç1.ShowDialog = Windows.Forms.DialogResult.OK Then
fName = aç1.FileName
edıtor.LoadFile(fName, RichTextBoxStreamType.PlainText)
edıtor.Modified = False
End If

End Sub

'bu kısımda yenı bır dosya acıldıgında yapılacak ıslemler

Private Sub YeniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniToolStripMenuItem.Click
If DiscardChanges() Then edıtor.Clear()
End Sub
'bu kısımda Kayıt ıslemler

Private Sub KaydetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaydetToolStripMenuItem.Click
kay1.Filter = "LWL Files|*.lwl|Text Files|*.txt|All Files|*.*"
kay1.DefaultExt = "RTF"
If kay1.ShowDialog() = Windows.Forms.DialogResult.OK Then
fName = kay1.FileName
edıtor.SaveFile(fName, RichTextBoxStreamType.PlainText)
edıtor.Modified = False
End If
End Sub

'farklı kaydet ıslemlerı
Private Sub FarklıKaydetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FarklıKaydetToolStripMenuItem.Click
kay1.Filter = "LWL Files|*.lwl|html Files|*.html|RTF Files|*.RTF|DOC Files|*.DOC|Text Files|*.txt|All Files|*.*"
kay1.DefaultExt = "RTF"
If kay1.ShowDialog() = Windows.Forms.DialogResult.OK Then
fName = kay1.FileName
edıtor.SaveFile(fName, RichTextBoxStreamType.PlainText)
edıtor.Modified = False
End If
End Sub

'ÇIKIS İŞLEMLERI

Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
If DiscardChanges() Then End

End Sub
'******burda ıse KES KOPYALA YAPISTIR vs vs
Private Sub KesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KesToolStripMenuItem.Click
edıtor.Cut()
End Sub

Private Sub KopyalaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KopyalaToolStripMenuItem.Click
edıtor.Copy()
End Sub

Private Sub YapıştırToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YapıştırToolStripMenuItem.Click
edıtor.Paste()
End Sub

Private Sub TümünüSeçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TümünüSeçToolStripMenuItem.Click
edıtor.SelectAll()
End Sub

Private Sub GeriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeriToolStripMenuItem.Click
edıtor.Undo()
End Sub

Private Sub İleriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles İleriToolStripMenuItem.Click
edıtor.Redo()
End Sub
'yazı tıpı ve dıger ıslemler
Private Sub YazıRengiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YazıRengiToolStripMenuItem.Click
Dim a As RichTextBox = Me.ActiveControl
renk1.ShowDialog()
a.ForeColor = renk1.Color
End Sub

Private Sub YazıTipiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YazıTipiToolStripMenuItem.Click
If Not edıtor.SelectionFont Is Nothing Then
yaz1.Font = edıtor.SelectionFont
Else
yaz1.Font = Nothing
End If
yaz1.ShowApply = True
If yaz1.ShowDialog() = Windows.Forms.DialogResult.OK Then
edıtor.SelectionFont = yaz1.Font
End If
End Sub
End Class


Eğer hatasız işlem yapmışsanız F5'e tekrar basarak projenizi çalışıtrırsanız aşağıdaki gibi çalışan bir editör elde etmiş olacaksınız. Bu editör tamamıyla burada verilen kodlarla ve burada anlatılan yolla hazırlanmıştır.



Umarım herkese faydası olur. (ragip2202 adlı üyenin gönderdiği projeden uyarlanmıştır.)




Yorumlar, eklemeler ve düşünceler
        Arkadaş her şeyi denedim ama olmuyor. isimlerin hepsinde error veriyo.inan sırf baştan bunun için VB5 indirdim :( üzüldüm

   Stays, 05.12.2008 20:05
   Hata vermemesi lazım. Burada anlatılanları uygularsanız hata vermez. Projeyi bizzat ben hazırladım ve ekran görüntülerini kendi bilgisayarımdan aldım.

Kesinlikle çalışan bir projedir.

   Webmaster, 06.12.2008 18:22
   belki yazdın yerde komut veya nokta eksikliği vardı dikkat edilmesi gerek en ufak birşeyden prog calısmaz bilirsiniz

   incimurat, 03.02.2009 12:00
   Teşekkürler

   mustafatr129, 26.02.2009 17:10
   Arkadaşlar, Stays için de söylüyorum;

Bu bir Visual Basic 2005 projesidir. Yani Vb 6.0 yada öncesi ile çalışmaz. Bilgisayarınızda Visual Studio 2005 yada 2008 birisi kurulu olmalıdır.

Az önce farkettim ki, Stays Vb5.0 indirip denemiş. Bu kodlarla Vb5'in ne ilgisi var. Lütfen en azından açıklamaların ilk satırını okuyuverin.

   Webmaster, 13.04.2009 15:18
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin