1
« en: Miércoles 6 de Junio de 2007, 04:16 »
Esta es la subrutina:
Private Sub ImgButton_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
On Error GoTo LabelError
KeyDownLastTime = Format(Time, "HH:MM:SS AM/PM")
iLastFocusButton = Index
setVideoSize False
If Not bFullScreenVideo Then
Select Case KeyCode
Case InstclsParametros.KeyLeft, InstclsParametros.KeyRight, InstclsParametros.KeyUp, InstclsParametros.KeyDown
MoveTo Index, KeyCode
Case InstclsParametros.KeyReturn
tmrScreenSaver.Enabled = False
frmSeleccion.DiscoSeleccionado = Disk_Collection.item(aDiskScreen(Index)).DiscoCodi
frmSeleccion.Show vbModal
tmrScreenSaver.Enabled = True
End Select
End If
Exit Sub
LabelError:
ControlError
End Sub
ImgButton es un control que cree y el form que quiero abrir no tiene nada extraño solo un Listview y un par de Image y un ImageList.
El XP donde estoy desarrollando tiene todos los service pack y las actualizaciones, lo unico que es la versión UE6 (Windows Unattended Edition).
Estaba pensando en instalar la versión tradicional de XP y probar..
muchas gracias !!
Marcelo