كيفية استخدام معالج ترقية Visual Basic

ملخص

توضح هذه المقالة خطوة بخطوة كيفية إنشاء تطبيق Visual Basic 6.0 بسيط وترقية التطبيق إلى.NET في Visual Basic أو Visual Basic 2005 ثم باستخدام معالج ترقية Visual Basic في Visual Studio.NET أو في Visual Studio 2005.

ملاحظة: يتم تضمين معالج ترقية Visual Basic.NET في Visual Studio.NET الفئة الفنية.

ملاحظة: تم تحسين Visual Basic 2005 معالج الترقية من الإصدارات السابقة من Visual Basic.

متطلبات

وصف الأجهزة الموصى بها، البرامج، البنية الأساسية للشبكة، والمهارات والمعارف وحزم الخدمة ستحتاج للعناصر التالية:
  • نظام التشغيل Microsoft Windows 2000 Professional (أو ملقم)، أو نظام التشغيل Microsoft Windows XP Professional (أو ملقم) مع.NET Framework المثبتة
  • Microsoft Visual Basic 6.0
  • Microsoft SQL Server 7.0 أو ما بعدة بقاعدة بيانات Northwind والأذونات المناسبة وقيم معرف المستخدم وكلمة المرور
المعرفة المسبقة المطلوبة:
  • معرفة كيفية إنشاء تطبيقات باستخدام Visual Basic 6.0 عام

استخدم معالج ترقية Visual Basic

