Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Lupin en 4 Agosto 2009, 02:50 am



Título: VB que detecte el idioma del Windows
Publicado por: Lupin en 4 Agosto 2009, 02:50 am
estoy haciendo un pequeño programita y quisiera que el visual me detecte si el windws esta en ingles yo uso este codigo.Es para distribuirlo a unos amigos
Lo que pasa es que quiero que mis labels se vean en ingles o castelllano deacuerdo al idioma del windows

Este codigo no me parece muy optimo pero es la unica idea

Private Function winIngles() As Boolean
    buf = String$(260, Chr$(0))
    ret = GetWindowsDirectory(buf, Len(buf))
    ruta = Left$(buf, ret)
    K = Left(ruta, InStr(ruta, "WINDOWS") - 1)
   
    If Len(K + "Archivos de programa") <> 0 Then
   
    winIngles = True
    Else
    winIngles = False
   
   
    End If
  End Function


Private Sub Form_Load()

MsgBox Str(winIngles)

End Sub

si alguien pudiera orientarme  :D seria chevere jeje


Título: Re: VB que detecte el idioma del Windows
Publicado por: seba123neo en 4 Agosto 2009, 04:03 am
Hola, es una chapuza importante  :xD :xD :xD, no mira usa la api GetLocaleInfo..con eso podes obtener todo lo que sea configuracion regional de la pc...

saludos.


Título: Re: VB que detecte el idioma del Windows
Publicado por: Lupin en 4 Agosto 2009, 04:10 am
Che seba123neo eres grande tio
¿Hay algo de Vb que no sepas ...jeje algun dia caeras?

Rumbo al sowtware internacional...
 ;D ;D ;D


Título: Re: VB que detecte el idioma del Windows
Publicado por: luison en 4 Agosto 2009, 04:49 am
Claro, moriría por saber lo que seba123neo desconoce, pero por lo pronto, me conformaría con igualarme a sus conocimientos  :laugh:.

Hazle caso, con tal API podes resolver tu duda.