วิธีการใช้ตัวช่วยสร้างการปรับรุ่น Visual Basic

ในงานนี้

สรุป

บทความทีละขั้นตอนนี้อธิบายวิธีการสร้างโปรแกรมประยุกต์ Visual Basic 6.0 อย่างง่าย และจากนั้น ปรับรุ่นโปรแกรมประยุกต์ Visual Basic .NET หรือ Visual Basic 2005 โดยใช้ตัวช่วยสร้างการปรับรุ่นของ Visual Basic ใน Visual Studio .NET หรือ ใน Visual Studio 2005

หมายเหตุ Visual Basic .NET ปรับรุ่นตัวช่วยสร้างจะรวมอยู่ในระดับมืออาชีพ.NET Studio แสดงผล

หมายเหตุ  ตัวช่วยสร้างการปรับรุ่นของ 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 สิทธิ์ที่เหมาะสม และค่า UserID และรหัสผ่าน

จำเป็นต้องใช้ความรู้ก่อนหน้านี้:

  • ความรู้ทั่วไปเกี่ยวกับวิธีการสร้างโปรแกรมประยุกต์ โดยใช้ Visual Basic 6.0

ใช้ตัวช่วยสร้างการปรับรุ่น Visual Basic

ขั้นตอนต่อไปนี้แสดงวิธีการสร้างโปรแกรมประยุกต์ Visual Basic 6.0 อย่างง่าย และจากนั้น ปรับรุ่นโปรแกรมประยุกต์ Visual Basic .NET หรือ 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 เพื่อดึงข้อมูลเร็กคอร์ด และจากนั้น แสดงชุดระเบียนในตัวควบคุม Microsoft ชั้น FlexGrid ในฟิลด์ชื่อในกล่องโต้ตอบคุณสมบัติสำหรับ Form1 พิมพ์
    frmADO

  4. ถ้าไม่เปิดกล่องเครื่องมือ บนเมนูมุมมองคลิกเครื่องมือ

  5. จากกล่องเครื่องมือ ทำการMSHFlexGridบนแบบฟอร์มให้เต็มส่วนใหญ่ของแบบฟอร์ม ปล่อยที่ด้านล่างของแบบฟอร์มเมื่อต้องการวางปุ่มไว้เพียงพอ

    หมายเหตุ: ถ้าคุณไม่เห็นไอคอนMSHFlexGridในกล่องเครื่องมือ เพิ่มลงในกล่องเครื่องมือ คลิกขวาที่กล่องเครื่องมือ แล้ว คลิ กส่วนประกอบ ในกล่องโต้ตอบของคอมโพเนนต์คลิกเพื่อเลือกMicrosoft ชั้น FlexGrid ควบคุม 6.0 (OLEDB)จากรายการของคอมโพเนนต์ที่พร้อมใช้งาน และจากนั้น คลิกตกลง

  6. จากกล่องเครื่องมือ ทำการCommandButtonบนแบบฟอร์มด้านล่าง MSHFlexGrid ในฟิลด์คำอธิบายในกล่องโต้ตอบคุณสมบัติพิมพ์ตกลง

  7. คลิกขวาที่mADOและจากนั้น คลิกรหัสของมุมมอง เพิ่มในรหัสต่อไปนี้ ซึ่งสร้างการเชื่อมต่อฐานข้อมูล และส่งกลับชุดระเบียนที่ประกอบด้วยข้อมูลจากตารางของฐานข้อมูล Northwindผลิตภัณฑ์ทั้งหมด

    หมายเหตุ: ในโค้ดตัวอย่างต่อไปนี้ คุณต้องเปลี่ยนid ผู้ใช้<ชื่อผู้ใช้ > =และ
    รหัสผ่าน =<รหัสผ่านที่คาดเดายาก > เป็นค่าที่ถูกต้อง ตรวจสอบให้แน่ใจว่า ID ผู้ใช้ที่มีสิทธิ์ที่เหมาะสมในการดำเนินการนี้กับฐานข้อมูล

    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. ในตัวสำรวจโครงการ คลิกขวาProject1คลิกเพิ่มแล้ว คลิ กแบบฟอร์ม คลิกเปิด

  10. ในฟิลด์ชื่อในกล่องโต้ตอบคุณสมบัติพิมพ์frmClipboard

  11. จากกล่องเครื่องมือ ทำเป็นกล่องข้อความบนแบบฟอร์ม ในฟิลด์ข้อความพิมพ์fox น้ำตาลรวดเร็วข้ามไปปราด

  12. วางCommandButtonใต้กล่องข้อความ ในฟิลด์คำอธิบายในกล่องโต้ตอบคุณสมบัติพิมพ์สำเนา

  13. ตำแหน่งที่สองCommandButtonบนแบบฟอร์ม ในฟิลด์คำอธิบายในกล่องโต้ตอบคุณสมบัติพิมพ์วาง

  14. คลิกขวาที่frmClipboardและจากนั้น คลิกรหัสของมุมมอง วางรหัสต่อไปนี้สำหรับการ 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. แบบฟอร์มล่าสุดที่คุณจำเป็นต้องมีฟอร์มหลักของแอพลิเคชัน ในตัวสำรวจโครงการ คลิกขวาProject1คลิกเพิ่มคลิกแบบฟอร์มแล้ว คลิ กเปิด

  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. ในตัวสำรวจโซลูชัน คลิกขวาProject1และจากนั้น คลิกคุณสมบัติ Project1 ในฟิลด์เริ่มต้นวัตถุคลิก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 Files\Microsoft Visual Studio\VB98) คลิProject1.vdpและจากนั้น คลิกเปิด

  29. Visual Studio .NET ตรวจสอบว่า นี่เป็นโครงการ Visual Basic ดั้งเดิม และเริ่มตัวช่วยสร้างการปรับรุ่น Visual Basic ดังนั้น ตัวช่วยสร้างแสดงคำอธิบายของแต่ละขั้นตอนในขณะที่คุณดำเนินการตามขั้นตอนต่าง ๆ ในลำดับต่อไปนี้:

    • สร้างโครงการใหม่ที่ปรับโครงการของคุณที่มีอยู่

    • คัดลอกแฟ้มฟอร์มและคลาแฟ้มลงในโครงการใหม่

    • แสดงรายงานการปรับรุ่นที่แสดงรายการส่วนประกอบของโครงการที่ได้รับการปรับรุ่นเสร็จเรียบร้อยแล้วและคอมโพเนนต์ที่ไม่ได้ปรับรุ่นเสร็จสมบูรณ์แล้ว


  30. คลิกถัดไปโดยแต่ละขั้นตอนจนกว่าเริ่มต้นกระบวนการอัพเกรด การปรับรุ่นใช้เวลาประมาณ 30-60 วินาทีเพื่อให้เสร็จสมบูรณ์

  31. ในตัวสำรวจโซลูชัน คลิกสองครั้งที่_UpgradeReport.htm รายงานนี้แสดงผลลัพธ์ของการอัพเกรด โปรดสังเกตว่า แบบฟอร์มยกเว้น frmClipboard ทั้งหมดปรับรุ่น โดยไม่มีปัญหาใด ๆ

  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 Developer Network (MSDN) ต่อไปนี้:



ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ขยายทักษะของคุณ
สำรวจการฝึกอบรม
รับฟีเจอร์ใหม่ก่อนใคร
เข้าร่วม Microsoft Insider

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×