Javais déjà réaliser un module TreeView (en 2015). Comme j'en avais besoin pour un projet, je me suis rendu compte que le module était assez lourd à l'utilisation.
J'ai don réaliser un nouveau module (full oop), et beaucoup plus facile d'utilisation.
Vers Github
Download
Wiki User manual
History of version :
- Beta 6 -> fixed ->some bugs
- Beta 7 -> added -> enableDragEvent(target)
- Beta 8 -> fixed -> tree\free()
Exemple :
Comment tester :
- Ouvrer votre éditeur PureBasic.
- Sauvegarder et lancer le code ci-dessous.
- Donner votre accord pour télécharger le package.
- Ouvrer le fichier EXAMPLE/main.pb
- Exécuter le fichier
- Ou dé-commenter la dernière ligne et relancer le fichier
Code : Tout sélectionner
; ******************************************************************************
; AUTHOR : MicrodevWeb
; MODULE : TreeView
; PROCESS : load package
; ******************************************************************************
EnableExplicit
Procedure loadPackage()
Protected zipName.s = "PACKAGE.zip"
If MessageRequester("Download Package","Do you agree to download the tree view package form github?",#PB_MessageRequester_YesNo) = #PB_MessageRequester_No
End
EndIf
If Not InitNetwork()
MessageRequester("Network error","Cannot connect to internet",#PB_MessageRequester_Error)
End
EndIf
If Not ReceiveHTTPFile("https://github.com/microdevweb/PB_TREE_VIEW_3.0/archive/master.zip",zipName)
MessageRequester("Download error","Cannot download the package",#PB_MessageRequester_Error)
End
EndIf
#PACKER = 0
CreateDirectory("TREE")
CreateDirectory("TREE/CLASS")
CreateDirectory("TREE/IMG")
CreateDirectory("EXAMPLE")
CreateDirectory("EXAMPLE/IMG")
UseZipPacker()
OpenPack(#PACKER,zipName)
If ExaminePack(#PACKER)
While NextPackEntry(#PACKER)
Protected dirName.s = StringField(PackEntryName(#PACKER),2,"/")
If PackEntryType(#PACKER) = #PB_Packer_File
Protected fileName.s = RemoveString(PackEntryName(#PACKER),"PB_TREE_VIEW_3.0-master/")
If Not UncompressPackFile(#PACKER,fileName)
MessageRequester("Download error","Cannot unzip file "+fileName,#PB_MessageRequester_Error)
End
EndIf
EndIf
Wend
EndIf
ClosePack(#PACKER)
DeleteFile(zipName)
EndProcedure
loadPackage()
;XIncludeFile "EXAMPLE/main.pb"