ارجو المساعدة

انا ايضا اريد ان اعرف عندما اضغط على الزر بوتون فى المشروع كيف اجعله يظهر للمستخدم ملف تكست او صورة

و ارجو الرد بسرعة

بالنسبة لتشغيل ملف الصوت mp3 باستخدام مكتبة Windows Multimedia API winmm.dll

Public Class MP3Player 
	Private _command As String 
	Private isOpen As Boolean 

	<System.Runtime.InteropServices.DllImport("winmm.dll")> _ 
	Private Shared Function mciSendString(strCommand As String, strReturn As StringBuilder, iReturnLength As Integer, hwndCallback As IntPtr) As Long 
	End Function 

	Public Sub Close() 
		_command = "close MediaFile" 
		mciSendString(_command, Nothing, 0, IntPtr.Zero) 
		isOpen = False 
	End Sub 

	Public Sub Open(sFileName As String) 
		_command = "open """ + sFileName + """ type mpegvideo alias MediaFile" 
		mciSendString(_command, Nothing, 0, IntPtr.Zero) 
		isOpen = True 
	End Sub 

	Public Sub Play([loop] As Boolean) 
		If isOpen Then 
			_command = "play MediaFile" 
			If [loop] Then 
				_command += " REPEAT" 
			End If 
			mciSendString(_command, Nothing, 0, IntPtr.Zero) 
		End If 
	End Sub 
End Class

استخدام الكلاس السابق

Dim mp3 As New MP3Player() 
mp3.Open("c://audio.mp3") 
mp3.Play(True)

اقتباس

انا ايضا اريد ان اعرف عندما اضغط على الزر بوتون فى المشروع كيف اجعله يظهر للمستخدم ملف تكست او صورة

بالنسبة لقرأة ملف text بفرض عرضه في textbox باستخدام كلاس StreamReader

Dim re As System.IO.StreamReader = System.IO.File.OpenText("c://file.txt") 
textbox1.Text = re.ReadToEnd() 
re.close

بالنسبة لعرض صورة بفرض عرضها في picturebox control و استخدام System.Drawing.Bitmap في حالة الحاجة الي تعديل الصورة

Dim image As New System.Drawing.Bitmap("c://image.jpg") 
'image processing 
image.SetResolution(25450, 5464) 
'-- end image updating 
pictureBox1.Image = image 

'or set pictureBox1.ImageLocation to file path directly 
pictureBox1.ImageLocation = "c://image.jpg"