Problemas con Windows 2000 - VB-MUNDO

mamer182 · #1 (**permalink**) 25-07-2007, 11:08:35

Tengo una aplicación desarrollada en vb6, en un windows xp, y empaquetada con el "Asistente para Empaquetado y Distribución" del Visual Studio. La instalo en un Windows 2000 y todo va bien, pero a la hora de trabajar con ella, se producen comportamientos anómalos que, bajo la misma situación, no se producen cuando lo ejecuto en una máquina con windows xp.

Están todas las librerías que se necesitan. ¿Alguien puede decirme si el sistema operativo utilizado puede provocar esta situación? Si es así, ¿cuál sería la solución?

Muchas gracias.

afede19 · #2 (**permalink**) 25-07-2007, 15:25:30

Amigo, para mayor seguridad te recomiendo que si podes hacer el instalador en alguna pc que tengo WIndows 2000. Yo en particupar te recomiento que graves los archivos fuentes del soft y crees el instalador en la maquina donde lo queres instalar.

Pd) Verifica si tiene instalado el Visual Basic.

J.M.Movilla · #3 (**permalink**) 25-07-2007, 20:56:29

Hay que tener la siguiente precaución: Xp tiene el SO en el directorio "C:\WINDOWS". W2K lo ubica en "C:\WINNT". Así que debes asegurarte de que la instalación registra las librerías en la carpeta adecuada (que a veces los instaladores no ponen %DirPath% sino C:\Windows...)

mamer182 · #4 (**permalink**) 26-07-2007, 07:49:20

Muchas gracias. Probaré a crear el instalador en un windows 2000 y os cuento.

mamer182 · #5 (**permalink**) 26-07-2007, 11:25:11

Ya está resuleto. Al final el problema venía del símbolo decimal utilizado por el sistema, que era distinto del que usa la aplicación. Ahora estoy intentando modificarlo por código, si es distinto del que usa la aplicación. Así que se admiten consejos o sugerencias...

Muchas gracias.

J.M.Movilla · #6 (**permalink**) 26-07-2007, 13:37:28

Pues depende de cómo quieras solucionarlo. En principio tienes dos métodos (que a mí se me alcancen): Obligar a que el cliente tenga la "Configuración regional" que a tí te interese

Código:

    Dim n1 As Single, x as Long
    n1 = 125 / 10
    If InStr(n1, ".") > 0 Then
        x = MsgBox("                 ¡¡¡ ATENCION !!!" & Chr(10) & Chr(10) & _
                "Modifique en ""Configuración - Panel de Control"" la" & Chr(10) & _
                """Configuración regional"", de forma que el símbolo" & Chr(10) & _
                "para el punto decimal sea "","" (coma) y el símbolo" & Chr(10) & _
                "para la separación de miles sea ""."" (punto).", vbCritical)
        End
    End If

(por supuesto, alternas el punto y la coma si te interesa configurarlo justamente al contrario...)

o bien hacer que tu aplicación se adapte a la configuración que tenga el sistema

Código:

Public SigFalse As String
Public SigTrue As String
    If InStr(1 / 2, ",") Then
        SigTrue = ",": SigFalse = "."
    Else
        SigTrue = ".": SigFalse = ","
    End If

(también cambiarías esos valores si te interesa...)

Tanto uno como el otro código han de ir en el Main del Módulo principal.

En el segundo caso, siempre que trates números decimales les pasas por la función

Código:

Replace(TuNumero, SigFalse, SigTrue)

mamer182 · #7 (**permalink**) 26-07-2007, 13:54:32

Lo que se me ha ocurrido a mi (y después de mucho buscar en google) es cambiar la configuración regional por código. Al comienzo de la aplicación cambio el símbilo decimal del sistema por el que yo quiero y cuando la finalizo, vuelvo a dejarlo como estaba. Sé que es un poco arriesgado, porque mientras se esté ejecutando mi aplicación, puedo hacer que otras dejen de hacerlo, pero no podía hacerlo de otra forma. Al principio se me ocurrió algo parecido a la segunda forma que indicas

Cita:

Public SigFalse As String
Public SigTrue As String
If InStr(1 / 2, ",") Then
SigTrue = ",": SigFalse = "."
Else
SigTrue = ".": SigFalse = ","
End If

pero no me terminaba de funcionar. De todas formas, lo probaré así, a ver si lo consigo.

Muchas gracias otra vez.