1 2 3 4 5 6 7 8 9 | dim sFolder as string set fso = new FileSystemObject sFolder = QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir") if fso.FolderExists(sFolder) = true then toDir.path = sFolder else toDir.path = "c:" end if |
1 |
Je zegt dat de directory niet bestaat.quote:Op vrijdag 7 april 2006 22:42 schreef Chandler het volgende:
hoe moet dat dan anders? want het werkt wel als ik juiste gegevens in het register hebdus snap niet waar de fout zit?
1 2 3 4 5 6 7 8 9 | If QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir") _ > "" Then toDir.path = QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir") GoTo topathklaar End If topathErr: toDir.path = "c:\" topathklaar: |
1 |
1 |
1 2 3 4 5 | If QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir") > "" Then toDir.path = QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir") GoTo topathklaar End If |
1 2 3 4 5 | HPtimer = 0 mapleCalculator.maxHPsaved.Text = CStr(CInt(mapleCalculator.maxHPsaved.Text) + _ CInt(mapleCalculator.maxHPadd.Text)) End If |
1 |
Ook QueryValue moet een padnaam met een \ aan het eind terug geven, controleer de registry of maak een functie die een \ toevoegt als die niet aanwezig is.quote:correct, maar dan nog geeft het een error op toDir.path = QueryValue daar blijft het programma op hangen!
oftweel hier zit het probleem op regel 3!! (toDir.)
1
2
3
4
5On Error GoTo topathErr
If QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir") > "" Then
toDir.path = QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir")
GoTo topathklaar
End If
1 |
1 |
1 2 3 4 | Label = lbl & Job & Labelnummer Label.Visible = True Next |
Val() is zo'n wazige VB6 functie. Die kan je beter niet gebruiken.quote:Op woensdag 4 april 2007 10:17 schreef DaFan het volgende:
Tis gelukt Rembo, maar ik heb het gewoon gedaan met Val() zodat als er een String in staat het resultaat gewoon 0 is, dat werkte uiteindelijk ook
Je zou de labels allemaal in een array kunnen zetten.quote:Andere vraag:
Ik wil in een keer een hele grote groep labels en textboxes visible maken. [...]
Een array van labels is het makkelijkste, dan wordt het ongeveer zo:quote:Op woensdag 4 april 2007 14:09 schreef SuperRembo het volgende:
[..]
Val() is zo'n wazige VB6 functie. Die kan je beter niet gebruiken.
[..]
Je zou de labels allemaal in een array kunnen zetten.
Of misschien kan je er voor zorgen dat ze allemaal op 1 panel o.i.d. staan zodat je ze in 1x zichtbaar kan maken.
Of je kunt door de controls collection van het form / panel / groupbox kunnen lopen.
1 2 3 4 5 6 | Dim k as integer For k = 0 To 29 Label(k).Visible = True Next |
quote:Val() is zo'n wazige VB6 functie. Die kan je beter niet gebruiken.
|
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |