...vill jag göra i mitt prog. =)
Men hur gör man. Jag vet hur man skriver, men inte hur man läser...

Min kod:
<code>
Private Sub varkstall_Click()
Dim meddFarg As String
Dim rutaFarg As String
Dim chatFarg As String

Select Case Medd.Text
Case "Svart"
meddFarg = "&H0&"
Case "Grå"
meddFarg = "&H00E0E0E0&"
Case "Vit"
meddFarg = "&HFFFFFF"
Case "Röd"
meddFarg = "&HFF&"
Case "Mörkröd"
meddFarg = "&HC0&"
Case "Blå"
meddFarg = "&HFF0000"
Case "Mörkblå"
meddFarg = "&HFF0000"
Case Else
meddFarg = "&HC000&"
End Select
Select Case Ruta.Text
Case "Svart"
rutaFarg = "&H0&"
Case "Grå"
rutaFarg = "&H00E0E0E0&"
Case "Vit"
rutaFarg = "&HFFFFFF"
Case "Röd"
rutaFarg = "&HFF&"
Case "Mörkröd"
rutaFarg = "&HC0&"
Case "Blå"
rutaFarg = "&HFF0000"
Case "Mörkblå"
rutaFarg = "&HFF0000"
Case Else
rutaFarg = "&HC000&"
End Select
Select Case Chat.Text
Case "Svart"
chatFarg = "&H0&"
Case "Grå"
chatFarg = "&H00E0E0E0&"
Case "Vit"
chatFarg = "&HFFFFFF"
Case "Röd"
chatFarg = "&HFF&"
Case "Mörkröd"
chatFarg = "&HC0&"
Case "Blå"
chatFarg = "&HFF0000"
Case "Mörkblå"
chatFarg = "&HFF0000"
Case Else
chatFarg = "&HC000&"
End Select

Open "chtCol.txt" For Output As #1
Print #1, meddFarg & vbCrLf & rutaFarg & vbCrLf & chatFarg
Close #1

Unload Me
End Sub
</code>

Och nu vill jag läsa från chtCol.txt - närmare bestämt de tre första raderna och sätta dessa som variabler... hur?


Ha're!

Varför Använder du inte SaveSettings() och GetSettings():
<code>
Private Sub Form_Load()
Medd.Text = GetSettings(App.Title, "Colors", "meddFarg", "Svart")
Ruta.Text = GetSettings(App.Title, "Colors", "rutaFarg", "Grå")
Chat.Text = GetSettings(App.Title, "Colors", "chatFarg", "Vit")
End Sub

Private Sub varkstall_Click()
SaveSettings App.Title, "Colors", "meddFarg", GetColor(Medd.Text )
SaveSettings App.Title, "Colors", "rutaFarg", GetColor(Ruta.Text)
SaveSettings App.Title, "Colors", "chatFarg", GetColor(Chat.Text)

Unload Me
End Sub

Public Function GetColor(ColorName as String) as String
Select Case ColorName
Case "Svart"
GetColor = "&H0&"
Case "Grå"
GetColor = "&H00E0E0E0&"
Case "Vit"
GetColor = "&HFFFFFF"
Case "Röd"
GetColor = "&HFF&"
Case "Mörkröd"
GetColor = "&HC0&"
Case "Blå"
GetColor = "&HFF0000"
Case "Mörkblå"
GetColor = "&HFF0000"
Case Else
GetColor = "&HC000&"
End Select
End Function
</code>

"Varför Använder du inte SaveSettings() och GetSettings():"
För att jag inte visste om att det fanns, därför frågade jag er? =)

Tja!

Det var därför jag frågade det. Många missar den viktiga frågan. Vad vill jag uträtta och följdfrågan. Hur gör jag det. Sedan prioriterar ju folk olika på om man vill göra det på snabbast sätt, enklast sätt, eller går bra så länge det funkar.

Nackdelen med programmering är att man kan göra samma sak på fler än ett sätt.

/Mvh, Andreas

Jo jag vet, men jag skulle vilja säga att det är fördelen med programmering.. =)


Ha're!

...Jag testade detta nu, men du glömde skriva vad jag behöver göra/deklarera för att kunna använda SaveSettings() och GetSettings()...

Hjälp...?


Ha're!

Det är "native" vb funktioner. Så du behöver inga deklarationer. KAnske jag som lagt till ett s för mycket. ;O)

Testa med GetSetting() och SaveSetting()

Oki (...tack =) ), ska testa det nu...

Ha're!