Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Amagekure en 25 Mayo 2009, 05:31 AM
alguno de ustedes es desarrollador 5 estrellas de microsoft quiero ver si es bueno eso yo apenas tengo la estrella 1
'************************************
'Constantes para el Api GetLocaleInfo
'************************************
Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SENGCOUNTRY = &H1002
Const LOCALE_SENGLANGUAGE = &H1001
Const LOCALE_SNATIVELANGNAME = &H4
Const LOCALE_SNATIVECTRYNAME = &H8
'Declaración de la función Api GetLocaleInfo
Private Declare Function GetLocaleInfo _
Lib "kernel32" _
Alias "GetLocaleInfoA" ( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long) As Long
Public Function ObtenerIdioma(ByVal lInfo As Long) As String
Dim Buffer As String, Ret As String
Buffer = String$(256, 0)
Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))
'Si Ret devuelve 0 es porque falló la llamada al Api
If Ret > 0 Then
ObtenerIdioma = Left$(Buffer, Ret - 1)
Else
ObtenerIdioma = ""
End If
End Function
'Mostramos el mensaje con el idioma del Sistema y el país
'*********************************************************
Private Sub Command1_Click()
MsgBox "Usted vive en: " & ObtenerIdioma(LOCALE_SENGCOUNTRY) _
& " (" & ObtenerIdioma(LOCALE_SNATIVECTRYNAME) & ")," & _
vbCrLf & "y el idioma es: " & ObtenerIdioma(LOCALE_SENGLANGUAGE) & " (" & ObtenerIdioma(LOCALE_SNATIVELANGNAME) & ").", vbInformation
End Sub
CitarSobre todo, que te guste mucho y...
...práctica, práctica, práctica, práctica, práctica, práctica, práctica y mucha práctica sobre todo lo básico, poco a poco irás aprendiendo.
CitarYo los hago junto con la electrónica, también programando ensamblador para microcontroladores PIC.