Read Only

ألف مبروك على الاشراف أخي/حسين عبدالله .. حضورك النشيط مكسب كبير لرواد هذا القسم، فأتمنى لك التوفيق (f) (f) (f) . وعذرا على التأخير، فلم أكن استطع الكتابة في المنتدى خلال الفترة السابقة.

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

Private Sub Command1_Click() Dim txt As String txt = "لعنة الله على اليهود" List1.Clear For i = 1 To Len(txt) List1.AddItem Mid(txt, i, 1) Next i End Sub

هذه الفكرة فقط ويمكنك تطويرها كما تريد Private Sub RichTextBox1_Change() Static Pos As Long Dim lastPos As Long Pos = InStr(Pos + 1, RichTextBox1.Text, "بسم الله") lastPos = RichTextBox1.SelStart If Pos Then RichTextBox1.SelStart = Pos - 1 RichTextBox1.SelLeng…

ويمكنك الابتعاد عن دوال API والنظر للأمر بطريقة ابسط.. MsgBox Environ("Windir") & IIf(Len(Environ("os")), _ "system32", "system")

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

استخدم الأداة Microsoft Internet Transfer وطريقتها سهلة جدا. لفتح ملف: Text1 = Inet1.OpenURL("عنوان الملف")

اختيار موفق وبداية رائعة، أتمنى رؤية السلسة مكتملة.. أيضا لدي بعض التعليقات البسيطة التي لا تتعلق بكيفية البناء، ولكنها مجرد توضيحات حول مفهوم مكتبات الربط الديناميكية في ActiveX في فيجوال بيسك. - لا تستطيع لغة بيسك بناء مكتبات الربط الديناميكية العادية(القياس…

الطريقة التي ذكرها الأخ/محمد بدوي صحيحة .. ولكنها ليس المثلى حيث يوفر الاصدار السادس الدالة Split التي تنفذ الأمر بصورة مباشرة. Private Sub Command1_Click() Dim sArr$(), sTxt$ sTxt = "الفريق العربي123كيف الحال123فيجول بيسك123بخير" sArr = Split(sTxt, "123") 'sA…

أما كنت تريد تشغيل الصفحة من خلال المتصفح الافتراضي ... Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _ lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirector…

هل "ساعة التوقيت" = "الساعة القياسية" ؟! أم المقصود مؤقت. الأخ/أنس كردي.. كود جميل ولكن لماذا يتقافز عقربي الدقائق والساعات بهذا الشكل:) .. ايضا اقترح رسم مواضع الدقائق والساعات من خلال الكود..

ضعه داخل أداة Frame ثم قم بتحريك الأخيرة.

Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() If Time = #12:00:00 AM# Then MsgBox "Hello" End Sub

تستخدم العبارة RaiseEvent لرفع الاحداث في الاصناف.. مثلا 'التصريح عن الحدث Public Event MyEvent() ' وعند الحاجة لرفع الحدث RaiseEvent MyEvent

لم توضح مالذي تقصده بـ للقراءة فقط للنموذج ... فيمكنك باستخدام التصنيف الفرعي اعتراض أي رسالة فقط حدد مالذي تريده ... وإلى أن احصل على توضيحك فيمكنك استخدام الخاصية Enable لإلغاء تفعيل الدخل من قبل المستخدم.. Me.Enabled = False

مبدأ الاستدعاء التراجعي Recursion هو احد المبادئ المتقدمة في لغات البرمجة وهناك العديد من الخوارزميات الشهيرة له وهذا مثال لتوضيح المفهوم مدمج بداخل احد الاكواد وهو برنامج للبحث تجده على الرابط http://www.vb4arab.com/vb/showthread.php?s...=&threadid=8681 ويمكن…

بالفعل أخي/tmaaa كلامك 100% ;)

بالنسبة لاجابة سؤالك فهي على الرابط http://www.vb4arab.com/vb/showthread.php?s...&threadid=10871 لكن لدي ملاحظة: بالنسبة لقولك "طبقة" فأعتقد انك تقصد ترجمة Class وإذا كان هذا ماتقصده، فأعتقد ان سؤالك يحتاج لبعض التعديل لأنك تقول "كيف أعرف أي طبقة عليها التركيز…

الأخ/عفريت .... لا اعتقد انه من المحتم كتابة سؤالك مرات عديدة وفي اماكن مختلفة :( وعلى العموم لقد اجبتك على الرابط http://www.vb4arab.com/vb/showthread.php?s...&threadid=10871

يمكن تنفيذ ماتقصده بأكثر من طريقه.. 1- بالحصول على قرين الاظهار لمربع النص وبالتالي نحصل عليه كصورة يمكننا عمل استدارة لها باستخدام الدالتين GetPixel و SetPixel .. Private Declare Function GetDC Lib "user32" (ByVal hWnd _ As Long) As Long Private Declare Funct…