🚀 go-pugleaf

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