حسين عبدالله أحمد حسن

لرسم دوائر متداخله عجيب جربه Private Sub Command1_Click() Dim x, y, xx, yy, hu As Integer For hu = 1 To 10000 Step 50 x = 6000 + 1400 * Cos(hu) y = 2500 + 500 * Sin(hu) Circle (x, y), 555, 44 Circle (y + 3000, x), 555, 44 Circle (x, y + 3000), 555, 44 Circle (…

Private Sub Command1_Click() ' Set CancelError is True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' Set flags CommonDialog1.Flags = cdlOFNHideReadOnly ' Set filters CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|Batch…

جرب هذا Private Sub Command1_Click() ' Set CancelError is True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' Set flags CommonDialog1.Flags = cdlOFNHideReadOnly ' Set filters CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.t…

هلا بيكم بالنسبة للاخفاء الكلي من الجهاز انا ابحث في الامر عبدالغني عزيزي كيف حالك اذا اردت الصورة تخفي من النضام هذه مجرد افكار ويمكنكم التعليق عليها 1-حفظ الصورة علي هيئة sys مثل صورة الويندوز اللوغو ان و اوت 2-برنامج يتحكم في البايوس ووضع الصورة في ذاكرة ال…

جرب قسم تصميم صفحات الويب باستخدام تكنولوجيا مايكروسوفت http://www.arabteam2000.com/vb/forumdispla...p?s=&forumid=20 والله ولي التوفيق ;)

Private Const FILE_ATTRIBUTE_HIDDEN = &H2 Private Const FILE_ATTRIBUTE_NORMAL = &H80 Private Const FILE_ATTRIBUTE_READONLY = &H1 Private Const FILE_ATTRIBUTE_SYSTEM = &H4 Private Const FILE_ATTRIBUTE_TEMPORARY = &H100 Code 'بعد علامة الاستفهام يمكنك وضع أي شيء…

هذا البرنامج سوف يقوم بإخفاء الصورة على أنها من التضام من هنا نزل البرنامج Private Sub Command1_Click() Dim File File = "c:a.bmp" SetFileAttributes File, &H4 SetFileAttributes File, &H20 'File_Atrributes_System 'في هذه الحالة سوف يخفا الملف على انه ملف في السي…

عزيزي يمكنك استخدام اللوب او دالة الانتظار وهنا مثال للانتظار http://www.arabteam2000.com/vb/showthread....51729#post51729 او اللوب FOR COUNT=1 TO 1000 NEXT COUNT والله ولى التوفيق ;)

دالة للانتظار بدل من استخدام التايمر طبعا مو في كل الحالات تنجح Public Function Wait(ByVal TimeToWait As Long) 'Time In seconds Dim EndTime As Long EndTime = GetTickCount + TimeToWait * 1000 '* 1000 Cause u give seconds and GetTickCount uses Milliseconds Do Un…

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

جرب هذه الوصلة اضغط هنا والله ولى التوفيق ;)

هذه الاكواد مجمعه من المنتدى وهناك الكثير منها +++++++++++++++++++++++++++ هذا الكود يقوم باختبار إذا كان البرنامج لا يشتغل من القرص المدمج فإنه يقوم بإنهائه Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _ (ByVal nDrive As Stri…

كيف حالك أخوي عبد الغني وشخبارك محمد ‘Declarations Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long Private Const FILE_ATTRIBUTE_ARCHIVE = &H20 Private Con…

موافع عربية http://www.vb4arab.com/vb/index.php http://vb-art.virtualave.net/ http://www.cadmagazine.com/learn_vba.html http://www.khayma.com/ism77/cgi/vb.htm http://www.aljoher.com/prog.htm http://www.absoft2000.com/les1.htm http://www.khayma.com/learnvb/ htt…

السلام عليكم عزيز العضو يمكنك المشاركة لتفعيل هذه الصفحة ولتعم الفائدة للكل أي كل واحد من الأعضاء يخلى شيء من الاكواد او البرامج او أي شئ يخص فيجوال بيسك . بدل من تشتيت المعلومات والله ولي التوفيق أخوكم حسين مواقع أجنبية :- http://www.a1vbcode.com/ http://www.…

الله يعطيط العافية ;)

عزيزي كيف حالك؟ هذا الرابط به برنامج التعامل مع كائنات أكسس عن طريق فيجوال بيسك كتشغيل النماذج والتقارير وطباعة التقارير والاستعلام http://www.arabteam2000.com/code/DataBase/...Database-01.htm راجع كود اليوم وسوف تحصل على أجابت سؤالك والله ولى التوفيق ;)

جرب هذا الموقع اضغط هنا والله ولي التوفيق ;)

أن شاء الله يكون عجيب ...أتمني كا من لديه وصله لكتاب عن الفيجوال نت يضيفهم مع هذا الكتاب لتعم المصلحة للكل اضغط هنا والله ولي التوفيق ;)

http://www.ddj.com/ http://www.programmersparadise.com/index.pasp والله ولي التوفيق ;)