الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]

الحقيقة أشكرك على هذا المجهود العظيم...وهذا ما يمكن أن يسمى بتكديس المناهج ^^...أتحفتني وزدتني علما جزاك الله خيرا وعلما...
لا أدري ما الذي يعبر عن كل ذلك...
لكن لن أنساك من الدعاء...



كان لدي بعض الاستفسارات على ما سبق...

اقتباس:

---

كل ماسأضعه لك من أكواد ستعمل على فيجوال بيسك 6 بسلاسة لأني لم أستخدم 8 بعد

---

لا عليك فأنا أستعمل 9 أصلا ^^

في هذا السؤال:

اقتباس:

---

كيف يمكنني نسخ أوامر معينة لأداة أخرى؟

---

ألا يمكن أن أستدعي من Button1_click إلى أي شيء أخر بدلا من وضعها في الPublic؟؟؟

اقتباس:

---

إستبدل كلمة Mnu_File بإسم القائمة التي تريد ظهورها عند النقر بالزر الأيمن (يجب ان تكون قد عملت هذه القائمة مسبقا)

---

ولكن كيف أقوم بعمل Menu؟هل هي إحدى الأدوات؟

في هذا السؤال:

اقتباس:

---

* كيف يمكنني التحكم بأوامر أزرار الإغلاق والتصغير والتكبير (Control Box) الإفتراضية؟

---

كنت أقصد أنه عند النقر على تلك الأزرار ينفذ تعليمات أخرى أنا أحددها...


أرجو الرد على هذه الأسئلة أيضا:

اقتباس:

---

أسئلة جديدة...لكن أرجو الإسراع في الإجابة عليها قدر الإمكان:
*كيف يمكنني تعريف متغير لكل البرنامج؟
حاولت استخدام Public Class ولم أفلح...
*كيف أتحكم بخصائص ملف خارجي؟
أريد جعل ملف txt مخفي مثلا...
*أرجو منك كتابة كود استيراد الملف بالكامل...كتبت هذا الكود ولكنه لم يفلح وحاولت بأكثر من طريقة ولم أفلح:

اقتباس:

---

