|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man använder TreeView för att besöka öppna andra arbetsböcker

    Att veta hur man använder en trädvy för att navigera genom mappar och öppna Microsoft Excel-filer Arbetsbok kan spara tid när du söker specifikt för arbetsböcker . Du kan skapa ett Microsoft Visual Basic.NET ( VB.NET ) projekt för att utföra denna uppgift . VB.NET är ett objektorienterat dator programmeringsspråk som används för att skapa Windows-program . En TreeView kontroll används ofta för att navigera genom en mappstruktur . I några få steg kan du skapa ett VB.NET projekt för att söka efter Excel-filer och öppna dem med TreeView kontroll . Saker du behöver
    Microsoft Visual Basic Express
    Visa fler instruktioner
    1

    Starta Microsoft Visual Basic Express , klicka på " Nytt projekt ... " På den vänstra rutan på skärmen och välj sedan " Windows Forms Application . " Klicka på " OK . "
    2

    Dubbelklicka på " TreeView " på " Toolbox " rutan för att lägga till en ny trädvy kontroll . Dubbelklicka på " Form1 " för att öppna " Form1.vb " modul .
    3

    Skriv följande under " Form1_Load " för att definiera källa väg att börja söka och lägga till den första noden :

    Dim frstNode Som New System.Windows.Forms.TreeNode ( ) katalog

    frstNode.ImageIndex = 0

    frstNode.SelectedImageIndex = 0

    frstNode . text = " G : \\ "

    TreeView1.Nodes.Add ( frstNode )
    4

    klicka på " Form1.vb [ Design ] " och dubbelklicka på " TreeView " kontroll . Skriv följande för att lägga till kataloger och filer med kontrollen :

    Dim obj Som Ny Process

    Text = e.Node.Text
    p Om Directory.Exists ( e.Node . Text ) = sant då

    getFiles ( e.Node , e.Node.Text ) katalog

    End If
    p Om File.Exists ( e.Node.Text ) = sant då

    obj.Start ( e.Node.Text , AppWinStyle.MaximizedFocus ) katalog

    End If
    5

    Skriv följande i " Public Class Form1 " till skapa en ny subrutin som kommer att söka efter kataloger och filer :

    Private Sub getFiles ( ByVal pNode som TreeNode , ByVal dirStr As String ) katalog

    Dim mydir som Directory

    Dim iCnt As Integer

    För iCnt = 0 till ( myDir.GetDirectories ( dirStr ) Längd . ) - 1

    Dim childNode som New _

    TreeNode ( myDir.GetDirectories ( dirStr ) ( iCnt ) . ToString , 1 , 0 ) katalog

    iCnt = pNode.Nodes.Add ( childNode ) katalog

    Nästa iCnt

    För iCnt = 0 till ( myDir.GetFiles ( dirStr , " *. xls " ) Längd ) - . 1

    Dim childNode Som New _

    TreeNode ( myDir.GetFiles ( dirStr , " * xls . " ) ( iCnt ) toString , . 2 , 2 ) katalog

    iCnt = pNode.Nodes.Add ( childNode ) katalog

    Nästa iCnt

    pNode.Expand ( ) katalog

    End Sub

    6

    Tryck " F5 " för att köra din subrutin klicka en Excel -fil för att öppna den . Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man beräknar tid i VB6
    ·Så här öppnar du Word-tabeller Använda Excel VBA
    ·Hur man fråga en HTML Body i LINQ
    ·Vad är Mswinsck.ocx
    ·Hur konvertera ett heltal till en sträng i Visual Basi…
    ·Hur man skriver VBA -kod
    ·Hur man skapar en Data Grid i Visual Basic
    ·Konvertera ett brev till ett antal i Visual Basic ( VB …
    ·Skriva ut utan radmatning i Visual Basic
    ·Hur man byter Streck i Visual Basic
    Utvalda artiklarna
    ·Hur man skapar JQuery händelsehanterare
    ·Hur man använder en GDB Simulator
    ·Hur man använder Dwgthumbnail.Ocx i Visual Basic
    ·Hur Echo en bild i PHP
    ·Konvertera DirectX Stereoscopic Tri Vert
    ·Hur man skriver Ladder Logic Använda Visual Basic
    ·Funktionsprototyp i Python
    ·Vad är en gles Array i MATLAB
    ·Ta reda på sidantal för Print Dialog i VB.NET
    ·Inaktivera muspekaren med VBA i Word
    Copyright © Dator Kunskap http://www.dator.xyz