أي سؤال بالفيجوال بيسك أنا جاهز

أخي العزيز bastr3

الظاهر إني ثقلت عليك بطلباتي الصعبة و لكن بودي أن أسألك سؤال يمكن يكون لديك معرفة مسبقة فيه . هل بإمكاني بعد أن أعمل Install للبرنامج أن أضعه في Add Remove Program بحيث إذا أردت أن أعمل له UnInstall مرة ثانية أذهب إلى Add Remove Programm و أعمل له Uninstall ؟

لا أريد أن أطيل عليك طلبي و لكن إذا كان لديك معرفة بهذا الأمر فأرجو أن تشرح لي طريقة وضع البرنامج في Add Remove Program و أكون لك من الشاكرين .

أخوك المخلص :

DavidSmith

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

اخي الكريم bastr3

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

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

اخوك صبري الخوجة

أخ ديفيد وضع البرنامج في الآد ريموف بروجرام موجود في البرنامج إللي حطيته حق التنصيب والسر في ذلك الريجيستري

:)

هذا مثال بسيط عن شبك الفلاش مع الفيجوال بيسك

أول شي إعمل بروجكت جديد وروح على قائمة بروجيكت بعدين إختار كمبوننت وبراوس وإختار الكمبوننت flash.OCX الموجود مع الملف المرفق ................ الحين نزل على الفورم من هاد الفلاش رح يكون إسمه ShockwaveFlash1

بعد ماعملت كل هاد يعطيك العافيه لسا ما إنتهينا روح على الفلاش إذا كان عندك نسخه فلاش إم إكس لازم بعد ماتنتهي أو الحين قبل ماتبلش بتروح على ببلش وبتختار بلير 5 مشان تقدر تشبكه مع الفيجوال بيسك ... عملتها ؟ الحين إعمل ثلاث كبسات وحط تكست داينمك يكون وسميه على الفار Var بتخلي إسمه bb والتكست التاني إنبوت يعني ممكن تكتب فيه بالرن تايم وقت التنفيذ وبتسميه bb1 وبتحط جنب هاد التكست التاني كبسه

الثلاث كبسات بدنا منهن بس نكبس على الأولى من خلال الفيجوال بيسك يطلع مسج بوكس فيه a1 والتانيه a2 والتالته a3

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

بنحط هاد الكود على الكبسه الأولى في الفلاش

on (release) {

fscommand("bas", "a1");

}

لاحظوا إنو الفلاش بالفنكشن Fscommand بحتوي على إثنين برميتر الأول في الفجوال بيسك هوه كوماند والتاني أرغز بتحط أي قيم بس لازم تحفضهن مشان تستدعيهن بالفجوال بيسك

الكبسة التانيه بنكتب فيها نفس الشي هيه والتالته بس منغير الa1 ل a2 >>>a3

وفي الكبسه الأخيرة بنكتب هاد الكود

on (release) {

fscommand("bas1", "aa1");

}

نفس الكود تقريبا بس غيرت الكوماند والأرغز مشان توضيح أكثر

بعدين بنعمل ببلش SWF ومنحط الملف مع البروجيكت بنفس الدايريكتور يعني بنفس الفولدر

وبالفجوال بيسك بنحط ليبل وتكست وزرين والفلاش إللي حطيناها من الكمبوننت أول شي

وبنكتب هاد الكود

Private Sub Command1_Click()

ShockwaveFlash1.Movie = App.Path & "\bas.swf"'لإستدعاء ملف الفلاش SWF من نفس الباث للبروجكت

End Sub

Private Sub Command2_Click()

ShockwaveFlash1.SetVariable "bb", Text1.Text'لإسناد قيمه من التكست الموجود في الفجوال بيسك إلى التكست الموجود في الفلاش

End Sub

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)'هنا على الكمبوننت الخاص بالفلاش وفي الحدث FScommand كمانرى نكتب الكود التالي

Select Case command

Case "bas"'إذا كان الكوماند = bas إذا

Select Case args

Case "a1"'إذا كان الأرجز = a1 إذا

MsgBox "a1"'أخرج مسج بوكس تحتوي على a1

Case "a2"

MsgBox "a2"

Case "a3"

MsgBox "a3"

End Select

Case "bas1"'Y`إذا كان الكوماند =bas1 إذا

If args = "aa1" Then'إذا كان الأرجز = aa1 إذا

Label1.Caption = ShockwaveFlash1.GetVariable("bb1")'أسند القيمه الموجوده في التكست الموجود داخل الفلاش إلى الليبل الموجود في الفجوال بيسك

End If

End Select

End Sub

