دستور ساخت برنامه note pad برای vb.net [بایگانی]

سوداگر

پنج شنبه 01 دی 1390, 09:30 صبح

دستور ساخت برنامه note pad برای vb.net

مواد لازم:......................................... ................................. مقدار لازم:
کامپیوتری که vs روش نصب شده باشد................................... یک عدد
دانش برنامه نویسی........................................ .................... به مقدار لازم
ماوس برای قرار دادن کنترل ها روی برنامه................................. یک عدد
صفحه کلید.......................................... ............................... یک عدد

طرز تهیه:
ابتدا ویژوال استدیو را باز کرده و از منوی File گزینه ی New Project را انتخاب می کنیم. در کادر باز شده از قسمت Installed Template گزینه Visual Basic را انتخاب کرده و سپس پروژه ای از نوع Windows Form Application را انتخاب کرده و نام مناسبی برای پروژه انتخاب می کنیم. روی OK کلیک کرده تا پروژه، ایجاد شود.
حال از ToolBox یک عدد MenuStrip روی فرم، کشیده و منوهای دلخواه را به سادگی کلیک+تایپ ایجاد می کنیم.
بعد از ساختن منوهای مربوطه یک عدد RichTextBoxروی فرم کشیده و خصوصیت Dock آنرا روی fill تنظیم می کنیم. که من نمونه ای از آنرا از قبل، آماده کرده ام::لبخند:

79531

بعد از این مرحله نوبت به کد نویسی می رسد که کدهایی خیلی ساده را در بر می گیرد:
برای New:

If RichTextBox1.Modified = True Then
Dim x As Integer = MsgBox("Do you want to save the modified document ?", MsgBoxStyle.YesNo)
If x = vbYes Then
SaveToolStripMenuItem.PerformClick()
Else
Me.Text = "Untitled"
RichTextBox1.Clear()
End If
Me.Text = "Untitled"
RichTextBox1.Clear()
End If
برای Open:

Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Title = "Open"
dlg.Filter = "Rich Text Files (*.rtf|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(dlg.FileName)
End If
Catch ex As Exception : End Try
برای Save:
Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save"
dlg.Filter = "Rich Text Files(*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try
برای Save As...:

Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save As"
dlg.Filter = "Rich Text Files(*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try
برای Print Preview:

PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
برای Print:

PrintDialog1.ShowDialog()
If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PrintDocument1.Print()
End If
برای Exit::خجالت:
Endیا:
Application.Exit()

چون وقت برنامه کم هست :لبخند: توصیه می کنم خودتون بقیه کدها رو توی سایت منبع (http://www.programmersheaven.com/mb/VBNET/370588/370588/how-to-create-notepad-application-using-vbnet/) ببینید.

بعد از وارد کردن کدها در مکان مناسب، دکمه F5 را فشار داده و برنامه را اجرا کنید.
یاعلی