كيف افتح الملف؟؟؟؟

يمكنك تحميل أي ملف إلى RichTextBox كما يلي

If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
			Me.RichTextBox1.LoadFile(Me.OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
		End If

شكرا لك اخي عل الرد

ولكن ليس هذا هو المطلوب

أنا أقصد أني أريد فتح الملف من الأيقونة التي تكون على سطح المكتب وليس من البرنامج

بحيث أنه عند النقر عليها يفتح البرنامج وتفتح فيه فورم جديدة من النوع Child ويوضع بداخلها النص الموجود في الملف

صديقى العزيز

قم بعمل الخطوات الاتية

1- الدخول على File Types Edior

2- Add File Type

3- فى قائمة خصائص الخاصة بالنوع الجديد

Extensions ادخل الاكستنشن المطلوب للملفات التى يفتحها جهازك

Command اختار البرنامج الخاص بك

4- ادخل كود فى Application_Startup أو فى Form_load للتعامل مع الملف الذى سينشىء البرنامج

5- ثبت البرنامج واعمل ملف جديد وغير الاكستنشن الخاصة بة الى النوع الذى يفتحة برنامجك

مع العلم انة فى حالة Make Single Instance Application يرجى ادخل كود المعاملة الى StartupNextInstance

فى المرفقات برنامج يتعامل مع ملفات من نوع pink ثبتة وجرب انشاء ملف Pink

فى الوقت نفسة جرب الكود المعامل لمفات اطلاق البرنامج

فى آمان الله

WindowsApplication13.rar

شكراً لك أخي العزيز على المساعدة

ولكن عندما فتحت البرنامج المرفق ظهرت لي رسالة خطأ عن setup1 وهو لا يعمل

ووجدت في البرنامج عبارة "أدخل كود المعاملة هنا إذا كان البرنامج بتشغيل واحد" في الحقيقة لم أفهم ما هو كود المعاملة

أتمنى منك مساعدتي في أسرع وقت ممكن

وشكراً لك

انت مفتحتش الفورم واحد انت فتحت ال Applicationevents بس مع انى حاطة علشان حالة Make Single Instance بس

مش عارف اقولك إية بس بصراحة واضح ان المشكلة مش ليها علاقة خالص بالمرفقات المشكلة فى جهازك

شكرا لك أخي bedooline

اكتشفت ان الخلل يكمن في نسخة الفيجول بيسك التي أستخدمها فقد كنت أستخدم النسخة Express

وقد تمكنت الآن من استخدام برنامجك واستفدت منه

ولكن لاحظت أنه في كل مرة أفتح فيها ملفاً فإنه يتم فتح هذا الملف في برنامج جديد

أحتاج طريقه لفتح جميع الملفات في برنامج واحد

ولك جزيل الشكر

أخى الجميل

فى الخطوة رقم خمسة وستة حط كود المعاملة واوعى تحطة فى الفوم لود بقى

هو فى العادة بيبقى نفس الكود متكرر فى الخطوتين

بص لو مش نفعت قولى وانا اجرب معاك تانى

سلام ياصاحبى

السلام عليكم ورحمة الله وبركاته

بعد ماجربت الطريقة اللي ذكرتها لي واجهتني مشكلة في ظهور الملف، وهي كالتالي:

ذكرت انه لازم احط الكود في الاحداث MyApplication_StartupNextInstance,

MyApplication_Startup

لكن عندما وضع كود فتح الملف في MyApplication_Startup ,وبعد عمل سيت اب

للمشروع ,فإنه عند فتح الملفات كانت تظهر رسالة خطأ, فقُمت بحذف الكود الموجود

في MyApplication_Startup عندها اختفت الرسالة ,

لكن المشكلة انه عند فتح اكثر من ملف ,عندها يتم فتح اكثر من FrmChild لكن النص

الموجود على كل الفورمات هو نفس النص لأول ملف فتحته.

هذا هو الكود:

		Private Sub MyApplication_StartupNextInstance(ByVal sender As 
Object, ByVal e As 
Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) 
Handles Me.StartupNextInstance
			'
			For Each s As String In My.Application.CommandLineArgs
				If IO.File.Exists(s) Then
					Dim Form As New FrmChild
					FormCount += 1
					Form.MdiParent = FrmParent
					Form.Show()
					Form.Text = "doc" & FormCount
					Change.NoChange(Form.Text)
					Dim TheBox As RichTextBox = 
CType(FrmParent.ActiveMdiChild.ActiveControl, RichTextBox)
					TheBox.Text = vbCrLf & vbCrLf & vbCrLf
					TheBox.LoadFile(s, RichTextBoxStreamType.PlainText)
								End If
			Next
		End Sub

لا ادري ما سبب المشكلة ؟؟

ممكن تبعتلى مشروعك و احل المشكله بسرعه

MostafaAlpha كتب:

ممكن تبعتلى مشروعك و احل المشكله بسرعه

انت شكلك كدة عايز تفتح شركة سوفت وير بالمشاريع ديه

;)