1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Mettez une majuscule à vos titre

Mettez une majuscule à vos titre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 728 fois - Téléchargée 58 fois

Commenter

Contenu du snippet

Faites des programmes "jolis" avec des titre qui ont des majuscules !
=)

Source / Exemple : 


Public Sub Majuscule_A_La_Date(TrucBibuleChouette As Label)

Dim Restant_Date As Long
Restant_Date = Len(Format$(Now, "dddd d mmm yyyy - hh:mm:ss"))

TrucBibuleChouette.Caption = UCase$(Left(Format$(Now, "dddd d mmm yyyy - hh:mm:ss"), 1)) & Right(Format$(Now, "dddd d mmm yyyy - hh:mm:ss"), Restant_Date - 1)
'PS : mettez dans un Timer (par ex. : "Majuscule_A_La_Date Label1") pour mettre à jour toutes les secondes, et vous avez la date et l'heure qui changent avec les secondes ! =)
End Sub

A voir également

Ajouter un commentaire Commentaires
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
 23
29 avril 2007 à 00:02
La commande UCase fait déjà çà, et pas que sur les dates.
Nox
26 juin 2001 à 15:05
pas très compliqué mais utile!

Pour muadib et quelques autres qui ne comprennent pas, ce code met une majuscule à la date (Dimanche)
au lieu de (dimanche)
Muad-Dib
25 juin 2001 à 13:16
c une blague ou koi
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (aoncoquin)