Visual Basic ( VB ) bevat een interne voorwerp een zogenaamde " Common Dialog . " Dit venster biedt gebruikers een " Save " dialoog , waar ze kunnen benoemen en opslaan van een bestand op de harde schijf . Het dialoogvenster object wordt gespeeld op een Windows- formulier met een tekstvak en de knop "Bladeren" . Gebruikers kiezen voor een locatie en een bestandsnaam , het is opgeslagen in dit tekstvak en vervolgens op de harde schijf . U kunt dit object te plaatsen op uw Windows- formulier naar een snelle manier om bestanden op te slaan in uw code te voorzien . Instructies
1 Maak een nieuw dialoogvenster object . Elk object dat u in het VB- taal te gebruiken moet eerst een definitie en toewijzing aan een variabele . De volgende code maakt uw VB- object : Dim dialoogvenster
Zoals CommonDialog kopen van 2 Stel het dialoogvenster eigenschappen . De eerste eigenschap stelt de tekst gezien boven het dialoogvenster . De tweede filters het typen bestandsextensies toegestaan. Bijvoorbeeld, als uw aanvraag kunnen alleen gebruikers op te slaan als tekstbestand , het filter laat alleen " * . Txt " in het " Opslaan als type " drop -down box . De volgende code stelt uw VB " Opslaan " eigenschappen : dialog.DialogTitle
= " Save Your File " dialog.Filter = " Text File ( * txt . ) "
3 Toon het dialoogvenster voor de gebruiker . Het dialoogvenster wordt ingesteld , maar het is niet zichtbaar voor de gebruiker totdat u het handmatig geven . De volgende code toont het venster aan de gebruiker : dialog.ShowSave
Het dialoogvenster wordt geopend met behulp van deze code , en wanneer de gebruiker klikt op " Opslaan ", het bestand wordt opgeslagen op de harde schijf .
4 Laat een bericht als er een fout of de gebruiker annuleert het opslaan . De volgende code geeft een waarschuwing als de functie opslaan mislukt :
Als Err ThenMsgbox " Er was een fout bij het opslaan van uw bestand " End If
|
