SKINSIDEBAR 1.3 - UNE BARRE DE LANCEMENT RAPIDE AVEC GESTION DES SKINS
asem67
Messages postés145Date d'inscriptionmardi 3 septembre 2002StatutMembreDernière intervention24 février 2008
-
26 juin 2005 à 20:44
cs_windob
Messages postés225Date d'inscriptiondimanche 19 octobre 2003StatutMembreDernière intervention25 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.
cs_windob
Messages postés225Date d'inscriptiondimanche 19 octobre 2003StatutMembreDernière intervention25 août 2008 30 juin 2005 à 09:42
ok. en fait tous ces problemes c'est parceque y'a rien comme données dans le registre, j'aurais du faire un .reg avec tous ce qu'il faut pour enregistrer les données au début
asem67
Messages postés145Date d'inscriptionmardi 3 septembre 2002StatutMembreDernière intervention24 février 2008 30 juin 2005 à 00:11
re slt
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+
asem67
Messages postés145Date d'inscriptionmardi 3 septembre 2002StatutMembreDernière intervention24 février 2008 30 juin 2005 à 00:04
slt
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
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
cs_brunob
Messages postés17Date d'inscriptionmardi 10 octobre 2000StatutMembreDernière intervention11 juin 2007 29 juin 2005 à 15:24
Attention le skin est prévu pour du 768 de haut
A voir
cs_windob
Messages postés225Date d'inscriptiondimanche 19 octobre 2003StatutMembreDernière intervention25 août 2008 29 juin 2005 à 09:28
zut
chez moi ça marche, vous devez continuer a charger le projet, moi j'ai pas d'erreur, normalement les fichiers sont inutiles.
Nicorombe
Messages postés18Date d'inscriptionmercredi 24 décembre 2003StatutMembreDernière intervention16 juillet 2005 28 juin 2005 à 13:58
Pour les contrôles, l'erreur vient au chargement du projet : File not found, continue loading project ?
cs_windob
Messages postés225Date d'inscriptiondimanche 19 octobre 2003StatutMembreDernière intervention25 août 2008 27 juin 2005 à 22:48
comme je l'ai dit, c'est normal que le prog ne reconnaisse pas le skin car les options et tout sont enregistrées dans le registre donc au debut, il faudra mettre les lignes qui buggent en comm, je sais pas comment faire autrement.
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 ?
Nicorombe
Messages postés18Date d'inscriptionmercredi 24 décembre 2003StatutMembreDernière intervention16 juillet 2005 27 juin 2005 à 13:52
Il manque effectivement deux contrôles et j'ai une erreur au lancement du programme : Settings.LoadOnStartup = CBool(GetSetting("SSB", "Options", "LoadOnStartup")), Runtime Erreur 13 type mismatch !
asem67
Messages postés145Date d'inscriptionmardi 3 septembre 2002StatutMembreDernière intervention24 février 2008 26 juin 2005 à 20:44
slt
-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+
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+