Visual Basic - Funciona en Win XP pero no en Win 98

Life is soft - evento anual de software empresarial
 
Vista:

Funciona en Win XP pero no en Win 98

Publicado por Diego (18 intervenciones) el 25/03/2005 03:30:17
Hice un programa con dos formularios. Uno de ellos es la pantalla de inicio el cual, obviamente, es el primero en aparecer.
Le agrege la siguiente llamada al API para que quede siempre visible:
-------------------------------------------------------------------------------------
Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOZORDER = &H4
Const SWP_NOREDRAW = &H8
Const SWP_NOACTIVATE = &H10
Const SWP_FRAMECHANGED = &H20
Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80
Const SWP_NOCOPYBITS = &H100
Const SWP_NOOWNERZORDER = &H200
Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Const HWND_TOP = 0
Const HWND_BOTTOM = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Private Sub Form_Load()
Dim i
i = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub

-------------------------------------------------------------------------------------

Luego de unos segundos aparece el otro formulario, quedando todavia la pantalla de inicio visible y luego de un segundo esta desparece.
En fin, el problema que tengo es el siguiente.
El programa lo hice con VB 6 bajo Windows XP y funciona perfecto pero si lo intento ejecutar en Windows 98 no funciona. Lo que sucede es que aparece la pantalla de inicio pero luego no aparece la otra ventana y lo peor de todo es que no me da ningun tipo de error.

¿Alguna idea de cual es el problema?.

Desde ya, muchas gracias.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder