Cum să utilizați Expertul Upgrade Visual Basic

Traduceri articole Traduceri articole
ID articol: 317885 - View products that this article applies to.
Măriți totul | Reduceți totul

În această pagină

REZUMAT

Acest articol etapizat explică modul de a crea un simplu Aplicația Visual Basic 6.0, și apoi atunci upgrade aplicarea la Visual Basic .Net sau Visual Basic 2005 utilizând Expertul Upgrade Visual Basic, în Visual Studio .net sau în Visual Studio 2005.

Notă Visual Basic .net Upgrade Expertul este inclusă în Visual Studioul .net Professional.

Notă Expertul Visual Basic 2005 upgrade-ul a fost îmbunătățit din versiuni anterioare ale Visual Basic.

Cerin?ele

Următoarele puncte descriu hardware recomandate, software-ul, infrastructura re?elei, abilități, cunoștințe și pachete de service va trebui:
  • Microsoft Windows 2000 Professional (sau Server), sau Microsoft Windows XP Professional (sau Server) cu .NET Framework instalat
  • Microsoft Visual Basic 6.0
  • Microsoft SQL Server 7.0 sau ulterior cu Northwind bază acoperire de date, permisiunile corespunzătoare și valorile UserID și parola
Cunoștințe anterioare necesare:
  • Cuno?tin?e generale în domeniul cum pentru a crea aplicații utilizând Visual Basic 6.0

Utilizați Expertul actualizare Visual Basic

