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
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.
Che seba123neo eres grande tio
¿Hay algo de Vb que no sepas ...jeje algun dia caeras?
Rumbo al sowtware internacional...
;D ;D ;D
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.