iran_sky
یک شنبه 29 فروردین 1389, 17:42 عصر
دوستان من با این کد open یا save میکنم اما فیلترم اگر بیشتر از یکی باشه خطا میده چیکار کنم
Dim sfd As New SaveFileDialog
'sfd.Filter = "Doc File(*.doc)|*.doc|Text File(*.txt)|*.txt|All Files(*.*)|*.*"
sfd.Filter = "Doc File(*.doc)|*.doc"
sfd.ShowDialog()
Dim s As String = sfd.FileName
RTB.SaveFile(s)
MessageBox.Show("اطلاعات با موفقیت ذخیره شد")
Dim sfd As New SaveFileDialog
'sfd.Filter = "Doc File(*.doc)|*.doc|Text File(*.txt)|*.txt|All Files(*.*)|*.*"
sfd.Filter = "Doc File(*.doc)|*.doc"
sfd.ShowDialog()
Dim s As String = sfd.FileName
RTB.SaveFile(s + ".doc")
MessageBox.Show("اطلاعات با موفقیت ذخیره شد")
Dim sfd As New SaveFileDialog
'sfd.Filter = "Doc File(*.doc)|*.doc|Text File(*.txt)|*.txt|All Files(*.*)|*.*"
sfd.Filter = "Doc File(*.doc)|*.doc"
sfd.ShowDialog()
Dim s As String = sfd.FileName
RTB.SaveFile(s)
MessageBox.Show("اطلاعات با موفقیت ذخیره شد")
Dim sfd As New SaveFileDialog
'sfd.Filter = "Doc File(*.doc)|*.doc|Text File(*.txt)|*.txt|All Files(*.*)|*.*"
sfd.Filter = "Doc File(*.doc)|*.doc"
sfd.ShowDialog()
Dim s As String = sfd.FileName
RTB.SaveFile(s + ".doc")
MessageBox.Show("اطلاعات با موفقیت ذخیره شد")