SKINSIDEBAR 1.3 - UNE BARRE DE LANCEMENT RAPIDE AVEC GESTION DES SKINS

Commentaire de asem67 le 26/06/2005 20:44:52

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+

Commentaire de windob le 27/06/2005 22:48:06

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 ?

Commentaire de windob le 29/06/2005 09:28:10

zut
chez moi ça marche, vous devez continuer a charger le projet, moi j'ai pas d'erreur, normalement les fichiers sont inutiles.

Commentaire de asem67 le 30/06/2005 00:04:50

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
    
>>>>> 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+