[Visual Basic] voor dummies - Deel 1 | Digital Corner (DIG/DEV)

dinsdag 21 februari 2006 @ 22:06:59 #61

DaFan

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.

dinsdag 21 februari 2006 @ 22:33:15 #62

woutabest

yummie

Misschien kan ik beter mezelf even de help in gaan duiken, als ik die meegeïnstalleerd heb

Click

woensdag 22 februari 2006 @ 12:02:47 #63

DiRadical

Everything's ruined

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

woensdag 22 februari 2006 @ 12:03:34 #64

DaFan

Oh is .Net zo anders dan....sorry dan

woensdag 22 februari 2006 @ 12:07:28 #65

woutabest

yummie

het werkt!

dankje!

Ook DeFan natuurlijk bedankt, je deed je best

[ Bericht 30% gewijzigd door woutabest op 22-02-2006 12:13:04 ]

Click

woensdag 22 februari 2006 @ 13:01:25 #66

DiRadical

Everything's ruined

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

woensdag 22 februari 2006 @ 13:30:17 #67

woutabest

yummie

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.

Click

woensdag 22 februari 2006 @ 14:31:19 #68

DiRadical

Everything's ruined

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

woensdag 22 februari 2006 @ 15:11:08 #69

woutabest

yummie

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

Click

donderdag 23 februari 2006 @ 14:39:24 #70

DiRadical

Everything's ruined

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

donderdag 23 februari 2006 @ 14:44:04 #71

DaFan

Als je vragen hebt horen we het wel

vrijdag 7 april 2006 @ 12:56:07 #72

Chandler

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

DiRadical

Everything's ruined

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

vrijdag 7 april 2006 @ 13:59:28 #74

Chandler

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...

vrijdag 7 april 2006 @ 14:04:39 #75

DaFan

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

DiRadical

Everything's ruined

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

vrijdag 7 april 2006 @ 14:46:41 #77

Chandler

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

DiRadical

Everything's ruined

Oeps,
Ik had het zelf even moeten controleren in VB6 zelf
Deze moet anders

1	toDir.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

vrijdag 7 april 2006 @ 22:42:15 #79

Chandler

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

DiRadical

Everything's ruined

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

1	toDir.path = "c:"

geeft ook een foutmelding. Deze bestaat ook niet.
Het moet

1	toDir.path = "c:\"

zijn

Happyness is nature's way of informing human resources that you're overpaid
-Catbert: Evil director of HR

zaterdag 8 april 2006 @ 17:48:27 #81

Chandler

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...

vrijdag 28 april 2006 @ 16:17:11 #82

Chandler

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...

vrijdag 28 april 2006 @ 17:43:56 #83

SuperRembo

Sinds 1998

Tekst omzetten naar getal, berekening uitvoeren, uitkomst omzetten naar tekst.

vrijdag 28 april 2006 @ 17:54:38 #84

Chandler

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...

vrijdag 28 april 2006 @ 18:32:06 #85

SuperRembo

Sinds 1998

CInt(), CLng() of CDbl()

vrijdag 28 april 2006 @ 19:34:28 #86

Chandler

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...

zondag 30 april 2006 @ 13:09:45 #87

Chandler

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

DiRadical

Everything's ruined

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

woensdag 9 augustus 2006 @ 18:10:17 #89

Chandler

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...

woensdag 9 augustus 2006 @ 20:57:35 #90

SuperRembo

Sinds 1998

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.

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

[Visual Basic] voor dummies - Deel 1

» digital corner

» development

» digital corner

» development