هذا شيء بسيط عن دمج الفلاش مع الفجوال بيسك ولكن الحقيقه أن برنامجك يصبح رائع وبتصميم ممتاز عن طريق الفلاش وقد قمت بعمل برنامج كامل بدمج الفلاش مع الفجوال بيسك وسترونه على الرابط التالي

http://www.bastr3.com/bastr3_.exe

أتمنى أن أكون قد أوضحت الفكرة وشكرا

يوجد ملف مرفق بالمثال السابق :)

flash.zip

شكرا أخي العزيز bastr3

و إن شاء الله راح أقرأ البرنامج و أفهمه و أرد عليك و أسألك في أي شي ما فهمته

لأني للحين ما قريته و إن شاء الله أقدر أفهمه

مع خالص إمتناني

DavidSmith

للأخت إللي طلبت صورة المفتاح هاد شرح مع مثال

_________________________________________

form 1

'bastr3.com

Private Sub Command1_Click()

Dim No As Integer 'عدد مرات الدخول

If Text1.Text = "bastr3" And Text2.Text = "bassam" Then 'فحص الإسم ورقم الدخول

Name_User = Text1.Text 'إسناد الإسم إلى المتغيير الذي عرفناه في المديول

No = Val(GetSetting("app", "app", "app", 0)) 'أخذ آخر قيمه تم تخزينها في السيتنغ وإذا لم يكن هناك قيمه يتم وضع القيمه الإفتراضيه 0

SaveSetting "app", "app", "app", No + 1 'تخزين القيمه مع إضافه رقم وذلك لحساب عدد مرات الدخول

Form2.Show 'إضهار الفورم الثاني

Me.Hide 'إخفاء هذا الفورم

Else

MsgBox " Invaled User Name Or Password", , "Error " 'إعطاء مسج تحذيريه لآن الإسم أو الرقم غير صحيح

End If

End Sub

________________________

form 2

Private Sub Form_Load()

Label1.Caption = Name_User 'إسناد القيمه التي عرفناها على المديول زمن ثم أسندنا لها قيمه الإسم إلى الليبل

For i = 1 To Val(GetSetting("app", "app", "app", 0)) 'أخذ القيمه المخزنه في السيتنغ وتحويلها إلى عدد عن طريق كتابة فال كما نرى قبلها وعلى هذا العدد نقوم بالتالي

Load Image1(i) 'تحميل عدد الصور

With Image1(i) 'لكي لانكتب إسم الأوبجيكت في كل مرة نكتب هذه الجمله

.Left = Image1(i - 1).Left + .Width 'لكي نرتب الصور بجانب بعضها

.Visible = True 'لإظهار الصور التي تم تحميلها لأنها تكون مخفيه بطبيعتها

End With

Next i

End Sub

المثال : مرفق لما سبق

key.zip

بس لو سمحت أخي العزيز bastr3

عندي بس سؤال أود أن أطرحه عليك

إذا كان البرنامج يضع نفسه في Add Remove Program , ليش عجل مسوي لك برنامج ثاني يسوي UnInstall ؟ كان المفروض في أثناء عمل Install يضع نفسه في Add Remove Program ؟

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

مع تحيات DavidSmith

الأخ : bastr3 مع التحية ،،،

كيف يمكنني إنشاء تقرير Crystal Report وطباعته على حسب الحقول الموجودة في

الـSQL اي ان حقول هذا التقرير من الممكن ان تختلف عن التصميم ففي مرة حقول

التقرير هي الاسم والجنسية فقط ، ومرة اخرى الرقم والاسم والعنوان ، و ....

والاحتمالات كثيرة علماً بأنني اظهر نتائج الاستفسار على flexgrid وقد نصحني بعض

الاخوة بأن اطبع الـ flexgrid وهي فكرة جيدة ولكن جميع الكود الذي انزلته لطباعة الـ

flexgrid لم ينجح معي .

فالرجاء ان تدلني على طريقة باستخدام الـcrystal report او طباعة الـ flexgrid

مع الأخذ في الاعتبار ان الحقول متغيرة .

إلى الأخت العزيزة آيه الرحمن

أنا غير متمكن من الداتا بيز في الفجوال بيسك لآني أعتمد على الأوراكيل ولكن هناك أفكار أخى غير طباعه الفلكس جرد وهي أن تقومي بعد وضع البيانات في الفلكس جرد بأخذها على ملف وورد وطباعتها أو ملف تكست عادي وطباعتها أو ملف أكسل وذلك ممكن من خلال الفجوال بيسك بكل سهوله