Următorii pași vă arăta cum să creați un simplu Visual Basic aplicarea 6.0, și apoi upgrade aplica?ia Visual Basic .net sau Visual Basic 2005 utilizând Visual Basic actualizare Expertul în Visual Studio .net sau în Visual Studio 2005:
  1. Din meniul Start , indicați programe, indicați spre Microsoft Visual Studio 6.0și apoi faceți clic pe Microsoft Visual Basic 6.0.
  2. În casetă de dialog Nou proiect , faceți clic pe Standard EXEși apoi faceți clic pe Deschidere.
  3. Prima formă în această aplicație utilizează ADO pentru a regăsi o Recordset, apoi afișează înregistrări într-un Microsoft ierarhică FlexGrid Controlul. În câmpul Nume din casetă de dialog Proprietăți pentru Form1, tastațifrmADO.
  4. Dacă caseta de instrumente nu este deschis, în meniul vizualizare Proiect , faceți clic pe caseta de instrumente.
  5. Din caseta de instrumente, se plasează un MSHFlexGrid pe formular, astfel încât se umple cea mai mare parte a formularului. Lăsați spațiu suficient în The Bottom a formularului pentru a plasa un buton.

    Notă: dacă nu vedeți pictograma MSHFlexGrid din caseta de instrumente, adăugați-l la caseta de instrumente. Faceți clic dreapta pe Set de instrumente și apoi faceți clic pe componente. În casetă de dialog componente , faceți clic și selectați Microsoft ierarhică FlexGrid Control 6.0 (OLEDB) din Listă tabel de componente disponibile și faceți clic pe OK.
  6. Din caseta de instrumente, plasați un CommandButton pe formularul de mai jos MSHFlexGrid. În câmpul Legendă din casetă de dialog Proprietăți , tastați ok.
  7. Faceți clic dreapta pe mADO, și apoi faceți clic pe vizualizare Proiect cod. Adăugați următorul cod, care creează o conexiune acoperire de date și returnează un set de înregistrări care conține toate datele din tabelul Products din baza acoperire de date Northwind.

    Notă: în următoarele mostre de cod, trebuie să modificați ID utilizator =<username></username> și parola =<strong password=""></strong> la valorile corecte. Asigurați-vă că ID-ul utilizatorului are permisiunile corespunzătoare pentru efectuarea acestei operații în baza acoperire de date.
    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. Apăsați CTRL + S pentru a salva formularul. Din meniul Fișier , faceți clic pe Salvare ca. În casetă de dialog Salvare ca , faceți clic pe Salvare.
  9. În Project Explorer, faceți clic dreapta pe Project1, faceți clic pe Adăugareși apoi faceți clic pe formular. Faceți clic pe Deschidere.
  10. În câmpul Nume din casetă de dialog Proprietăți , tastați frmClipboard.
  11. Din caseta de instrumente, plasați o casetă text din formular. În câmpul Text , introduceți Agera vulpe sărit peste leneș câine.
  12. Plasați un CommandButton mai jos casetă text. În câmpul Legendă din casetă de dialog Proprietăți , tastați Copie.
  13. Plasați un al doilea CommandButton din formular. În câmpul Legendă din casetă de dialog Proprietăți , tastați Lipire.
  14. Faceți clic dreapta pe frmClipboard, și apoi faceți clic pe vizualizare Proiect cod. Lipiți următorul cod pentru CommandButton, faceți clic pe evenimente. Utilizează acest cod în Clipboard obiect să obțineți și lipiți textul:
    Private Sub Command1_Click()
        Clipboard.SetText Text1.SelText
    End Sub
    
    Private Sub Command2_Click()
        Text1.SelText = Clipboard.GetText
    End Sub
    					
  15. Apăsați CTRL + S pentru a salva formularul.
  16. Ultima forma aveți nevoie este principala formă de aplicare. În Project Explorer, faceți clic dreapta pe Project1, faceți clic pe Adăugare, faceți clic pe formularși apoi faceți clic pe Deschidere.
  17. În câmpul Nume din casetă de dialog Proprietăți , tastați frmMain.
  18. Din caseta de instrumente, plasați un CommandButton pe forma frmMain. În câmpul Legendă din casetă de dialog Proprietăți , tastați ADO.
  19. Plasați un al doilea CommandButton din formular. În câmpul Legendă din casetă de dialog Proprietăți , tastați Clipboard-ul.
  20. Faceți clic dreapta pe frmMain, și apoi faceți clic pe vizualizare Proiect cod. Lipiți următorul cod pentru CommandButton click evenimente, pentru a Arată alte două forme:
    Private Sub Command1_Click()
        frmADO.Show
    End Sub
    
    Private Sub Command2_Click()
        frmClipboard.Show
    End Sub
    					
  21. Apăsați CTRL + S pentru a salva formularul.
  22. În explorator soluție, faceți clic dreapta pe Project1, și apoi faceți clic pe Proprietăți Project1. În câmpul Obiect de pornire , faceți clic pe frmMainși apoi faceți clic pe OK.
  23. Pentru a adăuga o trimitere la componenta ADO, din meniul proiect , faceți clic pe referințe. În Listă tabel de referințe disponibile, faceți clic pentru a selecta bibliotecă de obiecte Microsoft ActiveX date (orice versiunea 2.0 sau mai târziu va face). Faceți clic pe OK.
  24. Pentru a compila proiectului, din meniul Fișier , faceți clic pe Face Project1.exe. În casetă de dialog Face proiect , faceți clic pe OK (accepta nume de sign-in implicit de fișier).
  25. Apăsați F5 pentru a rula aplicația în modul debug.

    Notă: nu este nevoie pentru a verifica dacă moștenire Visual Basic cererea se execută fără probleme înainte să faceți upgrade.
  26. Închideți mediul de dezvoltare Visual Basic. La se solicită să salvați modificările aduse proiectului, faceți clic pe Da. Utilizați nume de sign-in implicit și a salva proiectul.
  27. Din meniul Start , indicați programe, indicați spre Microsoft Visual Studio .NETși apoi faceți clic pe Microsoft Visual Studio .NET.
  28. Pagina de Start, faceți clic pe Open Project. Găsiți folderul care conține proiectul Visual Basic 6.0 Fișier care tocmai ați creat (de obicei C:\Program Files\Microsoft vizuale Studio\VB98). Faceți clic pe Project1.vdp, și apoi faceți clic pe Deschidere.
  29. Visual Studio .net detectează că aceasta este o moștenire Visual Proiect de bază și pornește expertul Upgrade Visual Basic. Expertul afișează o descrierea fiecărei trepte așa cum ați parcurge etapele, în următoarele secvență:
    • Creați un nou proiect în care dvs. existente de proiect este actualizat.
    • Copiați fișierele de clasă și fișiere formular în noul proiect.
    • Furnizează un raport de actualizare care listează componentele Proiectul actualizat cu succes și componentele care nu a făcut upgrade cu succes.

  30. Faceți clic pe Următorul prin fiecare dintre pașii până când începe procesul de upgrade. The upgrade-ul durează aproximativ 30-60 secunde pentru a finaliza.
  31. În explorator soluție, faceți dublu clic pe _UpgradeReport.htm. Acest raport afișează rezultatele upgrade-ul. Re?ine?i c? toate forme cu excepția frmClipboard actualizat fără probleme.
  32. Expandați frmClipboard.vb pentru a vedea problemele. Nu Clipboard.SetText și GetText upgrade corect. Faceți clic pe legăturile din Descriere pentru a vedea cum se corectează problemele.
  33. În Explorer soluție, rețineți că toate formele păstrate nume de sign-in lor inițiale, dar extensia de fișier este schimbat de la .frm la . vb.
  34. Extindeți referințe. Rețineți că trimiterile la toate elementele necesare pentru a utiliza componente Visual Basic și ADO moștenire au fost adăugate automat.
  35. Faceți clic dreapta pe unul dintre formularele, și apoi faceți clic pe vizualizare Proiect cod. Extindeți regiunea Upgrade suport . Această zonă afișează modul Visual Studio .net sau Visual Studio 2005 configurate diverse proprietăți și variabile pentru a sprijini codul modernizate.
  36. În explorator soluție, faceți clic dreapta pe frmClipboard.vb, și apoi faceți clic pe vizualizare Proiect cod. Rețineți că există comentarii plasate înainte de liniile care a făcut nu upgrade.
  37. Modificați evenimentele Command1_Click și Command2_Click la următoarele:
    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
    					

