منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مكتبة أكواد .net

تكرار الرقم القومى

Fri, 29 Sep 2023 21:17:27 +0000

السلام عليكم

بارك الله فيكم جميعا

بدأت فى عمل مشروع لجمعية خيرية والحمد لله

امامى مشكلة انى انشات جدولين

فى جدول منهما حقلين بهما رقم قومى للزوج والزوجة

والجدول الثانى به حقل رقمى قومى للابن وبينهما علاقة برقم الاسرة

الجدول الاول اسمه tbl_Show_Familys وبه حقل Qawmi و Qawmi2

والجدول الثانى اسمه tbl_Sons

فهل من طريقة انى لو حاولت تسجيل الرقم وكان موجود فى اى حقل من الثلاثة يعطينى رسالة ان الرقم القومى مكرر

وشكرا لكم

كود تأجير سيارات

Wed, 06 Jan 2021 16:57:25 +0000

عمل كود بالسي شارب ، معرض تأجير سيارات ، اذا متوفر مع أحد افيدونا به .

لدي خطا في كود التعديل لمنظومه ارشيف الكتروني

Sun, 15 Nov 2020 12:58:11 +0000

Private Sub Button2_Click1(sender As System.Object, e As System.EventArgs) Handles ButEdit.Click
cn.Open()

Try
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = "update Sader1 set mawdo_MasgS='" & mawdo_MasgS.Text & "', Sader_men='" & Sader_men.Text & "' , date_MasgS ='" & date_MasgS.Text & "', Sader_ela ='" & Sader_ela.Text & "', morfagatS='" & morfagatS.Text & "', Mostalem='" & Mostalem.Text & "' , sefa ='" & sefa.Text & "', namberphon ='" & namberphon.Text & "', websait='" & websait.Text & "', note='" & note.Text & "' where id_esaryS = '" & id_esaryS.Text & "'"
cmd.ExecuteNonQuery()
MsgBox("هل تريد تعديل بيانات ")
Catch ex As Exception
MsgBox(ex.Message.ToString)
MsgBox("تم تعديل بيانات بنجاح ")
End Try
cn.Close()

يعطي مسج بهذا الخطأ

ب22222222.jpg (الحجم : 100.84 ك ب / التحميلات : 93)

استفسار حول منع الانتقال بين الفورمات

Sun, 07 Aug 2016 18:55:52 +0000

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

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

هذه الحالة تحدث كثيرا في البرامج واريد تنفيذها ولم اجد الطريقة لذلك ...

بارك الله فيكم ...

البرنامج بعد وضعه في صورة exe لا يتعامل مع قاعدة البيانات

Thu, 04 Aug 2016 01:10:33 +0000

انا مبتدئ
صممت برنامج وقمت بضغطة ببرنامج set up factory ولكن بعد ذلك لم يتعامل مع قاعدة البيانات
يعمل كاملا ً بدون حفظ في قاعدة البيانات
أفيدوني
جزاكم الله خيرا ً

اريد كود فتح سواقة والمفضلة

Sun, 03 Jul 2016 09:04:09 +0000

السلام عليكم

اريد كود فتح سواقةعندي كودولكن ليس صحيح

PHP كود :
Try
            Dim retvalue As Object
            Dim returnstring As Object
            retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
        Catch ex As Exception
            MessageBox.Show(ex.Message & ex.Source)
        End Try 

وكود المفضلة عندي كودولكن ليس صحيح

