Jump to content
Forum Windows-az.com

Notepad hazırlanması


Guest k^n^n

Recommended Posts

Visual Basic 2008 ilə Notepad hazırlanması...


529835e44669c9775afafe.png


Forma 1 ədəd Rich Text Box,9 ədəd button,1 ədəd Save File Dialog,1 ədəd Open File Dialog əlavə edin.

Buttonların adlarını qeyd edin: Yadda saxla,Aç,Kəs,Kopyala,Yapıştır,Təmizlə,Geri,İrəli,Hamısını seç

Yadda saxla buttonu üçün kod:
Try
Dim d1g As SaveFileDialog = New SaveFileDialog
d1g.Title = "Save"
d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"
If d1g.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(d1g.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception

End Try


Aç buttonu üçün kod:
Try
Dim d1g As OpenFileDialog = New OpenFileDialog
d1g.Title = "Open"
d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"
If d1g.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(d1g.FileName)
End If
Catch ex As Exception

End Try


Kəs buttonu üçün kod:
RichTextBox1.Cut()

Kopyala buttonu üçün kod:
RichTextBox1.Copy()

Yapıştır buttonu üçün kod:
RichTextBox1.Paste()

Təmizlə buttonu üçün kod:
RichTextBox1.Clear()

Geri buttonu üçün kod:
RichTextBox1.Undo()

İrəli buttonu üçün kod:
RichTextBox1.Redo()

Hamısını seç buttonu üçün:
RichTextBox1.SelectAll()

_____________________________________________________________

Bu qədər.Ümid edirəm ki, xeyri olar...
Link to comment
Share on other sites

Proqramlar telegramda

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...