Completa codul Listings

Completa codul listarea (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
				

Completa codul listarea (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
				

Verificați că aplicarea funcționează

  1. Apăsați F5 pentru a porni aplica?ia.
  2. La promptul pentru a salva proiectul, faceți clic pe OK.
  3. Form1, faceți clic pe ADO. Un formular apare care conține date într-o grilă. Închideți acest lucru formular.
  4. Form1, faceți clic pe Clipboard.
  5. Faceți clic pe Copiere.
  6. Plasați punctul de inserție în caseta text de la începutul de text, și apoi faceți clic pe Lipire. Tu trebiue a vedea textul lipit.

Depanare

Visual Basic .net este o schimbare majoră la versiunile anterioare ale Visual Basic. Pentru mai multe proiecte, unele lucrări de pregătire extinse se recomandă înainte tu upgrade. Se referă la următorul document pentru informații care pot vă ajuta să faceți upgrade mai ușor:
Lucrurile pentru a luați în considerare înainte de înnoire

REFERINȚE

Pentru mai multe informații, consultați următoarele Microsoft Developer Articole de rețea (MSDN):
Pregătirea aplicațiile Visual Basic 6.0 pentru upgrade-ul la Visual Basic.NET

Upgrade aplica?ii create în versiuni anterioare de Visual Basic

Proprietă?i

ID articol: 317885 - Ultima examinare: 2 iulie 2012 - Revizie: 1.0
SE APLICĂ LA:
  • 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
Cuvinte cheie: 
kbvs2005swept kbvs2005applies kbmigration kbhowtomaster kbmt KB317885 KbMtro
Traducere automată
IMPORTANT: Acest articol a fost tradus de software-ul de traducere automată Microsoft, si nu de un traducător. Microsoft vă oferă atât articole traduse de persoane, cât și articole traduse automat, astfel incat aveti access la toate articolele din Baza noastră de informatii în limba dvs. materna. Totuși, un articol tradus automat nu este întotdeauna perfect. Acesta poate conține greșeli de vocabular, sintaxă sau gramatică, la fel cum un vorbitor străin poate face greșeli vorbind limba dvs. materna. Compania Microsoft nu este responsabilă pentru nici o inexactitate, eroare sau daună cauzată de traducerea necorespunzătoare a conținutului sau de utilizarea traducerii necorespunzătoare de către clienții nostri. De asemenea, Microsoft actualizează frecvent software-ul de traducere automată.
Face?i clic aici pentru a vizualiza versiunea în limba engleză a acestui articol: 317885

Trimite?i feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com