🚀 go-pugleaf

Dzięki.

Problem był w czym innym. Kod nad którym pracuję jest napisany przez kogoś 
innego i to tamten gość popełnił błąd. Jego znalezienie zajęło mi cały 1 
dzień. Niestety nie ma debugera i musiałem sobie radzić komunikatami.

Ale udało się...

Ja pracuję w Wordowskim VB. Czy to jest VBA? Ja nie wiem, ale na pewno 
kontrolka ComboBox ma właściwość listItem. Tego jestem na 100% pewien.

Pozdrawiam

Bartosz Różański


Użytkownik "pxd74" <pxd74@poczta.onet.pl> napisał w wiadomości 
news:djoe35$kam$1@inews.gazeta.pl...
> Użytkownik "Bartosz Różański" <barozi@poczta.onet.pl> napisał w wiadomości
> news:djnpcq$qe4$1@news.onet.pl...
> (...)
>> Próbowałem wykorzystać włąściwość listItem w metodzie User_Initialize, 
>> ale
>> jakoś nie zadziałało. Nie wiem czemu.
>>
>> Wiem że powienienem to zrobić właśnie poprzez listItem, ale może używam 
>> go
>> w  złym miejscu.
>>
>> P.S. Czytając msdn'a widziałem takie hasło, że listItem nie działa w
>> czasie  projektowania. O co chodzi?
>
> Zauważ, że Combobox w VBA nie posiada właściwości listitem.
>
> Myślę, że Twój problem polega na tym, że nie zapamiętujesz wartości, która
> ostatnio była wybrana w Comboboxie. Zrób w ten sposób:
> 1. Dodaj moduł standardowy (menu Add -> module) i wpisz w nim deklaracje
> zmiennej globalnej:
>
> Public wartość As String
>
> lub coś podobnego
>
> 2. Dodaj przypisywanie wartości do tej zmiennej globalnej, np. w zdarzeniu
> Combobox_Change:
>
> Private Sub ComboBox1_Change()
>  wartość = Me.ComboBox1.Value
> End Sub
>
> 3. Dodaj ustawianie wartości Comboboxa w zdarzeniu Initialize, np. w taki
> sposób:
>
>  If wartość <> "" Then
>    Me.ComboBox1.Value = wartość
>  End If
>
> Zauważ, że zmienna globalna "wartość" będzie się kasowała przy zamknięciu
> dokumentu albo szablonu, w którym przechowujesz projekt. Żeby zapamiętywać
> wartość ostanio wybranej pozycji w Comboboxie także po zamknięciu 
> dokumentu
> lub szablonu musisz zapisywać wartość zmiennej globalnej w inny sposób, 
> np.
> w rejestrze.
>
>
> -- 
> Pozdrowienia
> pxd74
>