CodePPC - Programmez pour Windows Mobile

Stéphane Sibué

Référence Librairie CodePPC

Retour à la librairie CodePPC

Retour à l'index des références

Espace de Nom CodePPC.General

Classe Tools

Function GetApplicationPath() As String

Cette fonction retourne le chemin de l'application sous la forme d'une chaîne.

Function GetResource(ByVal wName As String) As System.IO.Stream

Cette fonction retourne un stream sur une ressource incluse dans l'assembly.

Exemple : Création d'un bitmap à partir de la ressource "MonProjet.MonBitmap.bmp"

Dim wBitmap As New Bitmap(CodePPC.General.Tools.GetResource("MonProjet.MonBitmap.bmp"))

Function DateToString(ByVal wDate As Date) As String

Cette fonction retourne une objet de type Date passée en paramètre sous la forme d'une chaine au format inversé "aaaammjj" où aaaa = année (ex 2004), mm = mois (ex 09) et jj = jour (ex 15).

Exemple : Récupération de la date inversée à partir de la date du jour.

Dim wDateInverse As String = CodePPC.General.Tools.DateToString(Now)

Function StringToDate(ByVal wString As String) As Date

Cette fonction est l'inverse de DateToString. Elle retourne un objet de type Date à partir de la chaîne inversée passée en paramètre.

Exemple : Récupération de l'objet de type Date correspondant à la date inversée "20040612"

Dim wDate As Date = CodePPC.General.Tools.StringToDate("20040612")

Function GetDeviceID() As String

Cette fonction retourne le numéro d'identification du Pocket PC. Si le device ne supporte pas la récupération de ce numéro une exception "NotSupportedException" est levée.

Exemple :

Dim wDeviceID As String = CodePPC.General.Tools.GetDeviceID()

Sub ShellExecute(ByVal wDocument As String)

Cette méthode permet de lancer un document sans se préocuper de l'application qui lui est liée. Le système se débrouille tout seul.

Exemple : Cet exemple ouvre le document "\My Documents\Rapport.pdf"

CodePPC.General.Tools.ShellExecute("\My Documents\Rapport.pdf")

Function NewGUID() As Guid

Cette fonction retourne un objet de type Guid rempli avec un nouveau GUID valide.

Exemple : Création d'un nouveau GUID et affichage sous la forme d'une chaîne.

Dim wGUID As Guid = CodePPC.General.Tools.NewGUID()
MsgBox(wGUID.ToString)

Function GetSetting(ByVal AppName As String, ByVal Section As String, ByVal Key As String, Optional ByVal DefaultValue As String = "") As String

Cette fonction permet de lire une chaîne depuis la base de registre, exactement comme le fait la fonction du Framework du même nom.

Exemple : Retourne la valeur de la variable "ValeurContraste" de la section "Parametres" de l'application "MonApplication". Si la valeur n'est pas inscrite dans la base de registre, la fonction retourne la chaîne "RIEN".

Dim wValeur As String = CodePPC.General.Tools.GetSetting("MonApplication","Parametres","ValeurContraste","RIEN")

Sub SaveSetting(ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String)

Cette méthode permet d'écrire une chaîne dans la base de registre, exactement comme le fait la fonction du Framework du même nom.

Exemple : Ecrit la valeur "5" de la variable "ValeurContraste" de la section "Parametres" de l'application "MonApplication".

CodePPC.General.Tools.SaveSettings("MonApplication","Parametres","ValeurContraste","5")

Sub SystemIdleTimerReset()

Cette méthode permet de suspendre la mise en veille automatique. Le principe est de lancer cette méthode de temps en temps afin d'informer le système de ne pas activer la mise en veille.

Exemple :

CodePPC.General.Tools.SystemIdleTimerReset

Function CreateShortcut(ByVal Shortcut As String, ByVal Target As String) As Boolean

Cette fonction permet de créer un raccourci, exactement de la même manière qu'il est possible de la faire depuis l'explorateur. Il suffit de donner en paramètre le chemin vers le raccourci (doit se terminer par .lnk sinon le système ne le reconnaitra pas), et le chemin du fichier à lier. Cette fonction retourne True si elle réussit à créer le lien, False dans le cas contraire (si il existe déjà par exemple).

Exemple : Création d'un raccouci dans le menu programme du fichier "\My Documents\Rapport.pdf"

Dim wLien As String = "\Windows\Menu Démarrer\Programmes\Rapport.lnk"
Dim wCible As String = "\My Documents\Rapport.pdf"

If CodePPC.General.Tools.CreateShortcut(wLien,wCible) Then MsgBox("Lien créé.") Else Msgbox("Erreur !")

Function GetHandle(ByVal wForm As System.Windows.Forms.Form) As IntPtr
Function GetHandle(ByVal wControl As System.Windows.Forms.Control) As IntPtr

Cette fonction permet de récupérer le handle d'une fenêtre ou d'un contrôle. La valeur retournée et de type IntPtr et peut ainsi être utilisé en paramètre de certaines API du système.

Exemple : Récupération du handle du contrôle Textbox1

Dim h As IntPtr = CodePPC.General.Tools.GetHandle(Textbox1)

Sub SetFlottingWindow(ByVal wForm As System.Windows.Forms.Form, ByVal wLocation As System.Drawing.Point, ByVal wSize As System.Drawing.Size)

Cette méthode permet de rendre une fenêtre passée en paramètre flottante. Il est nécessaire d'indiquer la position et la taille de la fenêtre une fois qu'elle sera devenue flottante.

Exemple : Form1 devient une fenêtre flottante positionnée en 50,50 et d'une taille de 150x100

Dim p As New Point(50,50)
Dim s As New Size(150,100)
CodePPC.General.Tools.SetFlotttingWindow(Form1, p, s)

Function SetTextBoxNumeric(ByVal wTextBox As System.Windows.Forms.TextBox) As Boolean

Cette fonction oblige le contrôle Textbox passé en paramètre à n'accepter que des chiffres.

Exemple :

If CodePPC.General.Tools.SetTextBoxNumeric(Textbox1) Then ....