Discussion :

[XpFive]

Bonjours, j'ai un petit problème avec mon logiciel c'est que une fois moin logiciel ouvert, quelque minute après l'avoir ouvert, un message d'erreur apparait :


http://uploads.imagup.com/10/1249438481_screenerror.jpg

Quel est le problème ?

[DAUDET78]

Ca n'as rien a voir avec un Forum VB6 ...... et je crois que ce logiciel ne présente plus beaucoup d'intérêt.

[XpFive]

Si c'est un logiciel fait avec Visual Basic 6, donc je demande pour se qui aurez eu la même erreur avec

[DAUDET78]

Tu as les sources du programme ? Il a eu marché ? tu as changé quoi pour que ça arrive ?
Tu es en W98 ou Vista ?

PS : c'est curieux, mais je ne vois pas ce graphisme fait avec VB6. C'est quoi qui te permet de l'affirmer ?

[XpFive]

La source du log est très, très, très longue lol
Puis pour le design c'est parce que j'ai changer le style xp

A la base c'etait une erreur "Overflow" j'ai su la réparé avec ses codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub sOverflow1()
    Dim byt As Byte
    Dim lng As Long
    lng = 5000
    byt = lng
End Sub
 
Sub sOverflow2()
    Dim byt1 As Byte
    Dim byt2 As Byte
    byt1 = byt1 / byt2
End Sub
 
Sub sOverflow3()
    Dim byt1 As Byte
    Dim byt2 As Byte
    Dim lng As Long
    byt1 = 100
    byt2 = 100
    lng = (byt1 * byt2)
End Sub
 
Sub sNoOverflow()
    Dim byt1 As Byte
    Dim byt2 As Byte
    Dim lng As Long
    byt1 = 100
    byt2 = 100
    lng = (CLng(byt1) * byt2)
End Sub

[DarkVader]

La source du log est très, très, très longue lol
Puis pour le design c'est parce que j'ai changer le style xp

A la base c'etait une erreur "Overflow" j'ai su la réparé avec ses codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub sOverflow1()
    Dim byt As Byte
    Dim lng As Long
    lng = 5000
    byt = lng
End Sub
 
Sub sOverflow2()
    Dim byt1 As Byte
    Dim byt2 As Byte
    byt1 = byt1 / byt2
End Sub
 
Sub sOverflow3()
    Dim byt1 As Byte
    Dim byt2 As Byte
    Dim lng As Long
    byt1 = 100
    byt2 = 100
    lng = (byt1 * byt2)
End Sub
 
Sub sNoOverflow()
    Dim byt1 As Byte
    Dim byt2 As Byte
    Dim lng As Long
    byt1 = 100
    byt2 = 100
    lng = (CLng(byt1) * byt2)
End Sub

Les 3 premières procédures n'ont pas plus de sens que la dernière -
leur unique but semble justement être de produire cette erreur :
est-ce un leurre pour une protection anti-piratage ?
sans le reste du code, c'est impossible à affirmer.