Programación General > Visual Basic 6.0 e inferiores

 Ayudenme A Optimizar

(1/1)

jodijo5:
oigan amigos, ayudenme a optimizar este codigo, no la manyo como puedo hacerlo:


--- Código: Text --- Private Sub pieza1_Click(Index As Integer)Select Case value_odonto    Case 3: 'extraidas        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")        x(Index).Tag = 3    Case 2: 'por extraer        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")        x(Index).Tag = 2    Case 1: 'caries obturadas        pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1a.gif")        pieza1(Index).Tag = 1    Case 0: 'caries por obturar        pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1r.gif")        pieza1(Index).Tag = 0End SelectEnd SubPrivate Sub pieza2_Click(Index As Integer)Select Case value_odonto    Case 3: 'extraidas        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")        x(Index).Tag = 3    Case 2: 'por extraer        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")        x(Index).Tag = 2    Case 1: 'caries obturadas        pieza2(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza2a.gif")        pieza2(Index).Tag = 1    Case 0: 'caries por obturar        pieza2(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza2r.gif")        pieza2(Index).Tag = 0End SelectEnd SubPrivate Sub pieza3_Click(Index As Integer)Select Case value_odonto    Case 3: 'extraidas        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")        x(Index).Tag = 3    Case 2: 'por extraer        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")        x(Index).Tag = 2    Case 1: 'caries obturadas        pieza3(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza3a.gif")        pieza3(Index).Tag = 1    Case 0: 'caries por obturar        pieza3(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza3r.gif")        pieza3(Index).Tag = 0End SelectEnd SubPrivate Sub pieza4_Click(Index As Integer)Select Case value_odonto    Case 3: 'extraidas        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")        x(Index).Tag = 3    Case 2: 'por extraer        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")        x(Index).Tag = 2    Case 1: 'caries obturadas        pieza4(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza4a.gif")        pieza4(Index).Tag = 1    Case 0: 'caries por obturar        pieza4(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza4r.gif")        pieza4(Index).Tag = 0End SelectEnd SubPrivate Sub pieza5_Click(Index As Integer)Select Case value_odonto    Case 3: 'extraidas        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")        x(Index).Tag = 3    Case 2: 'por extraer        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")        x(Index).Tag = 2    Case 1: 'caries obturadas        pieza5(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza5a.gif")        pieza5(Index).Tag = 1    Case 0: 'caries por obturar        pieza5(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza5r.gif")        pieza5(Index).Tag = 0End SelectEnd Sub  
donde pieza1, pieza2, pieza3, pieza4, pieza5, son matrices de controles "imagebox", cada uno tiene indice maximo 49. eh probado haciendo una funcion que reciva uno como control y otro omo picture, pero ninguno resulta.

Gracias de antemano

RadicalEd:
Pregunta?
Por que no utilizas la misma pieza1 para todas las llamadas y una subrutina con esta info.

--- Código: Text ---Private Sub info()Select Case value_odonto   Case 3: 'extraidas       x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")       x(Index).Tag = 3   Case 2: 'por extraer       x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")       x(Index).Tag = 2   Case 1: 'caries obturadas       pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1a.gif")       pieza1(Index).Tag = 1   Case 0: 'caries por obturar       pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1r.gif")       pieza1(Index).Tag = 0End SelectEnd Sub 

Navegación

[0] Índice de Mensajes