در این پست به شما آموزش می دهم که با استفاده از کنترل SaveFileDialog، متن، عکس یا هر محتوای دیگری را ذخیره کنید.
در ابتدا به شما نحوه سیو کردن متن، با فرمت های مختلف را آموزش می دهم.
1- همانند شکل زیر از نوار ابزار موارد گفته شده را بر روی فرم بیاورید.
2- سپس با کلیک کردن بر روی دکمه مربوط به فایل های متنی، وارد محیط کد نویسی شوید و کد زیر را در آن کپی نمایید.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Dim TextSave As New SaveFileDialog TextSave.Filter = "Text Document|*.txt|Rich Text Format Document|*.rtf|All Files|*.*" TextSave.FileName = "Untitled" TextSave.InitialDirectory = "C:\Users\" & My.Computer.Name & "\Desktop" TextSave.RestoreDirectory = True TextSave.Title = "Save Text File" TextSave.CheckPathExists = True If TextSave.ShowDialog = Windows.Forms.DialogResult.OK Then Select Case TextSave.FilterIndex Case 1 My.Computer.FileSystem.WriteAllText(TextSave.FileName, RTB.Text, True, System.Text.Encoding.UTF8) Case 2 RTB.SaveFile(TextSave.FileName, RichTextBoxStreamType.RichText) Case 3 RTB.SaveFile(TextSave.FileName, RichTextBoxStreamType.PlainText Or RichTextBoxStreamType.RichText) End Select Else TextSave.Dispose() End If |
[divide style=”dashs” icon=”circle” color=”#7100e2″]
در آخر به شما نحوه سیو کردن عکس، با فرمت های مختلف را آموزش می دهم.
تقریبا مراحل شبیه بالا می باشد با این تفاوت که بجای کد بالا از کد پایین استفاده نمایید.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Dim SaveImage As New SaveFileDialog SaveImage.Filter = "JPG Files|*.jpg|GIF Files|*.gif|PNG Files|*.png|TIF Files|*.tif|All Files|*.*" SaveImage.FileName = "Untitled" SaveImage.InitialDirectory = "C:\Users\" & My.Computer.Name & "\Desktop" SaveImage.RestoreDirectory = True SaveImage.Title = "Save Image File" SaveImage.CheckPathExists = True If SaveImage.ShowDialog = Windows.Forms.DialogResult.OK Then Dim FileToSaveAs As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, SaveImage.FileName) Select Case TextSave.FilterIndex Case 1 PB.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Jpeg) Case 2 PB.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Gif) Case 3 PB.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Png) Case 4 PB.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Tiff) Case 5 PB.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Bmp) End Select Else TextSave.Dispose() End If |
[divide style=”dashs” icon=”circle” color=”#7100e2″]
بخش دانلود
شامل فایل های سورس برنامه و کد به صورت Text
[divide style=”dashs” icon=”circle” color=”#7100e2″]
[box type=”warning” align=”aligncenter” class=”” width=””]کپی برداری از این مطلب ممنوع می باشد![/box]
[divide style=”dashs” icon=”circle” color=”#7100e2″]
[box type=”info” align=”aligncenter” class=”” width=””]این مطلب را نیز مشاهده نمایید > OpenFileDialog[/box]
