Read Only

1- هناك عشرات الطرق لانجاز المهمة، وهذه احداها .. قم باضافة النصوص إلى إلى مربع نصي Text Box وقم بالفصل بين كل حكمة وأخرى بضغط زر Enter .. ثم قم بضبط الخاصية Visible لمربع النص إلى False .. ويمكنك بعدها استخدام الكود Private Sub Form_Load() Dim txt() As String…

:cool:

بالنسبة للكود الذي وضعته فهو يقوم باستخراج البريد الالكتروني من صفحات الويب ولكن الكود يقوم باستخراج أول بريد الكتروني فقط ... وهذا مثال مبسط يقوم بتأدية المهمة لأي بريد الكتروني -كرابط تشعبي- تحتويه الصفحة. Sub GetEmail(ByVal txt As String) Dim Pos As Long, F…

اما إذا كنت تريد التخلص من اطار Ms-Dos الذي يظهر لك اذا استخدمت الطريقة التي ذكرها الأخ/الدولار، فيمكنك حينها استخدام الدالة ShellExecute Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As …

لقد قمت بعمل مثال يقوم بتنفيذ المهمة، ارجو أن يفيدك، واذا كانت هناك نقطة غامضة ارجو تنبيهي ... http://www.vb4arab.com/vb/showthread.php?s...=&threadid=8767

لقد تطور مفهوم النافذة النشطة مع الانتقال إلى انظمة win32 حيث ان تعاملك مع الدالتين GetFocus و GetActiveWindow سيقتصر على تطبيقك الحالي واذا قمت باستخدامهما لغير نوافذ تطبيقك فستعيد صفر، والفكرة ليست غبية كما بدا لك ولكنها محاولة جيدة من مايكروسوفت لمنع حدوث ت…

بالطبع لا أمانع :) ...

أنا استخدم البرنامج Depedency Walker والمرفق مع حزمة Visual Studio. وهو برنامج جيد ويمكنك من التعامل مع عدد من الهيئات الثنائية وهو ايضا مريح إذا ما أردت التأكد من وجود دالة ما في احدى مكتبات الويندوز وقد افادني كثيرا في استكشاف المكتبة Iphlpapi.dll الرائعة وا…

الخاصية hInstance -التابعة لكائن النظام Application الذي يوفره فيجوال بيسك - تعيد قيمة مقبض التطبيق ... والحديث عن الخاصية السابقة يلزمني بالحديث عن فكرة المقابض بصورة عامة في أنظمة win32 والتي هي عبارة عدد صحيح طويل يعرف أحد كائنات النظام كالنوافذ و المؤشرات …

لقراءة الملف النصي .. يمكن استخدام الطريقة التسلسلية.. بعد اضافة زر أمر CommandButton و مربع نصي TextBox مع ضبط الخاصية Multiline للأخير إلى True ... اضف الكود التالي لفتح الملف Text.txt الموجود على الدليل الجذري.. Open "c:Test.txt" For Input As #1 Text1 = Inp…

بالتأكيد يشرفني ذلك يا أخي طارق .. yyasser75@hotmail.com

في الحقيقة أنت لاتحتاج لبرنامج خاص لانجاز المهمة، فيمكنك ضبط القيمتين NoDispBackgroundPage و NoDispScrSavPage إلى 1 في مسجل النظام على المسار HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem وذلك لاخفاء لساني التبويب "الخلفية" و "شاشة التو…

إذا لم يكن هذا ما تريده فأعتقد انه يجب عليك توضيح سؤالك أكثر... Private Declare Function SetParent Lib "user32" (ByVal _ hWndChild As Long, ByVal hWndNewParent As _ Long) As Long Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpC…

ربما أكون لم أستوعب سؤالك جيدا لكنني سأجيب حسبما فهمت.. اذاكنت تقصد اظهار القيمة النصية لعنصر التلميح لأداة معينة فيمكنك قراءة قيمة الخاصية ToolTipText للأداة مثلا MsgBox Command1.ToolTipText ويمكنك استخدام المجموعة controls لقراءة قيم الخاصية لجميع عناصر النم…

لم توضح ما إذا كنت تريد حساب المجلدات الفرعية إلى جانب الملفات، أيضا لم توضح هل تريد حساب عدد الملفات داخل المجلدات الفرعية وإلى أي عمق .. ستحتاج لاستخدام مبدأ الاستدعاء التراجعي إذا ما أردت حساب كافة المجلدات والملفات الفرعية حتى النهاية .. واإلى أن احصل على …

ماذكره الاخ hamohd70 صحيح .. ويفضل ترك اطلاق الحدث مرتين لان ذلك يحدث في بعض الحالات .. راجع الربط لمزيد من المعلومات http://www.vb4arab.com/vb/showthread.php?threadid=4620

قمت بعمل مثال على الرابط http://www.vb4arab.com/vb/showthread.php?s...=&threadid=9904

شكرا لك ...

يمكنك انشاء الأدوات وقت التشغيل في فيجوال بيسك بأكثر من طريقة .. وفيما يلي توضيح لهذه الطرق.. مع ملاحظة ان الامثلة التوضيحية ستكون على الأدوات من نوع windowless أ- باستخدام امكانيات فيجوال بيسك 1 - باستخدام العبارة Load مع مصفوفة أدوات (وهي الأقدم) ويجب أن تتو…

اعتقد انه من الافضل استخدام الدالة mouse_event بدلا من الدالة SendMessage حيث أن الأولى لاتتطلب تمرير مقبض النافذة والذي قد يصعب الحصول عليه في بعض الحالات...