عبد الله فتحي

أخي حسام إذا كنت تريد نقل الصف الأوسط إلى الأعلى ليصبح هو الأول ويصبح الأول مكانه أو نقله إلى الأسفل ليصبح هو الثالث ويصبح الثالث مكانه فالحل كما ذكره لك الأخ محمد مشكوراً

قم بتحديد الصف

اضغط على alt و shift معاً

مع الضغط عليهما حرك الصف كما تريد إلى الأعلى أو الأسفل باستخدام الأسهم

والله أعلم

مشكلة غريبة بالفعل ..

هل قمت بتغيير أي إعدادات أو خيارات قبل هذه المشكلة ؟؟

يتم التحديد بالأسهم تقائياً عند اختيار الـ Extended Selection من شريط المهام السفلي ..

ولكن هذه المشكلة لم تمر علي سابقاً ...

الغرض من وظيفة الطباعة إلى ملف القدرة على طباعة الملف في جهاز آخر وعن طريق أوامر الدوس، إما لعدم وجود طابعة في جهازك، أو للاستفادة من مزايا طابعة أخرى موجودة على جهاز آخر

تقوم هذه الوظيفة بإرجاع ملف بامتداد 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 وهو منتدى ناجح، فبدلاً من تشتيت الجهود بين منتديات عديدة فرعية من الأفضل دعم منتدى رئيسي واحد ..

والله أعلم

كما ذكر المشرف الفاضل المهاجر يتم ذلك عن طريق دمج المراسلات

والطريقة سهلة وهي باختصار

> نقوم بإنشاء جدول في مستند جديد يحتوي على المعلومات المتغيرة ونجعل الصف الأول من هذا الجدول يحتوي على عنوان مميز لما تحته ثم نقوم بحفظ المستند

> بعد ذلك نقوم بإنشاء مستند آخر والذي يحتوي على الرسالة أو الشهادة أو أياً كان

> من أداة أدوات نختار معالج دمج المراسلات ثم نختار رسائل > ثم المستند الحالي > ثم استخدام قائمة موجودة واختيار الملف الذي قمنا بحفظه في الخطوة الأولى > ثم نقوم بإتمام الدمج وإنهاء المعالج

> بعد ذلك من شريط أدوات دمج المراسلات نقوم بالضغط على أيقونة إدراج حقول الدمج ونختار الحقل في المكان المناسب

> بعد ذلك يمكن الانتقال ما بين المعلومات في الجدول من خلال التنقل بين الأسهم في شريط الأدوات

الصور لا تظهر أخي programmer

ويعطيك ألف عافية على جهدك :(

أرجو تحديد ما هو المقصود بالفواصل ؟

بارك الله فيك أخي ..

جهد رائع ونطمع في أن نرى الدرس الثاني قريباً (y)

بالتوفيق

:(

بالنسبة لرسالة الخطأ فهي ناتجة عن عدم وجود الأداة 'COMDLG32.OCX' وهي مرفقة مع هذا الرد ..

COMDLG32.rar

يحتوي البرنامج على حوالي 650 كود للفيجول بيسيك 6.0

وهو هدية من المبرمج هيثم رسمي الباز

منقول من مجلة ال PC Magazine العدد الأخير

يمكنكم التحميل من هنــــــا

بالنسبة للمكتبة التي يستخدمها فهي ال user32.dll ..

ولكنك لا تحتاج إلى إضافتها في أي مكان ..

فقط عليك كتابة الكود كما بالأعلى ..

ولقد أشار الأخ مهند إلى طريقة أخرى .. ولكني لا أعمل على الأكسس حالياً فلا أستطيع تجربتها ..

على الرحب أخي flyer13 :(

وإذا كانت هناك خاصية يمكن تغييرها كما ذكر الأخ مهند عبادي فأعتقد أن هذا سيكون أسهل ..

بالتوفيق :(

الكود يتم كتابته في شاشة الكود والتي يمكن إظهارها عن طريق الضغط على 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

بعد ذلك قم بتجربة البرنامج وانظر كيف نقوم بالتحويل بين اللغتين عن طريق الضغط على الأزرة ..

تحياتي :(

هذ السطر في قسم التصريحات العامة 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

:)

و أقترح أن يبدا الحوار بوضع تصور عما يمكن أن يقدمه هذا التجمع علي أرض الواقع

و يلي ذلك نقاط أخري للنقاش ،  و لكن لنبدأ بما نطمح أن يقدمه هذا التجمع لاعضاؤه ؟؟ ثم لنناقش باقي النقاط

كلام منطقي وحتى الآن لا يوجد عندي فكرة واضحة عما يمكن أن يقدمه هذا المشروع ..

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

أما أن يتم بدء الجمعية دون تحديد مخططها بشكل دقيق فربما يعرضها هذا للفشل مستقبلاً ..

لنبدأ من جديد مناقشة الهدف ..

إذا كان البرنامج لا يعتمد على قاعدة بيانات فلماذا لا تستخدم الفيجول بيسيك بدلاً من الأكسس ..

وبالنسبة للأسئلة فمن الأفضل وضعها بمواضيع جديدة حتى ينتبه لها جميع الأعضاء ..

طيب ولو إنو الإستاذ محمد أجاب الإجابة الوافية ..

فقط قم بتغيير الرقم واحد إلى صفر في هذا السطر

   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

ولك خالص تحياتي :(

ولكن الدالة لم تأخذ الكسور :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

سأعطيك هذا المثال ..

والذي قد يساعدك ..

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
MsgBox "F1"
End If
End Sub