has contestado mientras me reeditaba, y posiblemente no veas luego mi mensaje previo editado... así que lo pego aquí:
...al final he compuesto el puzzle...
El caso es que no puedo probar realmente nada, porque incluso aunque un textbox contenga todo el código de un formulario, es farragoso leerlo como texto, lo he guardado como *.bas, para que al menos lo pueda cargar desde el IDE y con el coloreado resulte más esclarecedor... todavía son 157 kb. de código (4350 líneas), sin poder ejecutarlo y sin una referencia clara de adónde debe uno enfocarse, es perder el tiempo (la parte buena es que al menos está correctamente indentado, no puede decirse lo mismo de los nombres usados para las variables, deberías dejar de usar guiones bajos: Esto_en_una_mala_practica, EstoEsMuchoMejor).
Luego del otro pedazo de código, me quedo con dos cosas, expongo solo una:
If nonul(OSocial.text) <> Buscar_Datos("select osocial.nombre from osocial, paciente where osocial.numero = paciente.osocial and paciente.numero = " & nropa) Then
OSIVASI = esVer(bd("siniva", "paciente_osocial", "idpaciente = " & nropa))
OSIVASegunPaciente = False
imgWarning.visible = True '<-----------------------------------------------
Else
nroafiliado = nonul(bd("afiliado", "paciente", "numero =" & nropa))
imgWarning.visible = True '<-----------------------------------------------
' OSIVASI = esVer(bd("siniva", "osocial", "nombre = " & nonul(osocial.text)))
End If
Como se ve, sí o sí, se fuerza "imgwarning" visible, luego si no aparece es por alguna de las siguientes causas:
A - Las medidas d ela imagen son ínfimas (por ejemplo 1x1 pixel).
B - La posición de la imagen queda fuera de lugar. Esto e sposible si la escala no es la adecuada, si en un lugar está en pixels y en otro en twips...
C - La posición es casi correcta, pero está tapada por otro control cuya orden gráfico es superior (un textbox o un combobox, tienen un nivel gráfico superior, es decir un control 'image' jamás puede superponerse encima de un control textbox, porque los controles 'image, line, frame, y shape' no son controles reales si no selecciones gráficas del propio contenedor, luego están siempre en el fondo).
D - Y lo más probable un redibujado del contenedor puede borrar el contenido previo, es decir no se redibuja después...
Vamos a poner soluciones a cada caso, con pruebas de cada uno (en el mismo orden expuesto, pero tú para probar, prueba (si quieres antes la 'd')...
Voy a suponer que el contenedor de ese label y esa imagen se llama picPaciente (sustituye obviamente dicho nombre por el que realmente tenga dicho contenedor)...
Para probar A y B:
Debug.print "Prueba A y B:"
debug.print imgwarning.left , imgWarning.top, imgWarning.Width, imgWarning.Height
debug.print picPaciente.width, picPaciente.Height, picPaciente.Scalemode
If nonul(OSocial.text) <> .... ' aquí el resto dle código inicio...
Para que aparezca la "ventana inmediato" (o bien lo buscas en su menú, o simplemente), pulsa simultáneamente las teclas "CTRL + G"
Ahí aparecerá el resultado... lo copias y lo pegas aquí. Si al para la ejecución cerrar la ventana desaparece, en modo edición puedes volver a pulsar dicha combinación (son independientes la parición de dicha ventana durante edición y durante ejecución).
Luego que pares la ejecución, localiza el control imgWarning y selecciónala, confirma que sus propiedades Left, Top, width y Height son los valores arrojados... Si no lo son, algo por medio podría estar cambiándolo... o si left y top exceden las medidas del contenedor (en cualquier dirección), lógicamente no se verá.
Para probar C:
Debug.print "Prueba C:"
txtPacienteId.visible = false
txtPacienteNombre.visible = false
lisGenero.visible = false
imgBolamundo.visible=false
lisUNR.visible = false
txtPaceinteX.Visible = false
txtPacienteY.Visible = false
If nonul(OSocial.text) <> .... ' aquí el resto del código del inicio...
Esta es una prueba visual, como se 've', lo que hacemos es ocultar todos los controles que comparten posición (horizontal), para asegurarnos que no lo está tapando otro control y que está ahí, pero mal posicionada. Los nombres de los controles son ficticios, porque desconozco cuales son...
Para probar D:
Debug.print "Prueba D:"
If nonul(OSocial.text) <> .... ' aquí el resto del código del inicio...
debug.print picPaciente.drawmode
debug.print picPaciente.AutoRedraw
picPacientes.Drawmode = 13
picPaciente.AutoRedraw = True
imgWarning.bordestyle = 1
imgWarning.visible = true
picPacientes.Refresh
imgWarning.refresh
labPacientes.Refresh
debug.print labPacientes.Caption
En esta prueba queremos saber que método de dibujado se está usando. Y forzamos un redibujado... también volcamos el contenido dle label en la ventana inmediato (de resultados)...
Copia en cada caso, el volcado de las impresiones (debug.print) en la ventana inmediato, para ver que arroja...
Si a pesar de todo, sigue sin quedar claro el problema, envíame al menos ese formulario (los ficheros: carga_medica.frm y carga_medica.frx, ambos si no es lo mismo que nada), no importa el resto del proyecto, y no importa que tenga dependencias, ya elimiaría lo innecesario para aislar y reducir el problema...
Autor
En línea
