VB6 -Een programma resetten

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
Ik heb jarenlang , om een programma te resetten , dus alles wissen (variabelen textboxen ...enz
zo gedaan.
En heef altijd altijd goed gewerkt


Code: 
Private Sub Command1_Click()
unload form1
form1.show
End Sub

raar, maar in de laatste tijden werkt niet meer goed.
De variabelen worden niet (allemaal ) gereset.

Bestaat een andere (ook snel) manier om de programma te resetten?
Of kan mijn methode verbeterd/aangepast worden?

dank u
 
Laatst bewerkt:
Unload Form1 zou dat gewoon moeten doen.
Verder niks van te zeggen zonder je project te zien.
 
de project is te groot om de posten.
Unload form1 gaat denk ik ook. Maar dan met Form1.show heb ik problemen om een image te vervangen
om kort de doen:

ik heb een vast image op het vorm.
Ik druk nu op de command1 button om de afb te vervangen met

Code: 
Private Sub Command1_Click()
unload form1
form1.show
End Sub

Als ik nu een nieuwe afb laad in image met
Code: 
Private Sub command1_Click()
On Error Resume Next
Dim Slash As String
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "Grafici"
CommonDialog1.Filter = "Grafici|*.bmp;*.jpg;*.jpeg"
CommonDialog1.FileName = App.Path & Slash & "Grafici" & "\*.*"
CommonDialog1.ShowOpen
Image16.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
wordt de image niet vervangt of toch niet altijd !
 
ai ai
ik heb gevonden, denk ik:

Code: 
ON ERROR RESUME NEXT

moet weg !
 
Nooit On Error Resume Next gebruiken.
Tenzij je weet waarom je dat gebruikt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan