• Viernes 17 de Mayo de 2024, 03:44
« anterior próximo »
Páginas: [1]

Autor Tema:  Ayudenme A Optimizar  (Leído 3172 veces)

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Ayudenme A Optimizar
« en: Jueves 16 de Junio de 2005, 19:21 »
0
oigan amigos, ayudenme a optimizar este codigo, no la manyo como puedo hacerlo:

Código: Text
  1.  
  2. Private Sub pieza1_Click(Index As Integer)
  3. Select Case value_odonto
  4.     Case 3: 'extraidas
  5.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")
  6.         x(Index).Tag = 3
  7.     Case 2: 'por extraer
  8.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")
  9.         x(Index).Tag = 2
  10.     Case 1: 'caries obturadas
  11.         pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1a.gif")
  12.         pieza1(Index).Tag = 1
  13.     Case 0: 'caries por obturar
  14.         pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1r.gif")
  15.         pieza1(Index).Tag = 0
  16. End Select
  17. End Sub
  18. Private Sub pieza2_Click(Index As Integer)
  19. Select Case value_odonto
  20.     Case 3: 'extraidas
  21.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")
  22.         x(Index).Tag = 3
  23.     Case 2: 'por extraer
  24.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")
  25.         x(Index).Tag = 2
  26.     Case 1: 'caries obturadas
  27.         pieza2(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza2a.gif")
  28.         pieza2(Index).Tag = 1
  29.     Case 0: 'caries por obturar
  30.         pieza2(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza2r.gif")
  31.         pieza2(Index).Tag = 0
  32. End Select
  33. End Sub
  34. Private Sub pieza3_Click(Index As Integer)
  35. Select Case value_odonto
  36.     Case 3: 'extraidas
  37.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")
  38.         x(Index).Tag = 3
  39.     Case 2: 'por extraer
  40.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")
  41.         x(Index).Tag = 2
  42.     Case 1: 'caries obturadas
  43.         pieza3(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza3a.gif")
  44.         pieza3(Index).Tag = 1
  45.     Case 0: 'caries por obturar
  46.         pieza3(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza3r.gif")
  47.         pieza3(Index).Tag = 0
  48. End Select
  49. End Sub
  50. Private Sub pieza4_Click(Index As Integer)
  51. Select Case value_odonto
  52.     Case 3: 'extraidas
  53.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")
  54.         x(Index).Tag = 3
  55.     Case 2: 'por extraer
  56.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")
  57.         x(Index).Tag = 2
  58.     Case 1: 'caries obturadas
  59.         pieza4(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza4a.gif")
  60.         pieza4(Index).Tag = 1
  61.     Case 0: 'caries por obturar
  62.         pieza4(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza4r.gif")
  63.         pieza4(Index).Tag = 0
  64. End Select
  65. End Sub
  66. Private Sub pieza5_Click(Index As Integer)
  67. Select Case value_odonto
  68.     Case 3: 'extraidas
  69.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")
  70.         x(Index).Tag = 3
  71.     Case 2: 'por extraer
  72.         x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")
  73.         x(Index).Tag = 2
  74.     Case 1: 'caries obturadas
  75.         pieza5(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza5a.gif")
  76.         pieza5(Index).Tag = 1
  77.     Case 0: 'caries por obturar
  78.         pieza5(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza5r.gif")
  79.         pieza5(Index).Tag = 0
  80. End Select
  81. End Sub
  82.  
  83.  

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
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Ayudenme A Optimizar
« Respuesta #1 en: Jueves 16 de Junio de 2005, 23:56 »
0
Pregunta?
Por que no utilizas la misma pieza1 para todas las llamadas y una subrutina con esta info.
Código: Text
  1. Private Sub info()
  2. Select Case value_odonto
  3.    Case 3: 'extraidas
  4.        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")
  5.        x(Index).Tag = 3
  6.    Case 2: 'por extraer
  7.        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")
  8.        x(Index).Tag = 2
  9.    Case 1: 'caries obturadas
  10.        pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1a.gif")
  11.        pieza1(Index).Tag = 1
  12.    Case 0: 'caries por obturar
  13.        pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1r.gif")
  14.        pieza1(Index).Tag = 0
  15. End Select
  16. End Sub
  17.  
El pasado son solo recuerdos, el futuro son solo sueños
Páginas: [1]
« anterior próximo »