الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه egyptforegypt في 1 أكتوبر 2008 · 13 رد · 1,237 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

كل عام وحضرتك طيبين

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

فى ديسك توب

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

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

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

#2

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

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

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

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

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

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

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

#4

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

Install Creator Pro :

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

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

Setup Factory :

:download:

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

Install Creator :

:download:

Install Maker :

:download:

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#5

كما قال الأخ الفاضل 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

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

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

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

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#7
عبد العزيز اليوسفي كتب:
كما قال الأخ الفاضل 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

بالتوفيق . .

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

بس يا اخى

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

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

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

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

#8

السلام عليكم

معلش يا اخى

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

وبالمرة

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

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

انا عندى

text1

text2

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

text1

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

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

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

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

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

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

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

sql Server 2005

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

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

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

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

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

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

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

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

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

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

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

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

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

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

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

#10

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

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

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

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

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

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

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

#11

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

#12

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

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

فى

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"

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

333wt9.gif

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

Abort × Retry × Ignre

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

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

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

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

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

#13

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

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

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

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

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

#14

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

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

موقعنا يقدم لكم خدمة البحث عن المفقودين

يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com

مواضيع مشابهة