/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
gemme alt i programmet
Fra : Tina Hoffmann


Dato : 30-01-02 14:56

Jeg har lavet et program med mange text- og listboxe, og nu vil jeg gerne
kunne gemme de oplysninger som står i dem ved at trykke på en knap, men jeg
mangler en kode til det. Nogen forslag?



 
 
Carsten Suurland (30-01-2002)
Kommentar
Fra : Carsten Suurland


Dato : 30-01-02 15:16

Hej Tina

En nem måde at gøre det på, er ved hjælp af SaveSetting og GetSetting.
De gemmer i registreringsdatabasen (et sted oprettet specielt til VB
programmer)

Alternativt kan du gemme til en tekstfil.

/Carsten Suurland



Tomas Christiansen (30-01-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 30-01-02 23:10

Tina Hoffmann skrev:
> Jeg har lavet et program med mange text- og listboxe, og nu vil jeg
gerne
> kunne gemme de oplysninger som står i dem ved at trykke på en knap,
men jeg
> mangler en kode til det. Nogen forslag?

Du kan gennemgå hver eneste text- og listbox én efter én og gemme
indholdet i registreringbasen eller en fil (som Carsten S. så udmærket
foreslår). Dette er tungt og kedeligt, og når der kommer en ny box
til, glemmer du formentlig at tilføje den til din gemme rutine.

Hvis du derimod kun opretter ét control-array med textboxe og ét med
listboxe, kan du i gemme-rutinen (og i indlæsesningsrutinen) blot løbe
elementerne i array'et igennem. Tilføjes en ny f.eks. textbox, skal
din rutine naturligvis selv opdage dette og tage den med (Count
og/eller Ubound).

Så har du naturligvis problemet med at de alle hedder det samme (og
det kun er indexet, som varierer), men det kan man løse ved at oprette
et antal konstanter (eller enum's), som kan bruges til at "navngive"
boxene. F.eks. som her:

Enum TextBoxe
Input1 = 0
Input2 = 1
Resultat = 2
End Enum
...
Textbx(Resultat).Text = Textbx(Input1).Text & Textbx(Input2).Text

Det burde også være muligt at oprette variabler, og sætte dem til at
pege på boxene, men der skal man være lidt varsom, når man lukker
formen. Forkert brug kan hindre at formen forsvinder fra memory.
Eksempel:

Dim Input1 As TextBox
Dim Input2 As TextBox
Dim Resultat As TextBox

Set Input1 = Textbx(0)
Set Input2 = Textbx(1)
Set Resultat = Textbx(2)

Resultat.Text = Input1.Text & Input2.Text

En sidste udvej er naturlivis en skøn blanding af de hele krydret med
dine egne gode idéer.

God fornøjelse.

-------
Tomas


Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408885
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste