Aide en ligne MSDN pour l'éditeur intégré de Purebasic
Publié : mar. 07/févr./2006 20:10
Simple et efficace, vu sur le forum anglais (ts-soft auteur de PBOSL), un peu adapté à la langue de Molière.
En plus je connaissais pas ces mots-clefs pour l'éditeur de purebasic.
D'ailleurs si quelqu'un a plus de docs à leur sujet ?
PS: Il y a bien déjà l'aide 'win32.hlp' mais il est pas forcément exhaustif, d'où l'intérêt de ce petit bout de code.
En plus je connaissais pas ces mots-clefs pour l'éditeur de purebasic.
D'ailleurs si quelqu'un a plus de docs à leur sujet ?
Code : Tout sélectionner
;
; Objet :
;
; Aide en ligne MSDN pour l'éditeur intégré de PureBasic.
; Fonctionne comme l'aide Purebasic (Touche F1), mais pour les fonctions Win32.
; Reconnait les fonctions Win32 comme Beep_() et les constantes comme #MB_ICONERROR
; Installation :
;
; 1.
; Compiler ce source
;
; 2.
; Menu > Outils > Outils personnalisés > Nouveau
; Ligne de commande : L'exécutable compilé depuis ce source
; Nom : Aide en ligne MSDN (Par exemple)
; Evênement : Menu ou Raccourci
; Raccourci : Ctrl + F1 (Par exemple)
;
; Ici, il faut définir l'url qui va servir à la recherche
;
; Url.s = "http://www.google.com/search?q=site:msdn.microsoft.com+msdn+win32+%mot%&btnI=true"
Url.s = "http://search.msdn.microsoft.com/search/results.aspx?view=msdn&st=b&na=82&qu=%mot%&s=1&swc=4"
;
; Ici, on récupère le mot qui est sous le curseur, dans l'éditeur intégré de Purebasic
;
Mot.s = GetEnvironmentVariable("PB_TOOL_Word")
If Mot
If Right(Mot,1) = "_"
Mot = Left(Mot,Len(Mot)-1)
ElseIf Left(Mot,1) = "#"
Mot = Right(Mot,Len(Mot)-1)
EndIf
RunProgram(ReplaceString(url,"%mot%",Mot))
EndIf