VB problemer

Hvis du skal gemme noget fra gang til gang, skal du gøre det i en fil.
(Det er faktisk det, de er opfundet til ;-) )

Men jeg kan godt se hvorfor det ville være rart, hvis man havde muligheden.
Problemet er at inital værdien ligge i programkoden, og hvis du kal ændre den fra kørsel til kørsel, så skal du ind og modificere i selve programmet, på kørselstidpunktet. (det kan man godt, det er bare ikke nemt).

Hej.

Du kan jo gemme i 'Registry' som der jævnligt her har været spørgsmål om.  Jeg anvender ascii-filer.  Hvis der er en slags konfiguration kunne du jo kalde den .ini - jeg gør.

Dim a as Integer, ini(20) as String

under form_load
Open app.path & "\ditprogram.ini" for input as #1
  Do While EOF(1) = false
    Line Input #1, ini(a)
    a = a + 1
    if a = 20 Then Exit Do
  Loop
Close #1

  text1.text = ini(0)                ' o.s.v.

  Så kan du have 20 initierings-værdier, placering på skærm, check-boks værdier o.s.v.

under form query unload

  Open app.path & "\ditprogram.ini" for Output as #1
    For a = 0 to 19
      print #1, ini(a) 
    Next a
  Close #1

  Det kræves selvfølgelig at ini(0), ini(1) o.s.v undervejs er blevet tildelt
de rette værdier.

M.v.h.  Jørn

Som Jørn nævner kan du bruge registreringsdatabasen, og det kan gøres således…

Gemme:

Public Function SetReg(psSektion As String, psNøgle As String, psVærdi As String) As String

  SaveSetting "Dit programs navn", psSektion, psNøgle, psVærdi

End Function

Læse:

Public Function GetReg(psSektion As String, psNøgle As String) As String

  GetReg = GetSetting("Dit programs navn ", psSektion, psNøgle)

End Function

hvor skal de integreres i koden?? og er der noget der skal indstilles før det virker?? kan nemlig ikke få det til at virke.

jeg har en text felt hvor man skriver text`en og så trykker man på en knap for at sige ok til det.

på forhånd tak

Er det vedr. registry? i så fald, hvilken ver. af VB har du og hvilket OS arbejder du på og hvilke retigheder har du? Du kan finde dine gemte værdier under "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Dit programs navn "

øhm... er ikke så god til det du snakker om..
jeg har fundet ud af jeg kan lave et txt dokument og ligge den i samme mappe.
men jeg kan kun få den til at åbne dokumentet men ikke åbne html adressen som ligger på linie 1 txt dokumentet.

Paste denne kode ind i en form...

Option Explicit
Public sURL As String
Private Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
  "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
  String, ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
if not sUrl <> "" Then sURL = "www.google.com"
Call ShellExecute(Me.hwnd, "open", sURL, "", App.Path, SW_SHOWNORMAL)
End Sub

Måske kan det løse dit problem!

er ikke så god til det med vb endnu.. så kan man ikke lave noget simpelt?

Hva' mener du? Hvad er problemmet?

jeg ved jo ikke hvor jeg skal indsætte koden, og hvad den gør...!?

Åbn et ny projekt i VB - Vælg Standard Exe - Indsæt en CommandButton (benævnt Command1)- Dobbelt klik på den fremkommende form (benævnt Form1) - Slet alt - Indsæt:

Option Explicit
Public sURL As String
Private Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
  "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
  String, ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
if not sUrl <> "" Then sURL = "www.google.com"
Call ShellExecute(Me.hwnd, "open", sURL, "", App.Path, SW_SHOWNORMAL)
End Sub

Så køre det for dig...

Meningen er så at du skal indsætte din URL i variablen sURL

kommer ikke længere.. men ellers tak for hjælpen!