abonnement Unibet Coolblue Bitvavo
  maandag 20 februari 2006 @ 17:06:27 #52
15929 DiRadical
Everything's ruined
pi_35293500
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
Het kan.
Maar ik vraag me altijd af of API "beter" is als het niet nodig is
Ik gebruik het liefst geen API in VB6, tenzij het niet anders kan.
Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR
pi_35295605
Heel erg bedankt DiRadical
Ik heb nu 2 knoppen die prima werken, straks een derde eraan toevoegen

Code van de timer is nu zo:
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 DateDiff("s", stDate, Now()) Then
    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


In de clickevents wordt de boolean True en worden ze disabled en de tijd wordt vastgesteld.
Bedankt
pi_35342883
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
pi_35343126
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
Met een knop ofzo?

1
2
3
4
5
6
Private Sub btnSwitch_Click()

    Form1.Hide
    Form2.Show

End Sub

Eventueel kan je nog kiezen om:

1   Unload Form1


erbij te doen, maar op deze manier zou het moeten lukken.
pi_35343556
Helaas, niets pakt hij. Wel deed hij me.Hide maar die staat voor de form zelf...
Geeft overal blauwe kringeltjes en ook bij debuggen loopt hij vast...
pi_35344424
Je moet natuurlijk wel een referentie naar het form hebben dat je wil tonen of verbergen.
Wil iedereen die in telekinese gelooft nu mijn hand op steken?
| Foto's van toen en nu | Icons | Whatpulse keyboard | .NET developer? |
pi_35344517
ja, zover ben ik nog niet
pi_35345433
quote:
Op dinsdag 21 februari 2006 21:34 schreef woutabest het volgende:
ja, zover ben ik nog niet
<formnaam>.Show zou gewoon moeten werken
pi_35345532
quote:
Op dinsdag 21 februari 2006 21:55 schreef DaFan het volgende:

[..]

<formnaam>.Show zou gewoon moeten werken
Dan krijg ik de volgende melding:

1reference to a non-shared member requires an object reference
pi_35345832
quote:
Op dinsdag 21 februari 2006 21:58 schreef woutabest het volgende:

[..]

Dan krijg ik de volgende melding:
[ code verwijderd ]
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).

Anders zou je dus
<objectnaam> . <formnaam> . Show
kunnen gebruiken.

Anders weet ik het ook niet, al denk ik wel dat de help er iets over te zeggen heeft.
pi_35347023
Misschien kan ik beter mezelf even de help in gaan duiken, als ik die meegeïnstalleerd heb
  woensdag 22 februari 2006 @ 12:02:47 #63
15929 DiRadical
Everything's ruined
pi_35360411
quote:
Op dinsdag 21 februari 2006 21:55 schreef DaFan het volgende:

[..]

<formnaam>.Show zou gewoon moeten werken
Niet in .NET
Er is, gelukkig, geen default instantie van het object (form) meer aanwezig in .NET
Je moet eerst het scherm definiëren en instantieren.
Dus:
1
2
dim frm as new form2
frm.show


Dim as new is niet handig in VB6, omdat je het dan niet meer naar nothing kunt zetten.
Er wordt een nieuwe instantie aangemakt als je er naar refereert, dus ook als je het naar nothing zet.
In .Net maakt dat niet meer uit.
Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR
pi_35360436
Oh is .Net zo anders dan....sorry dan
pi_35360550
het werkt!

dankje!

Ook DeFan natuurlijk bedankt, je deed je best

[ Bericht 30% gewijzigd door woutabest op 22-02-2006 12:13:04 ]
  woensdag 22 februari 2006 @ 13:01:25 #66
15929 DiRadical
Everything's ruined
pi_35362209
quote:
Op woensdag 22 februari 2006 12:07 schreef woutabest het volgende:
het werkt!

dankje!

Ook DeFan natuurlijk bedankt, je deed je best
Als je meerdere schermen wilt, kun je natuurlijk ook een MDI applicatie maken.
Met een menu e.d.
Maar dat is afhankelijk van het type applicatie dat je wilt maken.
Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR
pi_35363190
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.
  woensdag 22 februari 2006 @ 14:31:19 #68
15929 DiRadical
Everything's ruined
pi_35365338
quote:
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.
MDI is Multiple Document Interface waarbij je een scherm hebt waarin de andere scherm geopend worden
Een duidelijk, maar lelijk voorbeeld

Er zijn 1000 en 1 manieren op gegevens van het ene in het andere scherm te krijgen en opslaan in een text bestand is er 1 van. Waarschijnlijk wel 1 van de traagste.

Wat bedoel je met 'een klokje' ?
Er wat vult je in op scherm 2

Een quick en dirty methode is om de textboxen op scherm 2 "public" te maken.
Start het scherm op via
frm.showdialog
In scherm 2 Hide je het scherm als je daar op de knop drukt.
In scherm 1 kun je dan de ingevoerde waarden uitlezen en verwerken.

