Read Only

استخدم التصنيف الفرعي ... في النموذج: Private Sub Command1_Click() TimerId = SetTimer(hwnd, 0, 1, AddressOf TimerProc) str_Title = "تكبير" MsgBox "مربع اخراج بأبعاد الشاشة", , str_Title End Sub في وحدة نمطية: Declare Function SetActiveWindow Lib "user32" _ (By…

الكلمة المفتاحية AddressOf ظهرت منذ الاصدار الخامس للفيجوال بيسك وهي تستخدم عند الحاجة لاستدعاء اجراء من قبل النظام حيث تعيد مؤشر الدالة .. وهي مفيدة لتطبيق مبدأ الردود CallBack في فيجوال بيسك.. راجع الرابط للمزيد من المعلومات ..

ايضا يمكن ذلك دون اللجوء إلى API Date = #1/4/2002# Time = #5:05:05 PM#

ما ذكره الأخ/programmer2001 صحيح، ايضا يجب اغلاق زري ctrl وInsert والتي تعد الطريقة الصحيحة للنسخ.. بنفس الطريقة التي ذكرها الاخ في رده If KeyCode = 45 And Shift = 2 Then KeyCode = 0 Clipboard.Clear End If والطريقة السابقة تعتمد على فكرتها على تتبع الاحداث بعد…

البرنامج رائع ويحتاج للتطوير على مراحل.. حيث ان هناك عدة معايير للمقارنه بين الصورتين .. فمثلا قمت في البرنامج بالمقارنة بين الصورتين بافتراض تطابق الالوان، وهذا يقتضي انه في حال زيادة نسبة السطوع او التباين او اللمعان ولو بنسبة صغيره فإن ذلك يعني ان نسبة التش…

يتم ارسال المحرف chr(13) عند الانتهاء من القراءة يمكنك اختبار هذه القيمة لتنفيذ الامر المطلوب بعدها...

من المفترض ان تكون قد قمت بتعريف "معرف السياق" في بداية المستند بادراج حاشية سفليه وادراج المعرف بعد الرمز # .. بالطبع هذا بالنسبة للتعليمات ذات الامتداد hlp والمعتمده على ملفات rtf.

طريقة استخدام النمط &H400000 -والذي امتنعت مايكروسوفت عن توثيقه- هي فكرة ثورية لتعريب النوافذ والادوات. ويجب عليك اجراء التجارب بنفسك لايجاد الحلول الملائمة لكل مشكلة وقد بدات في وقت سابق بحل مشكلات لهذا النمط عن طريق توقع حلول لكل مشكلة ومحاولة تجربتها ولكنني…

الاخ/ابو حمود لقد كان الاخ السائل يريد تشغيل الملف D:XXXHOME.MDB باستخدام الدالة Shell وهذا يستوجب تمرير المسار الآكسس قبل مسار الملف ولكن باستخدام الدالة ShellExecute سيتكفل النظام بالعثور على البرنامج المشغل بقراءة القيمة من الريجيستري ثم يقوم بتمرير ملف الق…

يمكنك تنفيذ المهمة بالاعتماد على امكانيات المكتبة winmm.dll .. او بالاعتماد على الاداة Microsoft multimedia Control وهذا مثال على الاخيره لانها الاسهل.. 'للتسجيل MMControl1.Command = "Close" MMControl1.DeviceType = "WaveAudio" MMControl1.filename = "c:Test.wav…

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

الاخ/ ابو حمود ... فكرة ممتازة ولكن الاتوافقني ان استخدام الدالة FindExecutable يجعل الامر مباشرا.. ايضا اعتقد انه يمكن تنفيذ المهمة دون الحاجة للعثور على مسار الآكسس وذلك بالاعتماد على الدالة ShellExecute Private Declare Function ShellExecute Lib "shell32.dll…

بالنسبة لتحويل المشروع إلى صفحات الويب ..فيمكن ذلك باستخدم المعالج VB 6 ActiveX Document Migration Wizard بعد اضافته إلى قائمة Add-ins وبعد ان نحصل على الملف الناتج نقوم بتحويله إلى مستند ActiveX له الامتداد vbd، وبالتالي نكون قادرين على تشغيل البرنامج من نافذ…

ويمكن استخدام رأس وتذييل الصفحة.. Sub GetPath() ' Shows the Path of the active document ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Selection.Font.Name = "Tahoma" Selection.Font.Size = 15 Selection.TypeText Text:=ActiveDocument.Path ActiveW…

يمكنك ذلك باستخدام الدالتين SaveSetting وGetSetting ضع في النموذج الاول بعد السطر Image1.Picture = LoadPicture(PicPath) 'ضع الكود التالي SaveSetting App.EXEName, "Main", "BackGd", PicPath وفي النموذج الثالث -في حدث التحميل Private Sub Form_Load() On Error Resu…

لاداعي لوضع Label أو Command تستطيع اختبار ذلك باستخدام عبارة شرطية بداخل حدث Timer التابع لأداة المؤقت .. بافتراض أن برنامجك يعمل في الخلفية(مخفي).. If Time = #12:00:00 AM# Then Me.Show اما بالنسبة لـSetTime method فلا اعتقد أن لهذه الطريقة وجود .. لكن هناك د…

لا ادري مالمشكلة التي واجهتك .. لكن على العموم ضع بريدك وسارسل لك مثالا مشروحا..

عفوا على التأخير.. الطريقة التي ذكرتها تنسق الدقائق فقط ولاتظهر الدقائق والثواني حيث تأخذ 99.99 كمعدل أعظمي وليس 59.59 ويمكن استعمال دوال تعامل مع التاريخ لتنفيذ المهمة .. وهذا مثال فقط للتوضيح Dim Time1 As Date, Time2 As Date Time2 = DateAdd("s", (M1.Duration…

-

Randomize MsgBox File1.List(Int(Rnd * File1.ListCount) )