بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
عبد الله فتحي
عضوية شرفية-
Posts
259 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو عبد الله فتحي
-
أخي حسام إذا كنت تريد نقل الصف الأوسط إلى الأعلى ليصبح هو الأول ويصبح الأول مكانه أو نقله إلى الأسفل ليصبح هو الثالث ويصبح الثالث مكانه فالحل كما ذكره لك الأخ محمد مشكوراً قم بتحديد الصف اضغط على alt و shift معاً مع الضغط عليهما حرك الصف كما تريد إلى الأعلى أو الأسفل باستخدام الأسهم والله أعلم
-
مشكلة غريبة بالفعل .. هل قمت بتغيير أي إعدادات أو خيارات قبل هذه المشكلة ؟؟ يتم التحديد بالأسهم تقائياً عند اختيار الـ Extended Selection من شريط المهام السفلي .. ولكن هذه المشكلة لم تمر علي سابقاً ...
-
كيف استفيد من الملف الناتج من الطباعه الى ملف ؟
عبد الله فتحي replied to النبهاني's topic in منتدي الوورد Word
الغرض من وظيفة الطباعة إلى ملف القدرة على طباعة الملف في جهاز آخر وعن طريق أوامر الدوس، إما لعدم وجود طابعة في جهازك، أو للاستفادة من مزايا طابعة أخرى موجودة على جهاز آخر تقوم هذه الوظيفة بإرجاع ملف بامتداد prn ولنفرض أنك قمت بحفظه على الـ \:C مباشرة ولنفترض أيضاً أن الطابعة موصولة على المنفذ LPT1 يمكنك طباعة الملف عن طريق استخدام الأمر Copy إلى منفذ الطابعة كالتالي copy c:\document.prn LPT1 والله أعلم -
تحدثنا عن دمج المراسلات هنا: http://www.officena.net/ib/index.php?showtopic=4410 وهنا: http://www.officena.net/ib/index.php?showtopic=3774 وهنا طريقة أخرى: http://www.khayma.com/fahad1390/computer/44.htm إذا واجهتك أي مشكلة فنحن بالخدمة ... مع التحية
-
رأيي أنه يوجد منتدى متخصص لهذه اللغة وهو vb4arab.com وهو منتدى ناجح، فبدلاً من تشتيت الجهود بين منتديات عديدة فرعية من الأفضل دعم منتدى رئيسي واحد .. والله أعلم
-
طباعة نموذج واحد من شهادة لعدة أشخاص
عبد الله فتحي replied to alhosni494's topic in منتدي الوورد Word
كما ذكر المشرف الفاضل المهاجر يتم ذلك عن طريق دمج المراسلات والطريقة سهلة وهي باختصار > نقوم بإنشاء جدول في مستند جديد يحتوي على المعلومات المتغيرة ونجعل الصف الأول من هذا الجدول يحتوي على عنوان مميز لما تحته ثم نقوم بحفظ المستند > بعد ذلك نقوم بإنشاء مستند آخر والذي يحتوي على الرسالة أو الشهادة أو أياً كان > من أداة أدوات نختار معالج دمج المراسلات ثم نختار رسائل > ثم المستند الحالي > ثم استخدام قائمة موجودة واختيار الملف الذي قمنا بحفظه في الخطوة الأولى > ثم نقوم بإتمام الدمج وإنهاء المعالج > بعد ذلك من شريط أدوات دمج المراسلات نقوم بالضغط على أيقونة إدراج حقول الدمج ونختار الحقل في المكان المناسب > بعد ذلك يمكن الانتقال ما بين المعلومات في الجدول من خلال التنقل بين الأسهم في شريط الأدوات -
الصور لا تظهر أخي programmer ويعطيك ألف عافية على جهدك :(
-
أرجو تحديد ما هو المقصود بالفواصل ؟
-
بارك الله فيك أخي .. جهد رائع ونطمع في أن نرى الدرس الثاني قريباً (y) بالتوفيق
-
:( بالنسبة لرسالة الخطأ فهي ناتجة عن عدم وجود الأداة 'COMDLG32.OCX' وهي مرفقة مع هذا الرد .. COMDLG32.rar
-
يحتوي البرنامج على حوالي 650 كود للفيجول بيسيك 6.0 وهو هدية من المبرمج هيثم رسمي الباز منقول من مجلة ال PC Magazine العدد الأخير يمكنكم التحميل من هنــــــا
-
كود تغيير لغة الكيبورد من انجليزي الى عربي والعكس
عبد الله فتحي replied to flyer13's topic in قسم الأكسيس Access
بالنسبة للمكتبة التي يستخدمها فهي ال user32.dll .. ولكنك لا تحتاج إلى إضافتها في أي مكان .. فقط عليك كتابة الكود كما بالأعلى .. ولقد أشار الأخ مهند إلى طريقة أخرى .. ولكني لا أعمل على الأكسس حالياً فلا أستطيع تجربتها .. -
كود تغيير لغة الكيبورد من انجليزي الى عربي والعكس
عبد الله فتحي replied to flyer13's topic in قسم الأكسيس Access
على الرحب أخي flyer13 :( وإذا كانت هناك خاصية يمكن تغييرها كما ذكر الأخ مهند عبادي فأعتقد أن هذا سيكون أسهل .. بالتوفيق :( -
كود تغيير لغة الكيبورد من انجليزي الى عربي والعكس
عبد الله فتحي replied to flyer13's topic in قسم الأكسيس Access
الكود يتم كتابته في شاشة الكود والتي يمكن إظهارها عن طريق الضغط على alt + F11 .. على سبيل المثال قم بتصميم نموذج جديد يحتوي على أداتي زري Command Button وأداة مربع نص TextBox .. قم بالنقر بزر الماوس الأيمن على الأداة Command Button وقم باختيار إنشاء حدث ثم منشئ البرامج .. هنا ستظهر نافذة الكود .. ستجد بأعلى نافذة الكود قائمتين منسدلتين بجوار بعضهما البعض .. اختر في اليسرى General وهنا سينقلك لقسم التصريحات العامة حيث يمكنك تعريف المتغيرات العامة هنا أو استخدام دوال ال API كما هو الحال بالنسبة لهذا الخلاص .. الخلاصة: قم بنسخ السطر التالي هناك Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long ثم بعد ذلك اختر من القائمة المنسدلة إحدى أدوات ال Command Button وقم بوضع هذا السطر: LoadKeyboardLayout "00000401", 1 وفي الأداة الثانية قم بوضع السطر الآخر LoadKeyboardLayout "00000409", 1 بعد ذلك قم بتجربة البرنامج وانظر كيف نقوم بالتحويل بين اللغتين عن طريق الضغط على الأزرة .. تحياتي :( -
كود تغيير لغة الكيبورد من انجليزي الى عربي والعكس
عبد الله فتحي replied to flyer13's topic in قسم الأكسيس Access
هذ السطر في قسم التصريحات العامة General_Declarartion: Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long وهذا للتحويل إلى اللغة العربية: LoadKeyboardLayout "00000401", 1 وهذا للتحويل إلى اللغة الإنجليزية: LoadKeyboardLayout "00000409", 1 :) -
كلام منطقي وحتى الآن لا يوجد عندي فكرة واضحة عما يمكن أن يقدمه هذا المشروع .. صحيح أنه من المحبب إلى نفوسنا أن تكون هناك جمعية للمبرمجين وأن نتباهى بعضويتها ولكن ما الجديد الذي يمكن أن يقدمه هذا التجمع ؟؟ أما أن يتم بدء الجمعية دون تحديد مخططها بشكل دقيق فربما يعرضها هذا للفشل مستقبلاً .. لنبدأ من جديد مناقشة الهدف ..
-
كيف اصنع زر يقفل الجهاز وزر اخر لاعاده التشغيل
عبد الله فتحي replied to مفتون's topic in قسم الأكسيس Access
إذا كان البرنامج لا يعتمد على قاعدة بيانات فلماذا لا تستخدم الفيجول بيسيك بدلاً من الأكسس .. وبالنسبة للأسئلة فمن الأفضل وضعها بمواضيع جديدة حتى ينتبه لها جميع الأعضاء .. -
كود يعرفنى اسم مجلد الويندوز أكسيس 97
عبد الله فتحي replied to waeelahmed's topic in قسم الأكسيس Access
طيب ولو إنو الإستاذ محمد أجاب الإجابة الوافية .. فقط قم بتغيير الرقم واحد إلى صفر في هذا السطر s = fs.GetSpecialFolder(1) -
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const SW_HIDE = 0 Private Const SW_SHOW = 5 Sub Hide_Clock() Dim shelltraywnd As Long Dim traynotifywnd As Long Dim trayclockwclass As Long shelltraywnd = FindWindow("shell_traywnd", vbNullString) traynotifywnd = FindWindowEx(shelltraywnd, 0&, "traynotifywnd", vbNullString) trayclockwclass = FindWindowEx(traynotifywnd, 0&, "trayclockwclass", vbNullString) Call ShowWindow(trayclockwclass, SW_HIDE) End Sub Sub Show_Clock() Dim shelltraywnd As Long Dim traynotifywnd As Long Dim trayclockwclass As Long shelltraywnd = FindWindow("shell_traywnd", vbNullString) traynotifywnd = FindWindowEx(shelltraywnd, 0&, "traynotifywnd", vbNullString) trayclockwclass = FindWindowEx(traynotifywnd, 0&, "trayclockwclass", vbNullString) Call ShowWindow(trayclockwclass, SW_SHOW) End Sub Private Sub CmdShow_Click() Show_Clock End Sub Private Sub CmdHide_Click() Hide_Clock End Sub
-
من المهم البحث في الموقع أولاً قبل السؤال .. حتى ننظم الجهود :( وجدت الإجابة هنا: http://www.officena.net/ib/index.php?showtopic=953 ولك خالص تحياتي :(
-
حساب الارقام كما هي دون حساب الكسر العشري
عبد الله فتحي replied to ابراهيم - ابو ريان's topic in قسم الأكسيس Access
ولكن الدالة لم تأخذ الكسور :o .. -
بعد إذن الأستاذ محمد طاهر أولاً لاختبار اللغة الحالية إليك هذا الكود: Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long Private Sub Command1_Click() If GetKeyboardLayout(KLF_ACTIVATE) = 67699721 Then MsgBox "English" Else MsgBox "Arabic" End If End Sub وهو يفترض أن المستخدم عنده لغتين (عربي - إنجليزي) .. وسأحاول العودة بخصوص التغيير ما بينهما ..
-
على كما يبدو أن العيب من النسخة نفسها كما ذكر الأخ egyptian_eg
-
كيف ألغي عمل مفاتيح الكيبورد مثلا مفتاح F1
عبد الله فتحي replied to tarekafifi's topic in قسم الأكسيس Access
سأعطيك هذا المثال .. والذي قد يساعدك .. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 Then MsgBox "F1" End If End Sub