Как упростить этот код?

Question

Я действительно новичок в vb.net, и я ищу, чтобы сделать этот код менее многословны, но я не знаю, как

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() 

Как вы можете видеть, единственное отличие состоит в один, два и три. Как упростить это, не повторяя?

Спасибо!

Answer 1

Я не знаю, что это тип один, два и три, но вы можете сделать суб:

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 

И вы называете это, делая

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

UPDATE (после комментарий Эндрю Мортона)

Если у вас есть более трех элементов, вы можете запустить цикл:

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