Re: mehrere pictureboxen erstellen und wieder löschen

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Harald M. Genauck (hmg_ng.entfernen_at_aboutvb.de)
Date: 05/26/04 

Date: Wed, 26 May 2004 14:33:10 +0200

Hallo Hubert,

> > Und die wird *nur* in Form_Load aufgerufen? Oder auch noch anderswo?

> Natürlich wird RefreshCalendar auch wo anders aufgerufen. z.B. wenn ich
aus
> einer Kombobox ein anderes Datum auswähle.

Aha, da haben wir den Übeltäter - warum sagst Du das nicht gleich?

In Code, der im Click-Ereignis einer ComboBox aufgerufen wird, können
Controls nicht entladen werden. Das ist einfach so - vermutlich ist das ein
Bug in VB.

Du musst also den Aufruf entkoppeln:

Ein Timer-Control auf dem Form (auf dem sich diese ComboBox befindet),
dessen Interval möglichst kurz (25) setzen, Enabled = False.

Dann im Timer-Ereignis:

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    m_oCalendar.RefreshCalendar
End Sub

Und im Click-Ereignis der ComboBox:

Private Sub Combo1_Click()
    Timer1.Enabled = True
End Sub

Viele Grüße

Harald M. Genauck

ABOUT Visual Basic - das Webmagazin
http://www.aboutvb.de

Relevant Pages

  • =?Utf-8?Q?Re:_*.dat_Datei_=C3=B6ffnen?=
    ... eine Combobox, dessen inhalt in eine Datei ... > Private Sub FRM_Main_Load(ByVal sender As Object, ... > End Sub ...
    (microsoft.public.de.german.entwickler.dotnet.vb)
  • Re: *.dat Datei öffnen
    ... eine Combobox, dessen inhalt in eine Datei ... Private Sub FRM_Main_Load(ByVal sender As Object, ... End Sub ...
    (microsoft.public.de.german.entwickler.dotnet.vb)
  • Re: Blattschutz per Makro aufheben - aber keine Wirkung!
    ... End Sub ... > End Sub ... wird der Wert einmal reingeschrieben und das Blatt ... > Wird dann aus der ComboBox ein anderer Wert genommen kommt immer die ...
    (microsoft.public.de.excel)
  • Re: Arbeitszeittabelle - Standardregion
    ... Heike Schubert wrote: ... > habe ich um eine Combobox mit den Bundesländern ergänzt. ... Private Sub UserForm_QueryClose ... End Sub ...
    (microsoft.public.de.excel)
  • Re: RE: User Forms
    ... I have the FillCboBoxList sub in the userform module. ... ComboBox named: ComboBox1 ... click on, say, letter A, I want the control to populate my cbo box with ... Right-Click on the Excel icon ...
    (microsoft.public.excel.newusers)