Archief - [PROG][vb.net] For each cbo as combobox...

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
s

sgtsylvester

Legacy Member
hallo, kzit met een vraagje ivm een for each lus die niet wil lukken.

For Each cbo As ComboBox In gpbGoalsEnAssists.Controls

MessageBox.Show("cbobox")

Next


De error : "Unable to cast object of type 'System.Windows.Forms.Label' to type 'System.Windows.Forms.ComboBox'."

ik wil voor iedere combobox in mijn groupbox gpbgoalsenassists code uitvoeren maar blijkbaar is m'n voorwaarde "In" niet goed ?
R

Recipe4hate

Legacy Member
Heb dit ook al gehad. De code die jij hebt werkt enkel as er in je gpb alleen maar cboboxen zitten. What je moet doen is:

Code: 
For Each ctrl As Object In gpbControls.Controls
      If ctrl.GetType.Equals(GetType(ComboBox)) Then
          Dim cboObject As ComboBox = ctrl
          cboObject.BackColor = Color.Coral 'whatever de code is
      End If
Next
s

sgtsylvester

Legacy Member
Recipe4hate zei:
Heb dit ook al gehad. De code die jij hebt werkt enkel as er in je gpb alleen maar cboboxen zitten. What je moet doen is:

Code: 
For Each ctrl As Object In gpbControls.Controls
      If ctrl.GetType.Equals(GetType(ComboBox)) Then
          Dim cboObject As ComboBox = ctrl
          cboObject.BackColor = Color.Coral 'whatever de code is
      End If
Next
Klik om te vergroten...

Merci het werkt :niceone:
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan