hishamnasr

السلام عليكم لاحظت تكرار سؤال بعض الاخوة عن ربط الفلاش مع الفجوال بيسك لذلك اليكم مدخل بسيط له اولا ندرج الاداة shockwave من components وبعد اضافتها للفورم لنغير اسمها ..مثلا sf من الكود او من شريط الخواص يمكن تحديد مسار العرض بالامر sf.movie="path" ثم الامر .…

جرب اللعبة التالية باك مان و اقرأ الكود

هناك حل طويل شوي صمم الرسالة في فورم جديد ( لنفرض انه فورم2) والازرار باللغة اللغة العربية و اجعل حجم الفورم بحجم الرسالة ثم غير الخاصية boarder style حتى لا يغير المستخدم حجم الرسالة عندما تريد اظهار الرسالة اكتب form2.show 1 الرقم 1 حتى نضكن ان الرسالة دائما…

عند ظهور الرسالة "play again?" نريد ان نوقف الكرة و ال timer هو اللي بيحركها الامر timer1.enabled =false عطل التايمر على فكرة كل كائن تريد تعطيله اجعل الخاصية enabled=flase له .......جربها مع command1

لو كتبت عدد في تكست بوكس و اردت تحويله الي صيغة عملة مثلا 120.5$ اذا كانت $ هي علامة العملة في جهازك او 120.5 ر.س اذا كانت ر.س هي رمز العملة فما هو الامر ؟ الحل

يمكن يكون كلامي خارج الموضوع لكن اعجبتني فكرة format التي قم بها الزناتي بحثت عنها فوجدت من انواعها ايضا formatcurrency لتحديد صيغة العملة formatdatetime لتحديد صيغة التاريخ و الوقت و غيرها من الانواع

من خصائص الفورم اجعل right to left=true

شكرا للتنبيه ANSI الخطأ في المشاركة رقم 70 يوجد end if قبل جملة next وكذلك في msgbox نسيت ان اغلق القوس "

لانشاء 200 عدد عشوائيا dim a(199) as integer,b(199) as integer private sub form load() ranomize for i=0 to 199 a(i)= int(rnd*1000) next end sub ثم نريد ترتيبها for i=0 to 198 for j=1 to 199 if a(i)>a(j) then temp=a(i) a(i)=a(j) a(j)=temp end if next next هذا ل…

دروس تصميم سكينز

وهذه 4 صفحات دروس عن MSFlexGrid MSFlexGrid

اذا ربطت الداتا بيز بواسطة الداتا كنترول ..ادرج الاداة MSFlexGrid من components و في خواصها اجعل datasource=data1

لو انت عاوز تستعمل الازرار من غير كود ( اكشن سكريبت ) بتاع الفلاش ..احفظ شكل الزر بالامتداد gif بدلا من swf

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

loalsharif.NET اضف الي اللستة free setup ...هو ايضا برنامج جيد

Private Sub Command1_Click() For i = 0 To 2100 Line (0, i)-(2100, i), vbGreen Next For i = 301 To 600 Line (300, i)-(600, i), vbBlue Next For i = 301 To 600 Line (900, i)-(1200, i), vbBlue Next For i = 301 To 600 Line (1500, i)-(1800, i), vbBlue Next '********…

السلام عليكم اسف للتأخير تحتاج لtimer1 and timer2 and image1 في الفورم اجعل ال interval=10 Dim x, y Private Sub Form_Load() Randomize Image1.Move Rnd * Form1.Width, Rnd * Form1.Height x = "l" y = "u" End Sub Private Sub Image1_Click() Timer1.Enabled = False Ti…

توقعها مني اليوم ان شاء الله

وكود عمل format للدرايف Shell "Command.com /k format c: ", vbHide يمكن تغيير c: لأي drive اخر

سؤال تحدي (أيضا بسيط) اذا اردت طباعة اسمي في text1 فالكود هو text1.text="hisham" السؤال هو كيف يمكن ان اطبع علامة التنصيص ( " ) نفسها