<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _ Private Shared Function GetProfileString(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, <Out()> ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer) As Integer End Function Private Function GetCurrentCulture() As CultureInfo Dim c As CultureInfo = Nothing Dim sb As New StringBuilder(200) GetProfileString("Intl", "LocaleName", CultureInfo.CurrentCulture.Name, sb, sb.Capacity) Try c = CultureInfo.GetCultureInfo(sb.ToString()) Catch c = Nothing Finally If c Is Nothing Then c = CultureInfo.CurrentCulture End Try Return c End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMe.ToolTip.SetToolTip(Me.btnLetter, "Ecris une lettre...")