programmas in visual basc

[koen152]

hey mensen ik heb eebn vraagje

ik gebreuik visual basic 6 en ik wil daar graag mee klooien nou vroeg ik mij dit af:

1 ik heb een textbox
2 ik heb een label
3 ik heb een command button
4 ik heb een txt bestandje


nou wil ik graag dat ik in het textbox typ de naam van het txt bestandje zonder *.txt !
en dat de tekst die in het tekst besdandje staat wordt geprint in de label en dat gebeurt allemaal als ik op de command button druk

ik hoop dat ik het duidelijk uitleg maar hopelijk kunnen jullie mij helpen

 

[daand]

hey mensen ik heb eebn vraagje

ik gebreuik visual basic 6 en ik wil daar graag mee klooien nou vroeg ik mij dit af:

1 ik heb een textbox
2 ik heb een label
3 ik heb een command button
4 ik heb een txt bestandje


nou wil ik graag dat ik in het textbox typ de naam van het txt bestandje zonder *.txt !
en dat de tekst die in het tekst besdandje staat wordt geprint in de label en dat gebeurt allemaal als ik op de command button druk

ik hoop dat ik het duidelijk uitleg maar hopelijk kunnen jullie mij helpen

kan je misschien een screenshot maken misschien kan ik dan beter antwoord op geven

 

[That Guy]

op de code van je button zet je dan dit:

dim ff as integer
ff = freefile

dim sTemp as string

open app.path & "\" & text1.text for binary as #ff
   get #ff,,sTemp
close #ff

label1.caption = sTemp

 

[koen152]

zal ik doen wacht even

 

[huijb]

@Koek152. In tien minuten tijd plaats je vijf berichten met hooguit 3 woorden, veeal nietszeggend. Je kan ook je bericht aanpassen hoor.

 

[koen152]

zou kunnen maar mijn vraag is nog niet helemaal beantwoord weet jij raad ?

 

[huijb]

zou kunnen maar mijn vraag is nog niet helemaal beantwoord weet jij raad ?

Begrijp je wat ik hierboven schrijf of niet???

 

[That Guy]

wat wil je nou precies? En trouwens, we doen dit voor onze lol, dus 'ff wachten' doen we zowiezo wel.


Wat je doet is de code in de button plaatsen, daarna je textbestand in dezelfde map als je .exe zetten en dan in het textbox 'mijnbestand.txt' typen.



ps. je screenshot werkt niet


[edit]
Ohja, eventjes vergeten dat je voor binary read eerst je var moet intalizen met spaces oid.
hier revised code:

dim ff as integer
ff = freefile

dim sTemp as string
sTemp = space(1337)

open app.path & "\" & text1.text for binary as #ff
   get #ff,,sTemp
close #ff

label1.caption = Trim(sTemp)

[/edit]

 

[koen152]

ja maar waar moet ik dan de code neer zetten ? hier is screenshotje link http://phprommel.freehostia.com/voorbeeld1.JPG

sorry maar ik ben nog al nieuw met visual basic en ik vroeg mij af waar moest deze code nou komen te staan

dim ff as integer
ff = freefile

dim sTemp as string
sTemp = space(1337)

open app.path & "\" & text1.text for binary as #ff
get #ff,,sTemp
close #ff

label1.caption = Trim(sTemp)

 

[That Guy]

op de code van je button zet je dan dit:

ofwel, op je scherm, klik je dubbel op 'command1' (je knop). Dan krijg je iets van 'Private sub command1_click() .... end sub' te zien. Daartussen moet de code.


btw, je screenshot werkt nogsteeds niet. Kom op de freehostia main site.

 

[koen152]

hm... bij mij werkt link wel

p.s zodra je invoerd mijnbestand.txt krijg je in de map een leeg file met de naam mijn bestand.txt dus ik denk dat dat niet klopt

 

[That Guy]

ja, maar 'mijnbestand.txt' moet wel bestaan! Als het niet bestaat dan maakt hij het zelf (een leeg bestand dus)

Probeer eens in de map een bestand genaamt 'mijnbestand.txt' (met text erin) te zetten.

 

[koen152]

dat heb ik gedaan met tekst maar label1 blijf dan leeg

 

[That Guy]

nou, blijkbaar niet, want hier werkt het perfect...

download deze, en check de code.
www.vegras-studios.com/x/helpmij/fileopen1/fileopen1.zip

 

[koen152]

hm... ik zal de code even doorkijken bedankt !

 

[koen152]

Maar een vraagje je kan je het ook openen zonder txt er achter te typen

 

[That Guy]

ja, dan moet je deze regel veranderen

open app.path & "\" & text1.text for binary as #ff

naar

open app.path & "\" & text1.text & ".txt" for binary as #ff

 

[koen152]

oke natuurlijk harstikke bedankt

 

[That Guy]

np, zet je de vraag op 'opgelost' ?

(rechtsonder dit bericht, 'status van de vraag')

 

[huijb]

zeg nog een vraagje wat is het commando om het aftedrukken op een "echte" printer

Nu gaan er twee vragen door elkaar lopen. Andere vraag is nieuwe topic openen.