PHP كود :
 Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then

        End If
        Dim filePaths As String() =
       CType(e.Data.GetData(DataFormats.FileDrop), String())
        For Each s As String In filePaths

        Next
        Dim FI As New IO.FileInfo(s)
        Dim exten As String =
       FI.Name.Substring(FI.Name.LastIndexOf(".") + 1, FI.Name.Length -
       (FI.Name.LastIndexOf(".") + 1))
        If exten = "mp3" Or exten = "wmv" Then
            ListBox1.Items.Add(s)
        End If
        Try

        Catch ex As Exception

        End Try
        MessageBox.Show("Some error occur so can't play media",
       "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Sub

    Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
        Try

        Catch ex As Exception

        End Try
        MessageBox.Show("Some error occur so can't play media",
       "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

        Dim Filename As String = ListBox1.SelectedItem
        AxWindowsMediaPlayer.URL = Filename
        AxWindowsMediaPlayer.Ctlcontrols.play()
    End Sub 

أريد كود الحفظ والتعديل والحذف في قاعدة بيانات اكسس 2007

Tue, 02 Dec 2014 08:40:59 +0000

السلام عليكم اخوتي الاعزاء

.
جزاكم الله خيرا أريد مساعدة ..
أريد كود الحفظ وكود البحث وكود التعديل (حذف+تعديل) في فيجوال بيسك 2012 مع قاعدة بيانات 2007 .. بواسطة الاتصال add new data source ولكم جزيل الشكر والعرفان

الرسم بأستخدم gdi

Wed, 08 Oct 2014 02:36:44 +0000

السلام عليكم

أريد كود رسم دائرة وتحريكها على الفورم إلى عدة مواضع على الفورم ثم إعادتها إلى مكانها الأصلى

كود معرفة هل الاداة مربوطة (هل مضبوطة بـ datasource) ام لا

Fri, 23 Aug 2013 20:27:21 +0000

كود :
If IsNothing(ListBox1.DataSource) Then            For Each itm In ListBox1.SelectedItems

                ListBox2.Items.Add(itm)

            Next

        Else

            For Each itm In ListBox1.SelectedItems

                ListBox2.Items.Add(itm("tn"))

            Next

        End If

سبب كتابة الكود الموضوع التالي:
[h=1][عنوان معدل]حفظ بيانات listbox[/h]

احتراف التعامل مع ( ملفات التهية ini ) باسهل الطرق مكتبه كاملة من صنعى : اصدار 1.0.1

Wed, 21 Aug 2013 04:34:36 +0000

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

الجديد تصحيح خطاء فى طريقة الدوال الثالثة والرابعة

اذا كنت اول مرة تعرف المكتبة عليك زيارة الموضوع الاساسى للاصدار الاول

[h=1]الموضوع: احتراف التعامل مع ( ملفات التهية ini ) باسهل الطرق مكتبه كاملة من صنعى : اصدار 1.0.0[/h]

احدى الدوال قبل التعديل

كود :
[color=#0000FF]Public[/color] [color=#0000FF]Function[/color][color=#000000] GetSectionsNames([/color][color=#0000FF]ByVal[/color][color=#000000] File_Name [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000], [/color][color=#0000FF]Optional[/color] [color=#0000FF]ByRef[/color][color=#000000] Variable_CHECK [/color][color=#0000FF]As[/color] [color=#0000FF]Byte[/color][color=#000000] = 0) [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000]()[/color]

        [color=#0000FF]Dim[/color][color=#000000] lst() [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000] = {}[/color]

[color=#000000]        Variable_CHECK = GetSectionsNames(File_Name, lst)[/color]

        [color=#0000FF]Return[/color][color=#000000] lst[/color]

    [color=#0000FF]End[/color] [color=#0000FF]Function[/color]

بعد التعديل

كود :
[color=#0000FF]Public[/color] [color=#0000FF]Function[/color][color=#000000] GetSectionsNames([/color][color=#0000FF]ByVal[/color][color=#000000] File_Name [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000], [/color][color=#0000FF]Optional[/color] [color=#0000FF]ByRef[/color][color=#000000] Variable_CHECK [/color][color=#0000FF]As[/color] [color=#0000FF]Byte[/color][color=#000000] = 0) [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000]()[/color]

        [color=#0000FF]Dim[/color][color=#000000] lst() [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000] = {}[/color]

        [color=#0000FF]Dim[/color][color=#000000] tst [/color][color=#0000FF]As[/color] [color=#0000FF]Byte[/color]

[color=#000000]        tst = GetSectionsNames(File_Name, lst)[/color]

[color=#000000]        Variable_CHECK = tst[/color]

        [color=#0000FF]Return[/color][color=#000000] lst[/color]

    [color=#0000FF]End[/color] [color=#0000FF]Function[/color]

تم نعديل جميع الدوال

الملف مرفق

M_ini.zip (الحجم : 2.43 ك ب / التحميلات : 103)

احتراف التعامل مع ( ملفات التهية ini ) باسهل الطرق مكتبه كاملة من صنعى : اصدار 1.0.0

Mon, 19 Aug 2013 15:14:17 +0000

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

هذه المكتبة للتعامل مع ملفات ini.

لمن لا يعرفها اقراء هذا التوضيح من المنتدى القديم للاخ Tipo ولمن يعرفها خش فى الموضوع وعدى هذه الجزئية

=================================================

للتعامل مع ملفات التهيئة ولفهم طريقة إستخدامها سنشرح وظيفة وتركيب ملفات التهيئة .

ومن ملفات التهيئة المشهورة الملفان win.ini و system.ini الخاصان بويندوز ، وعادة ما يكون لكل برنامج ملف تهيئة خاصة به وامتداد ملفات التهيئة هو ini , ويتم بملفات التهيئة حفظ أعداداتك الخاصة بك التي قمت بها .
عند تشغيل برنامج معين فقد تلاحظ عند دخولك لبرنامج ما انة قد وضع آخر اربعة ملفات قمت بتشغيلها في قائمة ملف ( مثل الورد مثلا ) وكذلك يحفظ كل ما قمت بة من تغيرات لتجدها لم تتغير عند تشغيلة في المرة القادمة فما يقوم بة البرنامج هو حفظ الأعدادات التي قمت بها في ملف تهيئة خاص ، لتتم قرائة في المرة القادمة لتشغيلك البرنامج ووضع اعداداتك التي قمت بها .

انظر الصورة

[SIZE=4]
لاحظ أن ملف التهيئة يتكون من عدد من الآقسام وأسفل كل قسم عدد من المفاتيح وأمام كل مفتاح قيمتة ، مثلا القسم Desktop يحتوي على مفتاحين ، المفتاح TilrWallpaper قيمتة 1 ، وهذا حال كل ملفات التهيئة .

================================================== =====

الان والحمد والمنة لله تعالى اتممت هذه المكتبه المتكاملة للتعامل معها

1 - كتابة مفتاح وخصائصها
[SIZE=4]A[/SIZE] - عندما يكون الملف غير موجود يقوم بانشاءه والكتابه فيه
B - عندما يكون القسم غير موجود يتم ايضا انشاءه والكتابه فيه
C - عندما يكون المفتاح موجود من قبل يتم استبدال القيمة منه

1 - القراءة من الملف سواء قراة الاقسام المفاتيح القيم او قيمة
[SIZE=4]A[/SIZE] - يوجد اكثر من شكل للدالة لتسهل على الجميع كيفما دعت الحاجه ان يستخدمها
فمن الممكن ان تقراء من نص او من ملف نصى ومن الممكن ان تعيد القيمه مباشرة
او ان تخزنها فى دالة من الممكن ان تحقق من العملة بـ True و False ومن الممكن ان تعيد متغير
رقمى يحمل مرحلة الخطاء
فمثلا :
0 - نجاح العملية
1 - فشل فى القراءة من الملف او عدم العثور على الملف
2 - فشل فى قراءة القسم او عدم وجود القسم
3 - فشل فى الحصول على المفتاح او عدم وجود المفتاح
طبعا كل ده فى حالة احتجت الى تفصيل الخطاء فيمكنك ترك هذا كله واستعمال الشكل الاول
[SIZE=4]B[/SIZE] - جميع التعليقات على الدوال بى اللغة العربيه ليسهل عليك استعمال المكتبة
انظر الصورة

الى هنا تعبت كنت ناوى اكتب كل خصائص ومميزات هذه المكتبة لاكن سامحونى الوقت داهمنى

وانتظرو باذن الله تعالى مكتبة فى التعامل مع XML

المكتبة مرفقه مفتوحة المصدر لمن اراد التعديل والتطوير
[/SIZE]

Test_Ali_ini.zip (الحجم : 124.79 ك ب / التحميلات : 148)

شرح كيفية صنع محرر html واستخدامه كـ dll

Sat, 17 Aug 2013 12:19:36 +0000

أحببت في هذه اللحظات ان اسطر كيفية انشاء محرر html بسيط وتحويله الى ملف dll بحيث نستورده لمشاريعنا

انشيئ مشروع جديد بلغة فيجوال بيسك

اضف اداة TabControl
وسم التبويبة الاولى باسم مثلا des يعني تصميم
والاخرى sh يعني عرض
في تبويبة العرض اضف اداة مستعرض الويب webbrowser
وفي الاولى في تبويبة التصميم des اضف الادوات التالية
Panel1
وضمن البانل اضف الازرار التالية
زر الخط العريض
زر اضافة رابط
زر اضافة صورة (رابط صورة)
زر اللون
كومبوبوكس لاحجام او مقاسات مختلفة للخط
اجعل خاصية Dock الى Top
اضف اسفل البانل مربع نص واجعل خاصية Dock الى Fill

------------------------------------
الان جاء دور كتابة الاكواد
@@@@@@@@@@@@@@@@@@@@@@@@

في حدث النقر لزر الخط العريض اكتب

كود :
Dim txt As String = TextBox1.SelectedText

كود :
Dim all As String = TextBox1.Text

        If txt.ToString.Trim = "" Then Exit Sub

        TextBox1.Text = all.Replace(txt, "" & txt & "")

وفي زر اضافة رابط اكتب

كود :
Dim txt As String = TextBox1.SelectedText

كود :

Dim all As String = TextBox1.Text

        If txt.ToString.Trim = "" Then Exit Sub

        TextBox1.Text = all.Replace(txt, "" & txt & "")

وفي زر اضافة صورة

كود :
Dim txt As String = TextBox1.SelectedText

كود :
Dim all As String = TextBox1.Text

        TextBox1.AppendText(" " & "")

[align=center]

[/align]

وفي زر اضافة لون اكتب

كود :
Dim fc As New ColorDialog

كود :
If fc.ShowDialog = DialogResult.OK Then

            Dim txt As String = TextBox1.SelectedText

            Dim all As String = TextBox1.Text

            If txt.ToString.Trim = "" Then Exit Sub

            TextBox1.Text = all.Replace(txt, "" & txt & "")

        End If

في حدث TextChanged التابع لمربع النص اكتب

كود :
WebBrowser1.DocumentText = TextBox1.Text.Replace(vbNewLine, "
")

ملاحظة! قد تحتاج المزيد من الاكواد للاستبدال

----------------------
في الكومبوبكس احتجنا حدثين وهما
MouseClick
والاخر
SelectedIndexChanged

الاول كتبنا فيه

كود :
sel = TextBox1.SelectedText.ToString

والاخر

كود :
Dim txt As String = ComboBox1.Text

كود :
Dim all As String = TextBox1.Text

        If txt.ToString.Trim = "" Then Exit Sub

        TextBox1.Text = all.Replace(sel, "" & sel & "")

كلمة sel متغير في منطقة التصريحات العامة اعلى الفورم او باي مكان ليس ضمن روتين sub
الان لنقوم بتعميم الـ text الخاص بمربع النص

كود :
Public Property content As TextBox

كود :
Get

            Return TextBox1

        End Get

        Set(ByVal value As TextBox)

            TextBox1 = TextBox1

        End Set

[align=center]    End Property[/align]

قم باعادة بناء مشروعك
جرب المثال فان اعجبك انسخ ملف dll المتولد في مجلد Debug انسخه الى مشروعك واضفه كـ item الى مربع الادوات

وفي زر الامر في الفورم العادي اكتب

كود :
MsgBox(UserControl11.content.Text)

المثال باذن الله جل في علاه في القسم المناسب له
ارجو ان اكون قدمت شيئا مفيدا هذا اليوم

ملاحظة المحرر الخاص بالمنتدى عذبني
شوف مقسم الاكواد على كيفه

شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت تحدده)

Mon, 12 Aug 2013 13:36:39 +0000

المثال المراد شرحه هنا

فيه ادوات مش ضروري نستخدمها مثل مربعات نص عرض المسار ممكن نشتغل من دونها.
اضف الادوات بالتسميات الموضحة بالصورة
prg = progressbar
bgw_purn = backgroundworker
------------------------------
الان قم باضافة قائمة الامتدادات الى اداة Cobobox

كود :
*

*.txt

*.bat

*.exe

*.368

*.dat

*.HTM 

*.wmz 

*.DUN 

*.xml 

*.INF 

*.wiz 

*.CHM

*.DOT

*.COM 

*.SCR 

*.HTA 

*.ISP 

*.ZIP 

*.DLL 

*.ini 

*.pot 

*.icm 

*.CER 

*.INS 

*.swf 

*.REG 

*.rdw

*.PWL 

*.WAV 

*.HLP 

 *.ASF 

*.BMP 

*.000 

*.jpg 

*.gif 

*.mpeg 

*.map 

*.sig 

*.cnt 

*.man 

*.VER 

*.ICW 

*.log 

*.flv

*.wmv

*.mp3

[align=center]*.wav[/align]

--------------------------------
اولا استدعي ماتسمى بفضاء الاسماء

كود :
Imports System.IO

ثم اكتب التعريفات في منطقة التصريحات العامة

كود :
Dim cou As Integer

    Dim fbd1 As New FolderBrowserDialog

    Dim fbd2 As New FolderBrowserDialog

    Dim all As New List(Of String)

في حدث النقر لزر تحديد المجلد الاصل لنسخ الملفات منه اكتب

كود :
If fbd1.ShowDialog = Windows.Forms.DialogResult.OK Then

            frst_folder.Text = fbd1.SelectedPath

            On Error Resume Next

            For Each itm In Directory.GetFiles(fbd1.SelectedPath & "\", tens.Text)

                all.Add(itm)

            Next

            cou = all.Count

        End If

        prg.Minimum = 0

        prg.Maximum = cou

شرح الكود على طريقتي:

كود :
If fbd1.ShowDialog = Windows.Forms.DialogResult.OK Then

هذا الشرط ضروري ومهم بحيث لا نسمح للبرنامج بالعمل مالم يقم المستخدم بنقر زر موافق

كود :
frst_folder.Text = fbd1.SelectedPath

ليست ضرورية ويمكننا الاستغناء عنها فهي فقط لتسلية المستخدم ولا تحتاج شرح

كود :
On Error Resume Next

لتخطي المشاكل والاستمرار في الحياة (كم هي رائعة هذه الجملة)

كود :
For Each itm In Directory.GetFiles(fbd1.SelectedPath & "\", tens.Text)                all.Add(itm)

           Next

يقول لكل شيء موجود في المجلد المحدد (عبر مستعرض المجلدات) وفق امتداد محدد من الكومبوبوكس يضيفها الى القائمة النصية all المعرفة بهيدر البرنامج(ان صح التعبير)

كود :
cou = all.Count

هذا لحساب محتويات المصفوفة

كود :
prg.Minimum = 0        prg.Maximum = cou

هذا تعيين الحد الادنى والاعلى لاداة الشريط prg=progressbar
والحد الاعلى هو عدد محتويات المصفوفة
-------------------
لنذهب الان الى حدث النقر للزر المسؤول عن تحديد المجلد الهدف
ونكتب به

كود :
If fbd2.ShowDialog = Windows.Forms.DialogResult.OK Then            scnd_folder.Text = fbd2.SelectedPath

        End If

نفس الشرط الاول لمستعرض المجلدات
لننتقل الان الى زر بدء النسخ

كود :
If tens.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد الامتداد") : Exit Sub        If frst_folder.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد المجلد الاصل") : Exit Sub

        If scnd_folder.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد المجلد الهدف") : Exit Sub

        If bgw_purn.IsBusy Then Exit Sub

        prg.Value = prg.Minimum

        bgw_purn.RunWorkerAsync()

الشرح

كود :
If tens.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد الامتداد") : Exit Sub

        If frst_folder.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد المجلد الاصل") : Exit Sub

        If scnd_folder.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد المجلد الهدف") : Exit Sub

هذي للتحقق من ان مربعات النص ليست فارغة ولا تحتوي فراغات

كود :
If bgw_purn.IsBusy Then Exit Sub

بدل ما نعطل الزر نتحقق هل الباك قراوند مشغول ام لا
ان كان مشغل يخرج من الروتين

كود :
prg.Value = prg.Minimum

هذا لاعادة القيمة للبرقريس بار الى الصفر

كود :
bgw_purn.RunWorkerAsync()

جاء وقت العمل لنذهب لهذا العمل
لننتقل الان الى bgw_purn
ضمن الحدث dowork

كود :
For Each Fi In all            File.Copy(Fi, fbd2.SelectedPath & "\" & IO.Path.GetFileName(Fi), False)

            ListBox1.Items.Add(Fi)

            prg.Value += 1

            ListBox1.SelectedIndex = ListBox1.Items.Count - 1

        Next

الشرح

كود :
For Each Fi In all

يعني لاي شي موجود في القائمة النصية

كود :
File.Copy(Fi, fbd2.SelectedPath & "\" & IO.Path.GetFileName(Fi), False)

يقوم بنسخ الملف الذي اتى عليه الدور حسب مساره والمخزن في المتغير Fi الى المجلد الهدف ثم لابد من اضافة الخط المائل "\" ثم اسم الملف المنسوخ يمكنك كتابته يدويا لكنه مرهق فالافضل نعطيه اسمه القديم(قديمك نديمك) طبعا المسار مخزن بالمتغير Fi فلو وضعناه هكذا سيظهر خطا فادخ لانه يحتوي مسار كامل لكن لناخذ من المسار اسم الملف فقط بالطريقة الموجودة وهي:

كود :
io.path.getfilename(Fiممكن تحط اي مسار لو حبيت)

سالفة True و False هذي للكتابة على الملف

كود :
ListBox1.Items.Add(Fi)            prg.Value += 1

            ListBox1.SelectedIndex = ListBox1.Items.Count - 1

شغلات زيادة فقط الهاء المستخدم
السطر الاول اضافة المسار كاملا الى Listbox1
ولو حبيت فقط اسم الملف اضف

كود :
io.path.getfilename(Fi)

عند حدث
RunWorkerCompleted
تكتب رسالة انه انتهى لكن هذا الحدث سيحدث سواء عمل شيئا ام لم يعمل ..يمكنك وضع شرط او قيمة ما بعد آخر كود في عملنا السابق لتبين للمستخدم هل تم النسخ ام لا

الخطوة التي لا احبذها لكنها ضرورية حتى نعرف نتحاشاها وهي ضمن حدث تحميل الفورم اكتب

كود :
Control.CheckForIllegalCrossThreadCalls = False

ارجو ان اكون قدمت لكم شيئا مفيدا
الدعاء لي والتقييم(هههههه طماع)
السلام عليكم ورحمة الله وبركاته

درس صنع اله حاسبه فيجوال البيسك 2010 شرح فديو وكتابي ومثال

Sat, 03 Aug 2013 02:39:30 +0000

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

حبيت اضع لكم شرح تصميم اله حاسبه بفيجوال البيسك 2010

الاكواد

زر جمع دبل كلك انسخ والصق

Dim x As Single
Dim y As Single
x = TextBox1.Text
y = TextBox2.Text
Label1.Text = x + y

زر ضرب دبل كلك انسخ والصق

Dim x As Single
Dim y As Single
x = TextBox1.Text
y = TextBox2.Text
Label1.Text = x * y

زر طرح دبل كلك انسخ والصق

Dim x As Single
Dim y As Single
x = TextBox1.Text
y = TextBox2.Text
Label1.Text = x - y

زر قسمه دبل كلك انسخ والصق

Dim x As Single
Dim y As Single
x = TextBox1.Text
y = TextBox2.Text
Label1.Text = x / y

زر خروج دبل كلك انسخ والصق

End

شرح فديو

http://www.youtube.com/watch?v=aM3G5eMjBoY

ملف المشروع

اتمنى ان اكون وفقت بالشرح

دعوه بظهر الغياب اطلبها منكم

تعطيل زر الموس الايمن c#

Thu, 01 Aug 2013 15:15:20 +0000

اولا اضافة interface IMessageFilter
الى الفورم فيصبح شكل تعريفه هكذا

كود :
public partial class myform: Form, IMessageFilter

في المشيد constructor

كود :
Application.AddMessageFilter(this);

            this.FormClosed += new FormClosedEventHandler(this.make_new_profile_FormClosed);

اضف هذه الدالة

كود :
public bool PreFilterMessage(ref Message m)

        {

            // Filter out WM_NCRBUTTONDOWN/UP/DBLCLK

            if (m.Msg == 0xA4 || m.Msg == 0xA5 || m.Msg == 0xA6) return true;

            // Filter out WM_RBUTTONDOWN/UP/DBLCLK

            if (m.Msg == 0x204 || m.Msg == 0x205 || m.Msg == 0x206) return true;

            return false;

        }

في الحدث FormClosed

كود :
Application.RemoveMessageFilter(this);