Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak przechowywać ustawienia użytkowników
bogdan




Typ: neutral
Postów: 46
Zarejestrowany: Nov 2003
Jak przechowywać ustawienia użytkowników

Witam.
Jak najwygodniej można przechowywać preferencje użytkowników (np. wielkość czcionki, kolor czcionki, itp)? Pozdrawiam Bogdan


_____________________________________________
Bogdan

17-03-2005 08:48
Pokaż profil bogdan  Wyślij email do bogdan   
jabadabas



Typ: neutral
Postów: 29
Zarejestrowany: Nov 2004

To zależy od ilości użytkowników, jeśli jest ich kilku, można to zrobić w pliku tekstowym. Natomiast jeśli jest ich więcej niż kilkunastu - w bazie danych, np. access ; zaleta jest taka, że dane są bardziej przejrzyste i łatwiej wprowadzać w nich zmiany, wyszukać ew. błędy.


_____________________________________________
Pozdrawiam, Marcin.


VB-Site

17-03-2005 09:30
Pokaż profil jabadabas  Wyślij email do jabadabas   Odwiedź stronę jabadabas       3398490
bogdan




Typ: neutral
Postów: 46
Zarejestrowany: Nov 2003

Myślałem raczej o czymś w rodzaju :
GetSetting(App.EXEName, "Options", Nazwa), ale nie wiem jak to zrobić w VB.NET


_____________________________________________
Bogdan

17-03-2005 13:47
Pokaż profil bogdan  Wyślij email do bogdan   
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

Private Sub Odczyt_Rejestr()
        REM przykładowy odczyt rejestru
        Me.TextBox1.Text = GetSetting(Application.ProductName, "XTransport:", "Plik1:", ""
        Me.TextBox2.Text = GetSetting(Application.ProductName, "XTransport:", "Plik2:", ""
        Me.TextBox3.Text = GetSetting(Application.ProductName, "XTransport:", "Plik3:", ""
    End Sub

    Private Sub Zapisz_Rejestr()
        REM przykładowy zapis rejestru
        Plik1 = Me.TextBox1.Text
        Plik2 = Me.TextBox2.Text
        Plik3 = Me.TextBox3.Text
        SaveSetting(Application.ProductName, "XTransport:", "Plik1:", Me.TextBox1.Text)
        SaveSetting(Application.ProductName, "XTransport:", "Plik2:", Me.TextBox2.Text)
        SaveSetting(Application.ProductName, "XTransport:", "Plik3:", Me.TextBox3.Text)
    End Sub


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

17-03-2005 16:25
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
bogdan




Typ: neutral
Postów: 46
Zarejestrowany: Nov 2003

Dzięki PiotrT


_____________________________________________
Bogdan

22-03-2005 12:07
Pokaż profil bogdan  Wyślij email do bogdan   
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1