[ Bericht 13% gewijzigd door DiRadical op 22-02-2006 14:49:42 ]
Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR
pi_35366714
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
  donderdag 23 februari 2006 @ 14:39:24 #70
15929 DiRadical
Everything's ruined
pi_35406587
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
Dit zit toch al in MS Outlook ?
KISS (Keep it simple stupid), dus blijf van de Windows Services en de tray icons af

Je kunt daar heel lang mee bezig zijn:

  • services en een mooi tray icon
  • Meerdere berichten van te voeren aan maken (soort message que)
  • bericht naar een andere computer sturen
  • enz.

    Success ermee.

    Ik moet zelf weer eens aan de slag gaan met mijn Bieb programmaatje voor al mijn boeken, CDs (muziek tot op track niveau of losse MP3), DVDs (avi en film) en video banden.
    Referenties naar de artiesten (schrijver, muzikant, acteur, regisseur) en hun rol.
    IMDB en FreeDB integratie.
    Meerdere soorten GUI's op dezelfde business logic
    enz., enz.

    Veel te groot dus en ik ben al een paar keer begonnen en gestopt met een soort datamodel.
    Maar nog steeds niet tevreden en niet echt begonnen.
  • Happyness is nature's way of informing human resources that you're overpaid
    -Catbert: Evil director of HR
    pi_35406770
    Als je vragen hebt horen we het wel
    pi_36735454
    Ik zit met een klein probleem:

    1
    2
    3
    4
    5
    6
    7
        If QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir") > "" Then
        On Error GoTo topathErr
            toDir.path = QueryValue(HKEY_CURRENT_USER, "Software\quicktreecopy", "todir")
            GoTo topathklaar
    topathErr:
            toDir.path = "c:"
    topathklaar:


    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?
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
      vrijdag 7 april 2006 @ 13:36:00 #73
    15929 DiRadical
    Everything's ruined
    pi_36736789
    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?
    Als je todrive.path fout gaat, moet je IF toch ook fout.
    Ik lees tenminste dezelfde argumenten in de functie.

    Waneer je je on error goto voor de IF zet, zou het goed moeten gaan
    Happyness is nature's way of informing human resources that you're overpaid
    -Catbert: Evil director of HR
    pi_36737562
    ah juist, je hebt gelijk~!

    maar ook na de aanpassing blijft de error hetzelfde.

    1
    2
    3
    4
    5
    6
    7
    8
        On 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
    topathErr:
            toDir.path = "c:"
    topathklaar:


    error bij toDir.path = QueryValue dat het path niet bestaat maar k... nu moet ik dus nog weer een andere oplossing hebben.
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
    pi_36737715
    Kan je niet beter eerst QueryValue toewijzen en dan met een IF kijken of toDir.path leeg is?
      vrijdag 7 april 2006 @ 14:31:51 #76
    15929 DiRadical
    Everything's ruined
    pi_36738544
    Wat is toDir.
    Een drivelistbox of een filelistbox
    Het kan zijn dat de directory moet bestaan voordat je 'm mag toewijzen aan 1 van deze controls
    Je zou kunnen controleren of de directory bestaat via het FileSystemObject.
    Maar dan moet je in je project wel eerst een referentie zetten naar Microsft Scripting Runtime.
    Dat kan in Project-> references

    Deze staat in <je windows dir>\system32\scrrun.dll


    1
    2
    3
    4
    5
    6
    7
    8
    9
    Dim fso As FileSystemObject
    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


    [ Bericht 4% gewijzigd door DiRadical op 07-04-2006 14:35:16 (code beter gemaakt) ]
    Happyness is nature's way of informing human resources that you're overpaid
    -Catbert: Evil director of HR
    pi_36739001
    Maar het zou toch moeten werken met een onerror??? tenminste dat leek mij zo logisch...
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
      vrijdag 7 april 2006 @ 15:34:49 #78
    15929 DiRadical
    Everything's ruined
    pi_36740578
    Oeps,
    Ik had het zelf even moeten controleren in VB6 zelf
    Deze moet anders
    1toDir.path = "c:\"


    Hij crashed 2 keer.
    1 keer op de queryvalue toewijzing en de tweede keer op de c: toewijzing
    Happyness is nature's way of informing human resources that you're overpaid
    -Catbert: Evil director of HR
    pi_36753358
    hoe moet dat dan anders? want het werkt wel als ik juiste gegevens in het register heb dus snap niet waar de fout zit?
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
      zaterdag 8 april 2006 @ 17:43:04 #80
    15929 DiRadical
    Everything's ruined
    pi_36770326
    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 heb dus snap niet waar de fout zit?
    Je zegt dat de directory niet bestaat.
    Dus zou het zo moeten
    1
    2
    3
    4
    5
    6
    7
    8
    9
    On 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
    topathErr:
       toDir.path = "c:\"
    topathklaar:


    De registry key wordt correct uitgelezen maar kan niet toegewezen worden aan toDir.path
    De applicatie springt naar topathErr:
    Maar
    1toDir.path = "c:" 

    geeft ook een foutmelding. Deze bestaat ook niet.
    Het moet
    1toDir.path = "c:\"

    zijn
    Happyness is nature's way of informing human resources that you're overpaid
    -Catbert: Evil director of HR
    pi_36770462
    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
    5
    On 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
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
    pi_37380035
    Iets anders, hoe kun je iets berekenen.

    Ik heb iets in een textboxje staan en wil daar uit het getal halen en een getal bij optellen... hoe doe je dat? want form.text1.value + iets = de value van text1 + "iets" en het moet eingelijk zijn text1 + iets = ietsmeer

    Iemand een idee?
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
    pi_37382955
    Tekst omzetten naar getal, berekening uitvoeren, uitkomst omzetten naar tekst.
    Wil iedereen die in telekinese gelooft nu mijn hand op steken?
    | Foto's van toen en nu | Icons | Whatpulse keyboard | .NET developer? |
    pi_37383259
    ik dacht dat ik dat met INT kon doen maar dat gaat helaas ook niet werken int(text)
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
    pi_37384354
    CInt(), CLng() of CDbl()
    Wil iedereen die in telekinese gelooft nu mijn hand op steken?
    | Foto's van toen en nu | Icons | Whatpulse keyboard | .NET developer? |
    pi_37385990
    Inderdaad, maar toch is het probleem nog niet opgelost

    1
    2
    3
    4
    5
        If (HPtimer = mapleCalculator.maxHPsec.List(mapleCalculator.maxHPsec.ListIndex)) Then
            HPtimer = 0
            mapleCalculator.maxHPsaved.Text = CStr(CInt(mapleCalculator.maxHPsaved.Text) + _
                                              CInt(mapleCalculator.maxHPadd.Text))
        End If


    ik krijg nu weer een foutje, met of zonder cstr en snap niet wat ik fout doe!

    De fout krijg ik ook op het volgende

    1        mapleCalculator.maxMPsaved.Text = CInt(CStr(CInt(mapleCalculator.maxMPsaved.Text)))


    type-mismatch..

    iemand een idee?

    [ Bericht 18% gewijzigd door Chandler op 28-04-2006 22:11:34 ]
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
    pi_37424187
    reeds gefixt door val() te gebruiken, dit werkte namelijk ook.

    weer een andere, hoe kan ik een getal naar boven afronden ookal is het logischer om deze naar beneden af te ronden. bv 4.1 wordt 5
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
      vrijdag 5 mei 2006 @ 15:51:08 #88
    15929 DiRadical
    Everything's ruined
    pi_37578966
    RoundUp en RoundDown functie
    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
    5
     On 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 
    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.
    Happyness is nature's way of informing human resources that you're overpaid
    -Catbert: Evil director of HR
    pi_40651268
    Leuke vraag.

    Ik heb een applicatie die nogal wat data kopieeert, echter als ik die applicatie op de voorgrond houd zie ik alles wat er gebeurd. Maar als ik even een ander programma op de voorgrond heb en weer terug switch loopt als het ware de 'weergave' vast. Het programma blijft wel werken maar de weergave blijft staan. Heeft iemand een idee waardoor dit kan komen? en of hoe ik dit kan oplossen?
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
    pi_40657471
    Je moet zorgen dat af en toe de events worden afgehandeld. Dat doe je met de functie DoEvents. Die moet je af en toe aanroepen in de loop die de data verwerkt. Je moet 'm ook niet te vaak aanroepen, want het zal er wel iets langzamer door worden.
    Wil iedereen die in telekinese gelooft nu mijn hand op steken?
    | Foto's van toen en nu | Icons | Whatpulse keyboard | .NET developer? |
    pi_40691599
    Owkee, ik heb het geprobeerd en lijkt te werken.

    Nu een tweede vraag.

    Ik heb ooit een project van QuietGuy omgebouwd tot tray progie... echter krijg ik de balon niet precies onder de icon in de tray.

    source : http://dump.bruggema.nl/bwm.rar

    wie wil eens kijken wat ik fout heb gedaan!?
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
    pi_46270829
    Een kickje omhoog
    Toch leuk om het oude vertrouwde VB 6 weer te zien
    Are you nuts??
    pi_47716402
    Ik ben er ook weer eens mee aan het pielen, Visual Basic 2005 Express (ja gratis :P ).

    Hoe kan ik kijken of een String in een Textbox alleen uit cijfers bestaat of ook uit text? Ik doe het volgende namelijk maar daar crashed ie (duh) op:
    1amountG1 = CDbl(txtGrade1.Text)


    Maar je kan niet converten naar een Double als er leeskarakters in staan. Dus ik moet eerst testen of er tekst in staat en dan een error geven (of op de Change al testen en dan gewoon de invoerknop disablen).
    pi_47722948
    Dat kan op verschillende manier, welke het handigste is hangt er van af wat je er verder mee wil.
    Als je de string naar een getal om wil zetten dan moet je eens kijken naar Interger.TryParse(), Double.TryParse() of Decimal.TryParse(). Je zou ook met Like kunnen kijken of er ongeldige tekens in staan. Een regular expression zou ook kunnen, maar dat is denk ik niet nodig.
    Wil iedereen die in telekinese gelooft nu mijn hand op steken?
    | Foto's van toen en nu | Icons | Whatpulse keyboard | .NET developer? |
    pi_47723759
    Ok, tnx alvast, morgen ff naar kijken
    pi_47995659
    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

    Edit nvm al gelukt

    Andere vraag :
    Ik wil in een keer een hele grote groep labels en textboxes visible maken. Nou dacht ik slim te zijn en alle txtboves en labels ongeveer dezelfde naam te geven
    1lbl & [String] & [Double]

    En er dan doorheen te loopen zodat ik elke keer de Double kan verhogen met 1 zodat alle 29 labels niet meer visible gemaakt kunnen lopen.

    Maar ik kan hier natuurlijk geen .visible = True achter zetten.
    Iemand een idee hoe ik dit wel kan doen, snel en makkelijk zonder 2x 29 keer alles [NAAM].visible = True te doen?

    Zoiets dus:
    1
    2
    3
    4
                For Labelnummer = 1 To 29
                    Label = lbl & Job & Labelnummer
                    Label.Visible = True
                Next

    Label zou dan de naam van 29 verschillende labels worden die allemaal Visible = True moeten worden

    [ Bericht 44% gewijzigd door DaFan op 04-04-2007 13:02:06 ]
    pi_48003481
    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
    Val() is zo'n wazige VB6 functie. Die kan je beter niet gebruiken.
    quote:
    Andere vraag :
    Ik wil in een keer een hele grote groep labels en textboxes visible maken. [...]
    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.
    Wil iedereen die in telekinese gelooft nu mijn hand op steken?
    | Foto's van toen en nu | Icons | Whatpulse keyboard | .NET developer? |
    pi_48027705
    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.
    Een array van labels is het makkelijkste, dan wordt het ongeveer zo:
    1
    2
    3
    4
    5
    6
               
               Dim k as integer

               For k = 0 To 29
                    Label(k).Visible = True
               Next


    Een array is te maken door één label te copieren en dan te plakken, wel voor array kiezen als VB dat vraagt.

    [ Bericht 1% gewijzigd door The_Terminator op 05-04-2007 12:27:11 ]
      donderdag 5 april 2007 @ 07:59:44 #99
    52513 whosvegas
    The Trickster
    pi_48031041
    quote:
    Val() is zo'n wazige VB6 functie. Die kan je beter niet gebruiken.

    Hoezo, als je weet wat de functie doet, waarom zou je het niet gebruiken?
    Are you nuts??
    pi_48039959
    Val() bestaat eigenlijk alleen nog om VB wat beter backwards compatible te maken. Als je nieuwe code schrijft is het niet handig om oude VB functies als Val(), Mid() en Format() te gebruiken.
    Val() ondersteunt alleen een decimale punt, bij Double.Parse kan je makkelijk gelocaliseerde input ondersteunen. String functies als Mid() gebruiken een 1-based index terwijl alle "normale" .NET functies een 0-based index gebuiken.
    En dan zitten er ook nog vreemde bugs in. Replace("", "foo", "bar") geeft in VB.NET bijvoorbeeld Nothing terug in plaats van een lege string.
    Wil iedereen die in telekinese gelooft nu mijn hand op steken?
    | Foto's van toen en nu | Icons | Whatpulse keyboard | .NET developer? |
    pi_51663486
    Vraagje...

    Ik heb een loopje in mijn vb applic. echter wil ik per loop de resultaten laten zien in mijn form.

    Nu doe ik form1.status_box.text = "Status"

    Echter zie ik pas na het doorlopen van deze loopje de status van de laatste item op deze plaats komen.

    What am i doingk wrong?
    The people who lost my respect will never get a capital letter for their name again.
    Like trump...
    pi_51664548
    Wil iedereen die in telekinese gelooft nu mijn hand op steken?
    | Foto's van toen en nu | Icons | Whatpulse keyboard | .NET developer? |
    abonnement Unibet Coolblue Bitvavo
    Forum Opties
    Forumhop:
    Hop naar:
    (afkorting, bv 'KLB')