Acerca de focos...
Publicado por Nicolás (164 intervenciones) el 21/06/2002 07:04:38
Saludos...
Tengo una aplicación que tiene una lista con distintos archivos JPG, al hacer doble click en algún elemento de la lista muestro una pantalla con el JPG, como se pueden abrir varias de esas pantallas, mi pregunta es: Cómo sé que pantalla tiene el foco actual?
Adjunto código del doble click en la lista, dónde frmFotoFija es el nombre del Form
Private Sub lstFotos_DblClick()
Dim V_Foto As New frmFotoFija
Dim recsetFotos As Recordset
If lstFotos.Text = "" Then
MsgBox "Debe seleccionar una Foto", vbExclamation, "Falta Información"
Exit Sub
End If
Set recsetFotos = bdClinica.OpenRecordset("SELECT Path, NomFoto FROM tFotos WHERE CodFoto = " & lstFotos.ItemData(lstFotos.ListIndex))
V_Foto.imgFoto.Picture = LoadPicture(recsetFotos!Path)
V_Path = recsetFotos!Path
V_Foto.Caption = recsetFotos!NomFoto
V_Foto.Show
End Sub
Desde yá, Muchas Gracias
Tengo una aplicación que tiene una lista con distintos archivos JPG, al hacer doble click en algún elemento de la lista muestro una pantalla con el JPG, como se pueden abrir varias de esas pantallas, mi pregunta es: Cómo sé que pantalla tiene el foco actual?
Adjunto código del doble click en la lista, dónde frmFotoFija es el nombre del Form
Private Sub lstFotos_DblClick()
Dim V_Foto As New frmFotoFija
Dim recsetFotos As Recordset
If lstFotos.Text = "" Then
MsgBox "Debe seleccionar una Foto", vbExclamation, "Falta Información"
Exit Sub
End If
Set recsetFotos = bdClinica.OpenRecordset("SELECT Path, NomFoto FROM tFotos WHERE CodFoto = " & lstFotos.ItemData(lstFotos.ListIndex))
V_Foto.imgFoto.Picture = LoadPicture(recsetFotos!Path)
V_Path = recsetFotos!Path
V_Foto.Caption = recsetFotos!NomFoto
V_Foto.Show
End Sub
Desde yá, Muchas Gracias
Valora esta pregunta


0