در این پست به شما آموزش می دهم که با استفاده از کنترل OpenFileDialog، متن، عکس یا هر محتوای دیگری را بارگذاری کنید.
در ابتدا به شما نحوه بارگذاری کردن متن، با فرمت های مختلف را آموزش می دهم.
1- همانند شکل زیر از نوار ابزار موارد گفته شده را بر روی فرم بیاورید.
2- سپس با کلیک کردن بر روی دکمه مربوط به فایل های متنی، وارد محیط کد نویسی شوید و کد زیر را در آن کپی نمایید.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Dim LoadText As New OpenFileDialog LoadText.Filter = "Text Document|*.txt|Rich Text Format Document|*.rtf|All Files|*.*" LoadText.InitialDirectory = "C:\Users\" & My.Computer.Name & "\Desktop" LoadText.RestoreDirectory = True LoadText.Title = "Load Text File" LoadText.CheckPathExists = True LoadText.CheckFileExists = True If LoadText.ShowDialog = Windows.Forms.DialogResult.OK Then Select Case LoadText.FilterIndex Case 1 RTB.Text = My.Computer.FileSystem.ReadAllText(LoadText.FileName, System.Text.Encoding.UTF8) Case 2 RTB.LoadFile(LoadText.FileName, RichTextBoxStreamType.RichText) Case 3 RTB.LoadFile(LoadText.FileName, RichTextBoxStreamType.PlainText Or RichTextBoxStreamType.RichText) End Select Else LoadText.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 |
Dim LoadImage As New OpenFileDialog LoadImage.Filter = "Image Files|*.jpg;*.gif;*.png;*.tif|All Files|*.*" LoadImage.FileName = "Untitled" LoadImage.InitialDirectory = "C:\Users\" & My.Computer.Name & "\Desktop" LoadImage.RestoreDirectory = True LoadImage.Title = "Save Image File" LoadImage.CheckPathExists = True If LoadImage.ShowDialog = Windows.Forms.DialogResult.OK Then Select Case LoadImage.FilterIndex Case 1 PB.Image = Image.FromFile(LoadImage.FileName) Case 2 Try PB.Image = Image.FromFile(LoadImage.FileName) Catch ex As Exception MsgBox("Error!" & Environment.NewLine & ex.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical, "Error!") End Try End Select Else LoadImage.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=””]این مطلب را نیز مشاهده نمایید > SaveFileDialog[/box]
