SKINSIDEBAR 1.3 - UNE BARRE DE LANCEMENT RAPIDE AVEC GESTION DES SKINS
asem67
Messages postés
145
Date d'inscription
mardi 3 septembre 2002
Statut
Membre
Dernière intervention
24 février 2008
-
26 juin 2005 à 20:44
cs_windob Messages postés 225 Date d'inscription dimanche 19 octobre 2003 Statut Membre Dernière intervention 25 août 2008 - 30 juin 2005 à 09:42
cs_windob Messages postés 225 Date d'inscription dimanche 19 octobre 2003 Statut Membre Dernière intervention 25 août 2008 - 30 juin 2005 à 09:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/32336-skinsidebar-1-3-une-barre-de-lancement-rapide-avec-gestion-des-skins
https://codes-sources.commentcamarche.net/source/32336-skinsidebar-1-3-une-barre-de-lancement-rapide-avec-gestion-des-skins
30 juin 2005 à 09:42
30 juin 2005 à 00:11
c'est ok j'ai trouver !!!
j'ai remplacer ça :
Set Itmx = ButList.ListItems.Add(ButList.ListItems.Count, TxtPrgmText.Text, TxtPrgmText.Text)
par ça :
Set Itmx = ButList.ListItems.Add(ListCount, TxtPrgmText.Text, TxtPrgmText.Text)
C OKKKKKK!!! A+
30 juin 2005 à 00:04
bon bon ....
lors que je veut ajouter un prog dans la list
j'ai l'err suivante:
" Erreur d'exécution '35600' "
" Index out of bounds "
*****************************************
Private Sub lbAdd_Click()
If ButList.ListItems.Count = 99 Then
MsgBox "Le nombre maximum de boutons a été atteint, veuillez d'abord supprimer des boutons", vbOKOnly, "Nombre maximum ..."
Exit Sub
End If
ListCount = ButList.ListItems.Count + 1
If TxtPrgmText.Text <> "" And TxtPrgmPath.Text <> "" And IsNumeric(TxtPrgmText.Text) <> True Then
If Len(ListCount) 1 Then IName "0" & ListCount
If Len(ListCount) 2 Then IName ListCount
>>>>> ICI >>>> Set Itmx = ButList.ListItems.Add(ButList.ListItems.Count, TxtPrgmText.Text, TxtPrgmText.Text)
Itmx.SubItems(1) = TxtPrgmPath.Text
Itmx.SubItems(2) = IName
ButList.Sorted = True
ButList.SortKey = 2
ButList.SortOrder = lvwAscending
ButList.Refresh
TxtPrgmText.Text = ""
TxtPrgmPath.Text = ""
ElseIf TxtPrgmText.Text "" Or TxtPrgmPath.Text "" Then
MsgBox "Veuillez remplir les 2 champs", vbOKOnly, "Erreur ..."
ElseIf IsNumeric(TxtPrgmText.Text) Then
MsgBox "Un nombre n'est pas un nom valide"
End If
End Sub
************************************************************
A+
29 juin 2005 à 15:24
A voir
29 juin 2005 à 09:28
chez moi ça marche, vous devez continuer a charger le projet, moi j'ai pas d'erreur, normalement les fichiers sont inutiles.
28 juin 2005 à 13:58
27 juin 2005 à 22:48
Sinon pour les controles, je vois pas pourquoi il manquerait, je les ait upprimer car ils ne servaient plus.a quel moment il dit que les controles sont manquants ?
27 juin 2005 à 13:52
26 juin 2005 à 20:44
-manque colorprogresse.ctl
-manque CPUload.cls
- me dit que le skin n'est pas compatible avec l'affichage actuele
- lors d'ajout de prog err impossible a ajouter "index of bounds ...."
a+