الرجاء المساعدة العاجلة انا عاوز اعمل Shortcut للبرنامج بتاعى

هناك بعض برامج التحزيم تنشئ Shortcut تلقائياً للبرنامج عند تحزيمه .

Delphawi كتب:

هناك بعض برامج التحزيم تنشئ Shortcut تلقائياً للبرنامج عند تحزيمه .

فيييييييييييييييييييييييييييييييييييييييييييين

الله يكرمك ادينى رابط احملها

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

هناك عدة برامج أخي الكريم , منها :

Install Creator Pro :

وتجد شرحه وتحميله في الموضوع التالي :

http://www.bramjnet.com/vb3/forumdisplay.p...amp;daysprune=1

Setup Factory :

:download:

ويمكنك البحث عن شرحه في جوجل

Install Creator :

:download:

Install Maker :

:download:

كما قال الأخ الفاضل Delphawi فيمكنك عند عمل تحزيم لبرنامجك

أو فوراً إذا كنت لاتحتاج للتحزيم فيمكنك وضع الكود التالي في حدث تحميل لبرنامجك لينشأ لك الأختصار على سطح المكتب أول مرة تقوم فيها بتشغيل البرنامج :

Private Sub Form_Load()

If Val(GetSetting("Me", "First", "FirstStartup")) = 0 Then 'تشغيل أول مرة

	Dim wsh As Object, sf As Object, Shortcut As Object

		Set wsh = CreateObject("wscript.shell")
		Set sf = wsh.SpecialFolders
		Set Shortcut = wsh.CreateShortcut(sf("AllUsersDesktop") & "\" & App.EXEName & ".lnk")

	Shortcut.TargetPath = App.Path & "\" & App.EXEName
	Shortcut.IconLocation = App.Path & "\" & App.EXEName & ".exe"
	Shortcut.WorkingDirectory = App.Path
	Shortcut.Description = "برنامجي"
	''Shortcut.Arguments = App.Path & "\" & "XX.mdb"
	Shortcut.Save

 SaveSetting "Me", "First", "FirstStartup", 1

End If

End Sub

بعد كتابه الكود أجعل البرنامج تنفيذي وجربه

وتستطيع في كل مرة أن تنشأ الأختصار بحذف دالتي الرجستري إذا أردت التعامل معه دائماً من أي مكان

أو فعل السطر الأخير بجعل قيمته 0 لمعاودة بناء الأختصار من جديد :

SaveSetting "Me", "First", "FirstStartup", 0

بالتوفيق . .

إضافة لما ذكر أخي عبدالعزيز جزاه الله خيرا ... :

- بعض المستخدمين قد لا يرغبون بإنشاء اختصار لبرنامجك .

لذا اجعل هذه العملية اختيارية , والافضل تكون من خلال السيت اب كما ذكرت , لانه المعروف لدى غالب المستخدمين

عبد العزيز اليوسفي كتب:

كما قال الأخ الفاضل Delphawi فيمكنك عند عمل تحزيم لبرنامجك

أو فوراً إذا كنت لاتحتاج للتحزيم فيمكنك وضع الكود التالي في حدث تحميل لبرنامجك لينشأ لك الأختصار على سطح المكتب أول مرة تقوم فيها بتشغيل البرنامج :

Private Sub Form_Load()

If Val(GetSetting("Me", "First", "FirstStartup")) = 0 Then 'تشغيل أول مرة

	Dim wsh As Object, sf As Object, Shortcut As Object

		Set wsh = CreateObject("wscript.shell")
		Set sf = wsh.SpecialFolders
		Set Shortcut = wsh.CreateShortcut(sf("AllUsersDesktop") & "\" & App.EXEName & ".lnk")

	Shortcut.TargetPath = App.Path & "\" & App.EXEName
	Shortcut.IconLocation = App.Path & "\" & App.EXEName & ".exe"
	Shortcut.WorkingDirectory = App.Path
	Shortcut.Description = "برنامجي"
	''Shortcut.Arguments = App.Path & "\" & "XX.mdb"
	Shortcut.Save

SaveSetting "Me", "First", "FirstStartup", 1

End If

End Sub

بعد كتابه الكود أجعل البرنامج تنفيذي وجربه

وتستطيع في كل مرة أن تنشأ الأختصار بحذف دالتي الرجستري إذا أردت التعامل معه دائماً من أي مكان

أو فعل السطر الأخير بجعل قيمته 0 لمعاودة بناء الأختصار من جديد :

SaveSetting "Me", "First", "FirstStartup", 0

بالتوفيق . .

جزاكم الله خيرا

بس يا اخى

انا جربته مرة ونفع معايا

بس للاسف المرة الاخرى لم تفلح معى

ممكن استئذنك تشرحى عن المشكلة دى

السلام عليكم

معلش يا اخى

ممكن تساعدنى بكيفية الالغاء المفتاح من الريجيسترى

وبالمرة

معلش انا اسف هاطول عليكم شوية

(بالفيجوال بيسك 6)

انا عندى

text1

text2

انا عاوز المستخدم عندما يكتب حروف فى

text1

تظهر رسالة وتخبره بان لا يجوز كتابة حروف

ارقااااااااااااام فقطططط

(مثل الباسورد)

ويا ريت لو العكس

وجزاكم الله خيرا

=====================

وبالمرة لو حد يقدر يساعدنى فى

sql Server 2005

انا عندى جدول وبه 2 حقل

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

والف والف والف شكر

كده والله وبس ومعنديش اسئلة تانى

وانا والله العظيم لو ساعتونى بهذه الاسئلة سوف اعطيك رابط لتحملوا المشروع بتاعى وتشوفو الشغل الجميل

وجزاكم الله خيرا

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

اقتباس

بس للاسف المرة الاخرى لم تفلح معى

ممكن تساعدنى بكيفية الالغاء المفتاح من الريجيسترى

اقتباس

وتستطيع في كل مرة أن تنشأ الأختصار بحذف دالتي الرجستري إذا أردت التعامل معه دائماً من أي مكان

أو فعل السطر الأخير بجعل قيمته 0 لمعاودة بناء الأختصار من جديد :

يمكنك ألغاء دالتي الرجستري من الكود أو أفتح زر كوماند كمايلي : لألغاء التشغيل أول مرة من الرجستري والمعاودة من جديد :

Private Sub Command1_Click()
	SaveSetting "Me", "First", "FirstStartup", 0
End Sub

بالنسبة لباقي الأسئلة يمكنك فتح موضوع جديد لكل سؤال يختلف عن الآخر ،وليس بنفس عنوان هذا الموضوع

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

اولا يا اخى جزاك الله خير على مساعدتك لى

فانا ان شاء الله سوف اعمل مواضيع عشان استفاد منكم

وجزاكم الله كل خير

وكل عام وانتم طيبين

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

أهلا بك ياأخي الكريم ،وأنصحك بأستعمال خاصية البحث في المنتدى قبل السؤال ،لأن السؤالين الأخيرين موجود حلهما بكثرة في المنتدى

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

اان طالب مساعدة اخرى بعد ازنكن

فى

msgbox

انا دلوقتى عامل

اقتباس

Dim x As String

x = MsgBox("ddd", vbAbortRetryIgnore)

If x = vbAbort Then MsgBox "vbAbort"

If x = vbAbort Then MsgBox "Abort"

If x = vbRetry Then MsgBox "Retry"

If x = vbIgnore Then MsgBox "Ignore"

وبتظهر لى هذه الصورة

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

Abort × Retry × Ignre

انا عاوز ان يكون مكتوب باالزراير والبديل لها مثلا

حاول مرة اخرى × اخرج من البرنامج × موافقووون

فهل اجد طلبى عندكم

وجزاكم الله كل خير

لماذا سألت بنفس عنوان هذا الموضوع ؟يجب أن يتعدل عنوان الموضوع ب "أسئلتي الخاصة والمنوعة ".

يمكنك صنع فورم بالأزرار التي تريد وأستدعاءه من المكان الذي تريد

أو يمكنك كتابة تلميح في نفس صندوق الحوار :

MsgBox "أضغط Abort لألغاء العملية" & vbCrLf & "أضغط Retry لأعادة المحاولة" & vbCrLf & "أضغط Ignore للتجاهل" & vbCrLf, vbInformation, ""

أو راجع مكتبة الأخ كومفورت من هنا /index.php?showtopic=172807

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