Try
Dim oFile As System.IO.File
Dim oRead As System.IO.StreamReader
Dim oWrite As System.IO.StreamWriter
oRead = IO.File.OpenText(C:\S.txt")
oWrite.WriteLine(StoryP.txt)
oRead.Close()
Catch ex As Exception
MsgBox("لم يفلح البرنامج في استيراد الملف",VBCritical , "ERROR-7")
End Try

---

...أرجو السرعة في ذلك
أعتقد أن المشكلة أن المتغيرoWrite فارغ فلا يوجد ما يكتبه وهذا ما يقوله البرنامج ولكن لم أعرف كيف أملأه بالنص من ملف text المحدد...

---

اقتباس:

---

سؤال جديد:
كيف أرسل بريد إلكتروني عن طريق نقرة زر؟
كما يكون مثلا في كلمة راسلني في المواقع أو اتصل بنا...

---

أيضا سؤال الأخ AMYM لم تتم الإجابة الكاملة عليه....


سؤال جديد:
*كيف يمكن أن أزيد أزرارا على الـControl Box كما يوجد في IDM؟

شاكر مجهودك الكبييييييييييييييييييييي ييييييييييييييييييييييييي ييييييييييييييييييييييييي ييييييييييييييييييييييييي ييييييييييييير جدا...
لا عدمنا تواجدك وقراءة ردودك...

قد اتأخر بالرد بسبب وجود الإمتحانات المتتالية في هذا الإسبوع

إن رد أحد من يعلم كان بها أو إنتظرني

^_^"

لا بأس...
بانتظاركم...
أشكرك أخ وحدين

اقتباس:

---

ألا يمكن أن أستدعي من Button1_click إلى أي شيء أخر بدلا من وضعها في الPublic؟؟؟

---

نعم يمكنك إستدعاء من Button1_click وايضا يمكنك الإستدعاء من Private sub أو من sub فقط ^_^

اقتباس:

---

ولكن كيف أقوم بعمل Menu؟هل هي إحدى الأدوات؟

---

حدد الفورم في مساحة العمل على الفيجوال ثم اضغط على زر Ctrl + E في لوحة المفاتيح ثم ستظهر لك نافذة عمل القوائم على الفورم

اقتباس:

---

كنت أقصد أنه عند النقر على تلك الأزرار ينفذ تعليمات أخرى أنا أحددها...

---

هل تقصد انه عند الضغط على زر التصغير مثلا يقوم بعمل الأوامر التي تريد ولايعمل تصغير للفورم أم انه سيقوم بتصغير الفورم مع عمل الأوامر الخاصة بك؟

اقتباس:

---

*كيف أتحكم بخصائص ملف خارجي؟

---

هذه الأوامر للتحكم بكامل خصائص الملف وأعتقد أنها مفهومة ^_^

كود:

---

SetAttr "C:\wahdain.txt", vbNormal
    SetAttr "C:\wahdain.txt", vbHidden
    SetAttr "C:\wahdain.txt", vbReadOnly
    SetAttr "C:\wahdain.txt", vbArchive
SetAttr "C:\wahdain.txt", vbSystem

---

إذا واجهت صعوبة في فهم أحدها سأشرحه لك ^^"

اقتباس:

---

*أرجو منك كتابة كود استيراد الملف بالكامل

---

كود إستيراد ملف على textbox هو:

كود:

---

Open "C:\wahdain.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1

---

نفس الكود إذا كنت تريد الإستيراد إلى label أما إذا كنت تريد الإستيرد في ComboBox أو في ListBox فهناك كود آخر لهذه العملية ^_^

اقتباس:

---

كيف أرسل بريد إلكتروني عن طريق نقرة زر؟

---

ضع هذا الكود في الجنرال للفورم

اقتباس:

---

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 lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

---

وكود إظهار صندوق إرسال رسالة هو:

اقتباس:

---

ShellExecute Me.hwnd, vbNullString, "mailto:Mazen@Wahdain.Com", vbNullString, "C:\", SW_SHOWNORMAL

---

اقتباس:

---

*كيف يمكن أن أزيد أزرارا على الـControl Box كما يوجد في IDM؟

---

لا أعلم ^_^

اقتباس:

---

المشاركة الأصلية كتبت بواسطة AMYM

سؤال جديد

الان كنت ببرمج برنامج الساعه المؤقته ... ابرمجه بطريقه مبتداه المهم ...

لكن هناك شئ خاطئ ... فالبرنامج لا يعمل


لذا هذه هي الاكواد ... اخبروني اين الخطأ

---

أضف هذا الكود بداخل حدث تحميل الفورم Form Load

كود:

---

Private Sub Form_Load()
Label1.Caption = "0"
Label2.Caption = "0"
Label3.Caption = "0"
End Sub

---

وإستبدل كود الـ Timer الخاص بك بهذا الكود بعد التعديل ^_^

كود:

---

Private Sub Timer1_Timer()
If Not Timer1.Interval = 0 Then Label3.Caption = Val(Label3.Caption) + 1
        If Label3.Caption = "60" Then
            Label3.Caption = "0"
            Label2.Caption = Val(Label2.Caption) + 1
        ElseIf Label2.Caption = "60" Then
                Label2.Caption = "0"
                Label1.Caption = Val(Label1.Caption) + 1
        End If
End Sub

---

أشكرك أخ وحدين على هذا ...وآسف لإتعابك

اقتباس:

---

هل تقصد انه عند الضغط على زر التصغير مثلا يقوم بعمل الأوامر التي تريد ولايعمل تصغير للفورم أم انه سيقوم بتصغير الفورم مع عمل الأوامر الخاصة بك؟

---

نعم,عند الضغط على زر التصغير مثلا يقوم بعمل غير التصغير...أعطيتني كود التصغير سابقا...يمكنني الدمج بينهما

بخصوص الأكواد السابقة...
ما هو الجنرال؟...
ما هو الموديول؟...
بداية حدث تحميل الفورم...هل تقصد Form_load؟
أرجو منك أن توضح ما هي قاعدة Type؟
هل النموذج=فورم؟

سؤال أخير...لماذا تظهر الصفحة الرابعة من هذا الموضوع مشدودة هكذا...

موضوع جميل ...

لأول مرة أكتشف وجوده ^.^

خبرتنا في الفي بي vb لم تصل للاحترافية لذا لن أعرف الإجابة على جميع الأسئلة ..

بإمكاني الإجابة على أي استفسارات سي بلس بلس أو سي شارب أو سيكول
C#. C++ , sql

بالتوفيق للجميع ^.^

اقتباس:

---

خبرتنا في الفي بي vb لم تصل للاحترافية لذا لن أعرف الإجابة على جميع الأسئلة ..

---

لابأس بمساعدة الأعضاء بماتعرفي هنا حيث انني وإسلام مشغولين حاليا وسنكون سعداء بمشاركاتك إن أمكنك طبعا ^_^

السلام عليكم...
سؤال جديد:
كيف أتحكم في شفافية فورم أو أداة؟
هل توجد لذلك خاصية أم أستعمل كود؟

سؤال جديد:
لدينا أمر للنقر بالزر الأيمن وآخر للأيسر ولكن ما الأمر للنقر بعجلة الفأرة؟

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Eye Code

نعم,عند الضغط على زر التصغير مثلا يقوم بعمل غير التصغير...أعطيتني كود التصغير سابقا...يمكنني الدمج بينهما

---

بالنسبة لزر التصغير والتكبير والإستعادة فأعتقد أنك لاتستطيع إستبدال عملهم ولكن تستطيع دمج أوامر معهم

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

أما إذا كنت تريد تنفيذ الأوامر الخاصة بك مع تنفيذ الأمر الإفتراضي وهو الإغلاق قم بمسح الأمر
Cancel = True
من الكود الذي وضعته لك سابقا

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Eye Code

ما هو الجنرال؟...

---

شرحه يطول لكن بإختصار هي الأكواد العامة في الفورم والتي توضع خارج نطاق كود أداة معينة
يعني لاتكون داخل حدث Form_Load أو Button1_Click كمثال

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Eye Code

ما هو الموديول؟...
أرجو منك أن توضح ما هي قاعدة Type؟

---

ساسألك سؤال وأرجوا ان لاتفهمني خطأ ^^"
هل تنفذ شرط الموضوع بإن تقوم بالبحث في النت قبل وضع إستفسارك لنا؟

لإن الموضوع ليس لتعليم البرمجة أو برنامج بذاته وإنما هو لإجابة الإستفسارات التي لم تجد إجابة لها بعد محاولتك ذلك ^_^

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Eye Code

بداية حدث تحميل الفورم...هل تقصد Form_load؟

---

نعم

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Eye Code

هل النموذج=فورم؟

---

نعم

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Eye Code

سؤال أخير...لماذا تظهر الصفحة الرابعة من هذا الموضوع مشدودة هكذا...

---

أعتقد تم حل المشكلة ^_^"

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Eye Code

السلام عليكم...

---

وعليكم السلام ورحمة الله وبركاته

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Eye Code

كيف أتحكم في شفافية فورم أو أداة؟
هل توجد لذلك خاصية أم أستعمل كود؟

---

نعم هو كود للقيام بذلك

كما اعتقد ايضا بوجود مكتبة تنفذ هذه العملية

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Eye Code

لدينا أمر للنقر بالزر الأيمن وآخر للأيسر ولكن ما الأمر للنقر بعجلة الفأرة؟

---

لا أعلم ^_^

اقتباس:

---

شرحه يطول لكن بإختصار هي الأكواد العامة في الفورم والتي توضع خارج نطاق كود أداة معينة يعني لاتكون داخل حدث Form_Load أو Button1_Click كمثال

---

تقصد أنها خاصية Public؟
حاولت استعمالها وفشلت...

اقتباس:

---

ساسألك سؤال وأرجوا ان لاتفهمني خطأ ^^" هل تنفذ شرط الموضوع بإن تقوم بالبحث في النت قبل وضع إستفسارك لنا؟ لإن الموضوع ليس لتعليم البرمجة أو برنامج بذاته وإنما هو لإجابة الإستفسارات التي لم تجد إجابة لها بعد محاولتك ذلك ^_^

---

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

اقتباس:

---

نعم هو كود للقيام بذلك كما اعتقد ايضا بوجود مكتبة تنفذ هذه العملية

---

مكتبة؟؟
هل الكود طويل لهذه الدرجة؟
أم تقصد أن هناك كود في المكتبة؟


أشكر تعاونك

السلام عليكم...

لدي سؤال:
* عندما أكتب هذا الكود:
[PHP]Private Sub Button1_MouseMove
Label1.Backcolour=Red
End Sub[/PHP]
سيصبح لون خلفية label1 حمراء دائما مالم يتم تغييرها...
أريد أن أستني من هذا الكود..أي عندما تمر الفأرة على Button1 تصبح خلفية label1 حمراء...وعندما يبتعد مؤشر الفأرة تعود كما كانت...
يمكن ذلك عن طريق وضع خاصية MouseMove للفورم كاملا ولكن هذا يزيد من حجم البرنامج...
جربت خاصية Else ولكنها خاصة استثناء متعلقة بقاعدة IF فقط...
ما هو الحل إذا؟
أيضا أرجو الرد على أسئلة المشاركة السابقة...
وهذه الأسئلة القديمة:

اقتباس:

---

*لدينا أمر للنقر بالزر الأيمن وآخر للأيسر ولكن ما الأمر للنقر بعجلة الفأرة؟
*كيف أتحكم في شفافية فورم أو أداة؟
*كيف يمكن أن أزيد أزرارا على الـControl Box كما يوجد في IDM؟

---

موضوع جميل ويقدم المساعدة

اتمنى للجميع التوفيق8wq4

كود استيراد ملفات النصوص لم يعمل...كل سطر فيه أكثر من خطأ...
أستعمل VB9 (2008)...

لجعل الفورم شفاف

ضع هذا الكود في الجينرال

اقتباس:

---

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const LWA_ALPHA = 2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

---

وضع هذا الكود في داخل حدث تحميل الفورم

اقتباس:

---

SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, 128, LWA_ALPHA

---

العدد 128 هو الذي يتحكم بمدى شفافية الفورم , يمكنك زيادته ونقصانه بمايناسبك ^^