View Full Version : سوال: روش کار برنامه ای شبیه عمل find در notpad
morrning
پنج شنبه 11 آذر 1389, 14:54 عصر
سلام
کسی میتونه بنده رو راهنمایی کنه که چطور میتونم برنامه ای شبیه find در برنامه notpad بنویسم .طوری که امان رفتن به کلمه بعدی و قبلی رو داشته باشه
خودم میتونم محل آخرین کلمه رو با استفاده از توابع پیدا کنم اما چطور باید به کلمه های بعدی یا قبلی رجوع کنم
morrning
پنج شنبه 11 آذر 1389, 21:40 عصر
کسی نبود بنده رو یاری بفرماید:لبخند:
milad.biroonvand
پنج شنبه 11 آذر 1389, 22:09 عصر
سلام
کسی میتونه بنده رو راهنمایی کنه که چطور میتونم برنامه ای شبیه find در برنامه notpad بنویسم .طوری که امان رفتن به کلمه بعدی و قبلی رو داشته باشه
خودم میتونم محل آخرین کلمه رو با استفاده از توابع پیدا کنم اما چطور باید به کلمه های بعدی یا قبلی رجوع کنم
سلام
من یه نمونه برنامه کامل برای اینکار دارم ، اگه خواستی برات ایمیل کنم ، اگه خواستی به ایمیل azad222@gmail.com میل بده تا برات بفرستمش چون حجمش 2 مگ به بالاست .
morrning
جمعه 12 آذر 1389, 15:17 عصر
اگه زحمتی نیست به آدرس alizadeh.babak@gmail.com بفرستش
pouyansaraf
شنبه 13 آذر 1389, 18:32 عصر
سلام
چرا لینک دانلودش را اینجا نمیگزارید که همه دنلود کنند
milad.biroonvand
سه شنبه 23 آذر 1389, 18:49 عصر
سلام
این برنامه رو دارم ، حجمش بالای 5 مگه . این فایل اجراییشه ، هر کس نیاز داشت تا کد اون قسمت رو براش بزارم .
Reza,M
سه شنبه 23 آذر 1389, 22:11 عصر
63666
با سلام
اينم يه فايل اجراييه البته خودم تقريبا يه سال پيش نوشتمش هنوز جاي كامل شدن داره كه من زياد وقت صرفش نكردم
milad.biroonvand
سه شنبه 23 آذر 1389, 22:33 عصر
سلام
نحوه ی درست کردنشو هم براتون تو یه فایل پی دی اف یا ورد توضیح می دم.
milad.biroonvand
سه شنبه 23 آذر 1389, 23:01 عصر
Form1.RichTextBox1.Find(finbox.Text)
milad.biroonvand
سه شنبه 23 آذر 1389, 23:03 عصر
کد دستور openfile dialog
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "Text file(*.txt)|*.txt|Rich text file(*.rtf)|*.rtf"
OpenFileDialog1.ShowDialog()
If (OpenFileDialog1.FileName <> "") Then
If OpenFileDialog1.FilterIndex = 1 Then
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
rot = 1 'txt
End If
If OpenFileDialog1.FilterIndex = 2 Then
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
rot = 2 'rtf
End If
End If
count = 2 'save شود
s = OpenFileDialog1.FileName
milad.biroonvand
سه شنبه 23 آذر 1389, 23:04 عصر
Dim rmsg As Integer
rmsg = MsgBox("Save changes to Document?", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, "Dear user")
If rmsg = MsgBoxResult.Yes Then
'دستورات save
'دستورات save as
If count = 1 Then
SaveFileDialog1.FileName = "untitled"
SaveFileDialog1.Filter = "Text file(*.txt)|*.txt|Rich text file(*.rtf)|*.rtf"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
If SaveFileDialog1.FilterIndex = 1 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
rot = 1 'txt
End If
If SaveFileDialog1.FilterIndex = 2 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
rot = 2 'rtf
End If
End If
s = SaveFileDialog1.FileName
count = 2 'save شود
RichTextBox1.Clear()
'-----------------------------------------
'دستور save
Else
If rot = 1 Then 'txt
RichTextBox1.SaveFile(s, RichTextBoxStreamType.PlainText)
End If
If rot = 2 Then 'rtf
RichTextBox1.SaveFile(s, RichTextBoxStreamType.RichText)
End If
End If
End If
If rmsg = MsgBoxResult.No Then
RichTextBox1.Clear()
End If
count = 1 'save as biyayad
s = ""
milad.biroonvand
سه شنبه 23 آذر 1389, 23:05 عصر
'دستورات save as
If count = 1 Then
SaveFileDialog1.FileName = "untitled"
SaveFileDialog1.Filter = "Text file(*.txt)|*.txt|Rich text file(*.rtf)|*.rtf"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
If SaveFileDialog1.FilterIndex = 1 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
rot = 1 'txt
End If
If SaveFileDialog1.FilterIndex = 2 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
rot = 2 'rtf
End If
End If
s = SaveFileDialog1.FileName
count = 2 'save شود
'-----------------------------------------
'دستور save
Else
If rot = 1 Then 'txt
RichTextBox1.SaveFile(s, RichTextBoxStreamType.PlainText)
End If
If rot = 2 Then 'rtf
RichTextBox1.SaveFile(s, RichTextBoxStreamType.RichText)
End If
End If
milad.biroonvand
سه شنبه 23 آذر 1389, 23:06 عصر
SaveFileDialog1.FileName = "untitled"
SaveFileDialog1.Filter = "Text file(*.txt)|*.txt|Rich text file(*.rtf)|*.rtf"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
If SaveFileDialog1.FilterIndex = 1 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
rot = 1 'txt
End If
If SaveFileDialog1.FilterIndex = 2 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
rot = 2 'rtf
End If
End If
s = SaveFileDialog1.FileName
count = 2 'save شود
milad.biroonvand
سه شنبه 23 آذر 1389, 23:07 عصر
Try
Dim Printing As New PrintDialog
PrintDocument1.DocumentName = "mm"
If (PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK) Then
PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
PrintDocument1.Print()
End If
Catch ex As Exception
End Try
milad.biroonvand
سه شنبه 23 آذر 1389, 23:08 عصر
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
milad.biroonvand
سه شنبه 23 آذر 1389, 23:08 عصر
RichTextBox1.Undo()
milad.biroonvand
سه شنبه 23 آذر 1389, 23:09 عصر
کد دستور redo
RichTextBox1.Redo()
milad.biroonvand
سه شنبه 23 آذر 1389, 23:10 عصر
کد دستور cut
RichTextBox1.Cut()
PasteToolStripMenuItem.Enabled = True
milad.biroonvand
سه شنبه 23 آذر 1389, 23:10 عصر
کد دستور copy
RichTextBox1.Copy()
PasteToolStripMenuItem.Enabled = True
milad.biroonvand
سه شنبه 23 آذر 1389, 23:11 عصر
کد دستور paste
RichTextBox1.Paste()
milad.biroonvand
سه شنبه 23 آذر 1389, 23:12 عصر
کد دستور clear
RichTextBox1.Paste()
milad.biroonvand
سه شنبه 23 آذر 1389, 23:12 عصر
کد دستور select all
RichTextBox1.SelectAll()
milad.biroonvand
سه شنبه 23 آذر 1389, 23:13 عصر
کد دستور replace
If (Form1.RichTextBox1.SelectedText = "") Then
'********select*******
Dim x As Integer
Dim lenstr As String
x = Form1.RichTextBox1.Find(findforrep.Text)
lenstr = Len(findforrep.Text)
If (x = -1) Then
MsgBox("Finish searching.The search item was not found", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Dear user")
Else
Form1.RichTextBox1.Select(x, lenstr)
End If
Else
'*********replace
Form1.RichTextBox1.SelectedText = rep.Text
'********select*******
Dim x1 As Integer
Dim lenstr1 As String
x1 = Form1.RichTextBox1.Find(findforrep.Text)
lenstr1 = Len(findforrep.Text)
If (x1 = -1) Then
MsgBox("Finish replacing in this document", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Dear user")
Else
Form1.RichTextBox1.Select(x1, lenstr1)
End If
milad.biroonvand
سه شنبه 23 آذر 1389, 23:14 عصر
کد دستور replace all
Dim payanhalghe As Integer
Do While (payanhalghe <> -1)
If (Form1.RichTextBox1.SelectedText = "") Then
'********select*******
Dim x As Integer
Dim lenstr As String
x = Form1.RichTextBox1.Find(findforrep.Text)
lenstr = Len(findforrep.Text)
If (x = -1) Then
MsgBox("Finish searching.The search item was not found", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Dear user")
payanhalghe = -1
Else
Form1.RichTextBox1.Select(x, lenstr)
End If
Else
'*********replace
Form1.RichTextBox1.SelectedText = rep.Text
'********select*******
Dim x1 As Integer
Dim lenstr1 As String
x1 = Form1.RichTextBox1.Find(findforrep.Text)
lenstr1 = Len(findforrep.Text)
If (x1 = -1) Then
MsgBox("Finish replacing in this document", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Dear user")
payanhalghe = -1
Else
Form1.RichTextBox1.Select(x1, lenstr1)
End If
End If
Loop
milad.biroonvand
سه شنبه 23 آذر 1389, 23:14 عصر
کد دستور right to left
RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
ToolStripButton16.Checked = False
ToolStripButton17.Checked = False
milad.biroonvand
سه شنبه 23 آذر 1389, 23:15 عصر
کد دستور font
FontDialog1.ShowDialog()
RichTextBox1.SelectionFont = FontDialog1.Font
ali_najari
سه شنبه 23 آذر 1389, 23:50 عصر
دوست عزیز چرا اینقدر دستوراتتون رو جدا جدا گزاشتید؟
چرا همه رو توی یک یا 2 تا پست قرار ندادید؟
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.