تظهر الخطوات التالية كيفية إنشاء تطبيق Visual Basic 6.0 بسيط، وترقية التطبيق إلى.NET في Visual Basic أو Visual Basic 2005 ثم باستخدام معالج ترقية Visual Basic في Visual Studio.NET أو في Visual Studio 2005:
  1. من القائمة ابدأ ، أشر إلى البرامج، أشر إلى Microsoft Visual Studio 6.0، وثم انقر فوق Microsoft Visual Basic 6.0.
  2. في مربع الحوار مشروع جديد ، انقر فوق EXE قياسي، ومن ثم انقر فوق فتح.
  3. النموذج الأول في هذا التطبيق يستخدم ADO لاسترداد مجموعة سجلات، ويعرض مجموعة السجلات في عنصر تحكم FlexGrid هيكلية في Microsoft. في حقل الاسم في مربع الحوار خصائص ل Form1، اكتب
    فرمادو.
  4. في حالة عدم فتح مربع الأدوات، من القائمة عرض ، انقر فوق مربع الأدوات.
  5. من مربع الأدوات، وضع MSHFlexGrid على النموذج حتى تملأ معظم النموذج. ترك مساحة كافية في الجزء السفلي من النموذج لوضع زر.

    ملاحظة: إذا لم تشاهد رمز MSHFlexGrid في مربع الأدوات، إضافتها إلى مربع الأدوات. زر الماوس الأيمن فوق مربع الأدوات ومن ثم انقر فوق المكونات. في مربع الحوار المكونات ، انقر لتحديد Microsoft الهرمي FlexGrid التحكم 6.0 (OLEDB) من قائمة المكونات المتوفرة ومن ثم انقر فوق موافق.
  6. من مربع الأدوات، وضع CommandButton على النموذج التالي MSHFlexGrid. في الحقل تسمية توضيحية لمربع الحوار خصائص ، اكتب "موافق".
  7. انقر بالزر الأيمن مادوومن ثم انقر فوق عرض التعليمات البرمجية. إضافة التعليمات البرمجية التالية, الذي يقوم بإنشاء اتصال قاعدة بيانات بإرجاع سجلات التي تحتوي على كافة البيانات من الجدول " منتجات " بقاعدة بيانات Northwind.

    ملاحظة: في نموذج التعليمات البرمجية التالي، يجب تغيير معرف المستخدم =< اسم المستخدم > و
    كلمة المرور => كلمة مرور قوية < إلى القيم الصحيحة. تأكد من أن معرف المستخدم لديه الأذونات المناسبة لإنجاز هذه العملية على قاعدة البيانات.
    Private Sub Command1_Click()    Unload Me
    End Sub

    Private Sub Form_Load()
    Dim cn As Connection
    Set cn = New Connection
    cn.ConnectionString = "Provider=sqloledb;Data Source=localhost;database=northwind;user id=<username>;password=<strong password>"
    cn.Open

    Dim rs As Recordset
    Set rs = New Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select * from products", cn

    Set MSHFlexGrid1.DataSource = rs
    End Sub

  8. اضغط على CTRL + S لحفظ النموذج. من القائمة ملف ، انقر فوق حفظ باسم. في مربع الحوار حفظ باسم ، انقر فوق حفظ.
  9. في "مستكشف المشاريع"، انقر نقراً مزدوجاً فوق مشروع 1انقر فوق إضافةوثم انقر فوق النموذج. انقر فوق فتح.
  10. في حقل الاسم مربع الحوار خصائص ، اكتب فرمكليببوارد.
  11. من مربع الأدوات، ضع مربع النص في النموذج. في حقل النص ، اكتب قفز الثعلب البنى السريع فوق الكلب الكسول.
  12. ضع CommandButton أسفل مربع النص. في الحقل تسمية توضيحية لمربع الحوار خصائص ، اكتب نسخة.
  13. وضع ثاني CommandButton على النموذج. في الحقل تسمية توضيحية لمربع الحوار خصائص ، اكتب لصق.
  14. انقر نقراً مزدوجاً فوق فرمكليببواردومن ثم انقر فوق عرض التعليمات البرمجية. لصق التعليمات البرمجية التالية CommandButton انقر فوق أحداث. يستخدم رمز حافظة هذا الكائن إلى الحصول على النص ولصقه:
    Private Sub Command1_Click()    Clipboard.SetText Text1.SelText
    End Sub

    Private Sub Command2_Click()
    Text1.SelText = Clipboard.GetText
    End Sub

  15. اضغط على CTRL + S لحفظ النموذج.
  16. تحتاج النموذج الأخير هو النموذج الرئيسي للتطبيق. في "مستكشف المشاريع"، زر الماوس الأيمن فوق مشروع 1، انقر فوق إضافة، انقر فوق نموذج، ثم انقر فوق فتح.
  17. في حقل الاسم مربع الحوار خصائص ، اكتب frmMain.
  18. من مربع الأدوات، ضع CommandButton على النموذج frmMain. في الحقل تسمية توضيحية لمربع الحوار خصائص ، اكتب ADO.
  19. وضع ثاني CommandButton على النموذج. في الحقل تسمية توضيحية لمربع الحوار خصائص ، اكتب "الحافظة".
  20. انقر نقراً مزدوجاً فوق frmMainومن ثم انقر فوق عرض التعليمات البرمجية. لصق التعليمات البرمجية التالية CommandButton انقر فوق الأحداث لإظهار كلا الشكلين الآخرين:
    Private Sub Command1_Click()    frmADO.Show
    End Sub

    Private Sub Command2_Click()
    frmClipboard.Show
    End Sub

  21. اضغط على CTRL + S لحفظ النموذج.
  22. في "مستكشف الحلول"، انقر نقراً مزدوجاً فوق مشروع 1، ومن ثم انقر فوق خصائص مشروع 1. في حقل كائن بدء التشغيل ، انقر فوق frmMain، ومن ثم انقر فوق موافق.
  23. لإضافة مرجع إلى مكون ADO، ضمن القائمة مشروع ، انقر " مراجع". في قائمة المراجع المتوفرة، انقر لتحديد مكتبة كائنات بيانات ActiveX Microsoft (سوف تفعل أي إصدار 2.0 أو الإصدار الأحدث). انقر فوق موافق.
  24. للتحويل البرمجي للمشروع، من القائمة ملف ، انقر فوق جعله Project1.exe. في مربع الحوار إنشاء مشروع ، انقر فوق "موافق" (قبول اسم الملف الافتراضي).
  25. اضغط F5 لتشغيل التطبيق في وضع التصحيح.

    ملاحظة: لا تحتاج إلى التحقق من تشغيل تطبيق Visual Basic القديمة دون أية مشاكل قبل الترقية.
  26. إغلاق بيئة التطوير Visual Basic. عند مطالبتك بحفظ التغييرات إلى المشروع، انقر فوق " نعم". استخدام الاسم الافتراضي وحفظ المشروع.
  27. من القائمة ابدأ ، أشر إلى البرامج، أشر إلى Microsoft Visual Studio.NETوثم انقر فوق Microsoft Visual Studio.NET.
  28. في "الصفحة الرئيسية"، انقر فوق فتح المشروع. حدد موقع المجلد الذي يحتوي على ملف مشروع Visual Basic 6.0 الذي أنشأته للتو (عادة C:\Program مايكروسوفت البصرية Studio\VB98). انقر فوق Project1.vdp، ومن ثم انقر فوق فتح.
  29. Visual Studio.NET بالكشف عن هذا هو مشروع Visual Basic قديمة وبدء تشغيل معالج ترقية Visual Basic. يعرض المعالج وصفاً لكل خطوة أثناء متابعة الخطوات الموجودة في التسلسل التالي:
    • إنشاء مشروع جديد يتم ترقية المشروع الموجودة فيه.
    • نسخ ملفات النموذج في المشروع الجديد.
    • يوفر تقرير ترقية الذي يسرد عناصر المشروع التي تم ترقيتها بنجاح والمكونات التي لم الترقية بنجاح.

  30. انقر فوق التالي خلال كل خطوة من الخطوات حتى بدء عملية الترقية. تستغرق حوالي 30 إلى 60 ثانية لإكمال عملية الترقية.
  31. في "مستكشف الحلول"، انقر نقراً مزدوجاً فوق _UpgradeReport.htm. يعرض هذا التقرير نتائج عملية الترقية. لاحظ كافة النماذج فيما عدا فرمكليببوارد الترقية دون أية مشاكل.
  32. قم بتوسيع frmClipboard.vb عرض المشاكل. عدم ترقية Clipboard.SetText و GetText بشكل صحيح. انقر فوق الارتباطات الموجودة في وصف لعرض كيفية تصحيح المشكلات.
  33. في "مستكشف الحلول"، لاحظ أن كافة النماذج الاحتفاظ بأسمائها الأصلية، ولكن تم تغيير ملحق الملف من. frm ل. vb.
  34. قم بتوسيع المراجع. تمت إضافة ملاحظة تشير إلى كافة المكونات اللازمة لاستخدام Visual Basic القديمة ومكونات ADO تلقائياً.
  35. انقر نقراً مزدوجاً فوق أي شكل من الأشكال، ومن ثم انقر فوق عرض التعليمات البرمجية. قم بتوسيع المنطقة دعم الترقية . يعرض هذا الجزء كيفية تكوين Visual Studio.NET أو Visual Studio 2005 مختلف الخصائص والمتغيرات لدعم تعليمات برمجية تمت ترقيتها.
  36. في "مستكشف الحلول"، انقر نقراً مزدوجاً فوق frmClipboard.vb، ومن ثم انقر فوق عرض التعليمات البرمجية. لاحظ عدم وجود تعليقات وضع قبل البنود التي لا الترقية.
  37. تغيير الأحداث Command1_Click و Command2_Click لما يلي:
    Private Sub Command1_Click(ByVal eventSender As System.Object, _    ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Clipboard.SetDataObject(Text1.Text)
    End Sub

    Private Sub Command2_Click(ByVal eventSender As System.Object, _
    ByVal eventArgs As System.EventArgs) Handles Command2.Click
    Text1.SelectedText = _
    Clipboard.GetDataObject().GetData(GetType(System.String))
    End Sub

قوائم اكتمال التعليمات البرمجية

أكمل رمز إدخالات القوائم (frmADO.frm)

Private Sub Command1_Click()    Unload Me
End Sub

Private Sub Form_Load()
Dim cn As Connection
Set cn = New Connection
cn.ConnectionString = "Provider=sqloledb;Data Source=localhost;database=northwind;user id=<username>;password=<strong password>"
cn.Open

Dim rs As Recordset
Set rs = New Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from products", cn

Set MSHFlexGrid1.DataSource = rs
End Sub

أكمل رمز إدخالات القوائم (frmClipboard.frm)

Private Sub Command1_Click()    Clipboard.SetText Text1.SelText
End Sub

Private Sub Command2_Click()
Text1.SelText = Clipboard.GetText
End Sub

Complete Code Listing (frmMain.frm)
Private Sub Command1_Click()
frmADO.Show
End Sub

Private Sub Command2_Click()
frmClipboard.Show
End Sub

تحقق من أن يعمل التطبيق

  1. اضغط F5 لتشغيل التطبيق.
  2. عند مطالبتك بحفظ المشروع، انقر فوق "موافق".
  3. في Form1، انقر فوق ADO. يظهر نموذج يحتوي على بيانات في شبكة. قم بإغلاق هذا النموذج.
  4. في Form1، انقر فوق الحافظة.
  5. انقر فوق نسخ.
  6. ضع نقطة الإدراج في مربع النص في البداية النص، ومن ثم انقر فوق لصق. يجب أن تشاهد النص الذي تم لصقه.

استكشاف الأخطاء وإصلاحها

Visual Basic.NET يتم تحول كبير من الإصدارات السابقة من Visual Basic. للعديد من المشاريع، بعض الأعمال التحضيرية الشاملة من المستحسن قبل الترقية. الرجوع إلى المستند التالي للحصول على المعلومات التي قد تساعدك على الترقية بسهولة:

المراجع

لمزيد من المعلومات، راجع المقالات شبكة مطوري Microsoft (MSDN) التالية:
خصائص

رقم الموضوع: 317885 - آخر مراجعة: 19‏/01‏/2017 - المراجعة: 1

Microsoft Visual Basic 2005, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft .NET Framework 1.1

تعليقات