على العموم سوف أقوم بجهد لمعرفة ماهو طلبك بالضبط وإن شاء الله أساعدك

وشكرا

للأخ الكريم bastr3....تحية طيبة...

لو سمحت ممكن تقول لي حل سؤالي اللي في مشاركة باسمي بعنوان...

سؤال عن Primary key

أخي الكريم...لو لا ضيق الوقت لعدت كتابة السؤال هنا مرة ثانية ...

من فضلك هل لك أن ترى سؤالي في هذا المنتدى وهو بعنوان سؤال عن Primary key

وأكون شاكرة ........شكراااااااااا

أتمنى أن أحصل على الرد قريبا..

أخي الكريم BASTR شكراً لك على مساعدتك للأعضاء وياريت لمزيد من التنسيق استخدام الواصفتين CODE قبل بداية الكود وبعد نهاية الكود /code وكلاهما بين قوسين [] . لتصبح بالشكل التالي :

Text1.Text = "لا إله إلا الله محمد رسول الله"

أخى العزيز

بالنسبة لبرنامج التنصيب (setup ( win98 هل من الممكن أن أستخدمه لعمل setup لأى مشروع تم عمله بالفيجوال بيسك

مثال

قمت بتصميم برنامج بإستخدام الفيجوال بيسك وتم تحويله الى ملف تنفيذى

هل من الممكن استخدم برنامج setup الخاص بك فى عمل setup لهذا الملف مع ارفاق جميع ملفاته المساعدة ocx - dll - mdb مثلاً لكى اتمكن من تشغيله على جهاز آخر بحيث يطلب منى اسم الملف التنفيذى والملفات المساعدة ومساراتها عند عملية التنصيب

أستخدمة قى التنصيب كما تم تنصيب bastr3_.exe الخاص بك

أتمنى أن يكون سؤالى واضح

لك عظيم شكرى وتقديرى

الكود عندك فيك تعمل كلشي

بس البرنامج إللي أنا مستخدمه في باستر3 هوه الwinrar بس إستخدمته لعمليه النسخ بس أما الريجيستر وإنشاء الفولدرات وكل هاي الأمور كانت من ضمن الكود حتى عمل الشورت كت

وشكرا

أخى الكريم

أشكركم على سرعة الرد

السؤال الأول :هل من الممكن أن تقوم بتصميم برنامج وتعرضه ( بالكود ) لعمل السيت أب Setup مثل Setup Factory لإستخدامة مباشرة لعمل setup لأى برنامج دون تدخل من المستخدم ويقوم البرنامج بتجميع الملفات المساعدة بنفسه مثل Package & Deployment Wizard الملحق ببرنامج فيجوال بيسك ؟

السؤال الثانى : عملت برنامج بالفيجوال بيسك واستخدمت Crystal report 8 لعمل التقارير لكن التقرير يكون لجميع محتويات الجدول .. أريد أن يكون التقرير لبعض حقول الجدول دون الأخرى .... مثلاً أريد أن يكون التقرير عبارة عن جميع المنتجات التى تحمل رقم أمر توريد معين ويظهر فى التقرير هذه المنتجات فقط ... أو يظهر التقرير العملاء الذى يبدأ لإسمهم بــ محمد مثلاً . وهل من الممكن أيضاً لإظهار الناتج على Flexgrid موجودة على الفورم ويكون للمستخدم الحق فى الإطلاع أو طباعة التقرير ؟

آسف للإطالة هذا نابع من طمعى فى كرم سيادتكم

متمنياً لسيادتكم التوفيق والسداد

أخى الكريم

أشكركم على سرعة الرد

السؤال الأول :هل من الممكن أن تقوم بتصميم برنامج وتعرضه ( بالكود ) لعمل السيت أب Setup مثل Setup Factory لإستخدامة مباشرة لعمل setup لأى برنامج دون تدخل من المستخدم ويقوم البرنامج بتجميع الملفات المساعدة بنفسه مثل Package & Deployment Wizard الملحق ببرنامج فيجوال بيسك ؟

السؤال الثانى : عملت برنامج بالفيجوال بيسك واستخدمت Crystal report 8 لعمل التقارير لكن التقرير يكون لجميع محتويات الجدول .. أريد أن يكون التقرير لبعض حقول الجدول دون الأخرى .... مثلاً أريد أن يكون التقرير عبارة عن جميع المنتجات التى تحمل رقم أمر توريد معين ويظهر فى التقرير هذه المنتجات فقط ... أو يظهر التقرير العملاء الذى يبدأ لإسمهم بــ محمد مثلاً . وهل من الممكن أيضاً لإظهار الناتج على Flexgrid موجودة على الفورم ويكون للمستخدم الحق فى الإطلاع أو طباعة التقرير ؟

آسف للإطالة هذا نابع من طمعى فى كرم سيادتكم

متمنياً لسيادتكم التوفيق والسداد

أخى الكريم

أشكركم على سرعة الرد

السؤال الأول :هل من الممكن أن تقوم بتصميم برنامج وتعرضه ( بالكود ) لعمل السيت أب Setup مثل Setup Factory لإستخدامة مباشرة لعمل setup لأى برنامج دون تدخل من المستخدم ويقوم البرنامج بتجميع الملفات المساعدة بنفسه مثل Package & Deployment Wizard الملحق ببرنامج فيجوال بيسك ؟

السؤال الثانى : عملت برنامج بالفيجوال بيسك واستخدمت Crystal report 8 لعمل التقارير لكن التقرير يكون لجميع محتويات الجدول .. أريد أن يكون التقرير لبعض حقول الجدول دون الأخرى .... مثلاً أريد أن يكون التقرير عبارة عن جميع المنتجات التى تحمل رقم أمر توريد معين ويظهر فى التقرير هذه المنتجات فقط ... أو يظهر التقرير العملاء الذى يبدأ لإسمهم بــ محمد مثلاً . وهل من الممكن أيضاً لإظهار الناتج على Flexgrid موجودة على الفورم ويكون للمستخدم الحق فى الإطلاع أو طباعة التقرير ؟

آسف للإطالة هذا نابع من طمعى فى كرم سيادتكم

متمنياً لسيادتكم التوفيق والسداد

اقتباس

إلى الأخت العزيزة آيه الرحمن

أنا غير متمكن من الداتا بيز في الفجوال بيسك لآني أعتمد على الأوراكيل ولكن هناك أفكار أخى غير طباعه الفلكس جرد وهي أن تقومي بعد وضع البيانات في الفلكس جرد بأخذها على ملف وورد وطباعتها أو ملف تكست عادي وطباعتها أو ملف أكسل وذلك ممكن من خلال الفجوال بيسك بكل سهوله

على العموم سوف أقوم بجهد لمعرفة ماهو طلبك بالضبط وإن شاء الله أساعدك

وشكرا

اشكرك اخي على الرد و سرعة الاستجابة

ولكن هل تمرير البيانات إلى برنامج وورد يتم بدون ان يلاحظ المستخدم ذلك ....اي بدون ان يفتح أمامه برنامج وورد ؟؟؟

فإذا كان كذلك الرجاء ان تسعفني بالطريقة .... لانه من المحتمل ان تناسبني ...

اشكرك من جديد

ارجوا ان يقوم اي احد بمساعدتي في الرسم باستخدام الفيجوا بيسيك باستخدام mathwork_strip

او باستخدام اي اداة بحيث استطيع رسم f(x)=x^2+2x مثلا

وشكرا

إن شاء الله قريبا شرح مفصل عن الsetup كامل بس بمشاعدة الشباب بدي ناس تكون بدها هالشي مش أعمله وماأحد يستفيد

وشكرا

للأخت آيه الرحمن

الملف يمكن طباعته من غير مايظهر لليوزر

والفكرة كالتالي

General
Dim word1 as object

Form load
Set word1=createobject (“word. Application”)

Open new document
Word1. Documents.add


Save
Word1. Active document. Saves (“c:\test.doc”)

Close document
Word1. Active document. Close

 Close word
Word1.quit

Open old document
 Word1.documents. Open (“c:\test.doc”)

Write on document
Word1. Selection.TypeText Text: ="text1.text"

 Print
Word1.print

PrintPreview
Word1. PrintPreview

وشكرا

إلى الأخ عيساوى

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

dim rs as record set 

command _ click 
dim SQL as string 
SQL="selsect * from my "
set rs=bd.openrecordset(SQ:)

بس وإنتا أدرى بالباقي

وشكرا

مرحباااااا

انا عضوة جديدة هنا

ممم سنة اولى حاسب و نظم معلومات :-)

و مو فاهمةةة حاجة بالــ looping

الــ Do While

و الــ Next For

بالفعل حبيت الفيجوال بيسك كله

و عجزت افهم هالنقطة جابتلي اكتئاب :(

ممكن تساعدوني ؟؟؟

بسم الله و الحمد لله

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

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

السلام عليكم

كيف الحال

انا

عندي سوال

لو تكرمت اجبني عليه

انا اريد ان اضيف commendعلى صوره بحيت يبدو انه من ضمن الصوره

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

فكيف الطريقه وجزاك الله خير