Het kan.quote:Op maandag 20 februari 2006 16:30 schreef The_Terminator het volgende:
[..]
Is het niet beter om een API timer te gebruiken?
Deze code moet dan in een module:
[ code verwijderd ]
Dit mag in een module staan, maar ook in een form:
[ code verwijderd ]
Deze code moet in de form staan:
[ code verwijderd ]
Om de timer te starten gebruik je: StartTimer1
Om de timer te stoppen gebruik je: StopTimer1
Owja, niet op de stop knop van VB drukken voordat je een API timer gestopt hebt, anders crasht VB
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | If blnCrime = True Then StartCrime = StartCrime - 1 If StartCrime = 0 Then btnCrime.Caption = "Crime" blnCrime = False btnCrime.Enabled = True Exit Sub End If btnCrime.Caption = StartCrime Else: btnCrime.Caption = "Crime" End If If blnCar = True Then StartCar = StartCar - 1 If StartCar = 0 Then btnCar.Caption = "Car" blnCar = False btnCar.Enabled = True Exit Sub End If btnCar.Caption = StartCar Else: btnCar.Caption = "Car" End If End If |
Met een knop ofzo?quote:Op dinsdag 21 februari 2006 20:52 schreef woutabest het volgende:
Ik weet vanaf het begin al dat ik meerdere forms in één project kan stoppen. Dan moet het dus ook mogelijk zijn om tussen die twee te switchen.
Hoe doe ik dat? Ik draai hier VB.net 2003
1 2 3 4 5 6 | Form1.Hide Form2.Show End Sub |
1 |
Dan krijg ik de volgende melding:quote:Op dinsdag 21 februari 2006 21:55 schreef DaFan het volgende:
[..]
<formnaam>.Show zou gewoon moeten werken![]()
1 |
Staan ze wel in dezelfde application? Want hij vraagt nu om een Object terwijl bij 2 Forms in dezelfde Application dat niet nodig is (omdat het object hetzelfde is).quote:Op dinsdag 21 februari 2006 21:58 schreef woutabest het volgende:
[..]
Dan krijg ik de volgende melding:
[ code verwijderd ]
Niet in .NETquote:Op dinsdag 21 februari 2006 21:55 schreef DaFan het volgende:
[..]
<formnaam>.Show zou gewoon moeten werken![]()
1 2 | frm.show |
Als je meerdere schermen wilt, kun je natuurlijk ook een MDI applicatie maken.quote:Op woensdag 22 februari 2006 12:07 schreef woutabest het volgende:
het werkt!
dankje!
Ook DeFan natuurlijk bedankt, je deed je best
MDI is Multiple Document Interface waarbij je een scherm hebt waarin de andere scherm geopend wordenquote:Op woensdag 22 februari 2006 13:30 schreef woutabest het volgende:
Toch leuk, al die termen die ik niet snap.
Ik probeer een klokje te maken. Als ik op een knop in MainMenu1 druk, komt form2 tevoorschijn waarin ik alles kan invoeren.
Nu moet ik nog even iets vinden waarbij ik de data over kan brengen. Zelf zit ik te denken aan om het op te slaan in een .txt bestand, en dat ik mijn programma dan 'refresh'.
Opslaan wil ik toch wel, dus dat wordt niet veel meer werk.
Dit zit toch al in MS Outlook ?quote:Op woensdag 22 februari 2006 15:11 schreef woutabest het volgende:
Een simpel progje dat aftelt naar een bepaalde datum en tijd en als het zover is een melding geeft. Zegmaar een 'kom van de computer af' of een 'je hebt een afspraak'.
Zal wel niet erg moeilijk zijn
1 2 3 4 5 6 7 | On Error GoTo topathErr toDir.path = QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir") GoTo topathklaar topathErr: toDir.path = "c:" topathklaar: |
Als je todrive.path fout gaat, moet je IF toch ook fout.quote:Op vrijdag 7 april 2006 12:56 schreef Chandler het volgende:
Ik zit met een klein probleem:
[ code verwijderd ]
het probleem zit in todrive.path maar kan niet zorgen dat wanneer het path fout is het script naar de volgende goto gaat? wat doe ik fout?
1 2 3 4 5 6 7 8 | 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 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: |