Wie vereinfache ich diesen Code?

Question

ich vb.net wirklich neu bin und bin auf der Suche diesen Code weniger überflüssig zu machen, aber ich bin nicht sicher, wie

ONE.DisplayLayout.Override.FilterOperandStyle = FilterOperandStyle.FilterUIProvider 
ONE.DisplayLayout.Override.FilterUIType = FilterUIType.FilterRow 
ONE.DisplayLayout.Override.FilterUIProvider = New SupportDialogs.FilterUIProvider.UltraGridFilterUIProvider() 

TWO.DisplayLayout.Override.FilterOperandStyle = FilterOperandStyle.FilterUIProvider 
TWO.DisplayLayout.Override.FilterUIType = FilterUIType.FilterRow 
TWO.DisplayLayout.Override.FilterUIProvider = New SupportDialogs.FilterUIProvider.UltraGridFilterUIProvider() 

THREE.DisplayLayout.Override.FilterOperandStyle = FilterOperandStyle.FilterUIProvider 
THREE.DisplayLayout.Override.FilterUIType = FilterUIType.FilterRow 
THREE.DisplayLayout.Override.FilterUIProvider = New SupportDialogs.FilterUIProvider.UltraGridFilterUIProvider() 

Wie Sie sehen können, ist der einzige Unterschied eins, zwei und drei. Wie vereinfache ich das, ohne es zu wiederholen?

Danke!

Answer 1

Ich weiß nicht, was ist die Art von einem, zwei und drei, aber Sie können einen Unter machen:

Public Sub DoStuff(Data As YourType) 
    Data.DisplayLayout.Override.FilterOperandStyle = FilterOperandStyle.FilterUIProvider 
    Data.DisplayLayout.Override.FilterUIType = FilterUIType.FilterRow 
    Data.DisplayLayout.Override.FilterUIProvider = New SupportDialogs.FilterUIProvider.UltraGridFilterUIProvider() 
End Sub 

Und Sie nennen es von

tun

DoStuff(ONE) 
DoStuff(TWO) 
DoStuff(THREE) 

UPDATE (im Anschluss an Andrew Morton Kommentar)

Wenn Sie mehr als drei Punkte haben, können Sie eine Schleife laufen:

For each x In { ONE, TWO, THREE } 
    DoStuff(x) 
Next