[VB] Simpele? vraag over CommonDialog

[Nocturno]

Hoi,
ik ben sinds kort een cursus Visual Basic 6 aan het doen,
en nu las ik in mijn cursusboek een opdrachtje voor een simpele textverwerker te maken.

alleen het voorbeeld uit het boek doet niet wat het zou moeten doen?

het gaat om het volgende.
ik heb een lege textbox, en wil hierin een textbestand weergeven,dat wordt geopend met het commondialog commando.
in het voorbeeld staat het alsvolgt.
aan een button wijs ik hetvolgende toe:

Private Sub cmdOpen_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.Filename
End Sub

En wat geeft ie weer?? het Pad naar het bestand!
(wat wel logisch is aangezien het commondialog.FILENAME is)
is mijn voorbeeld onjuist, of ligt het misschien aan mijn VB versie (6.0 Enterprise edition).
of aan de Commondialog versie (Onder XP misschien andere versie?)

in het voorbeeld zou die de inhoud van het textbestand moeten laten zien, niet het pad?

iemand?

[whoami]

Ehm, dat is toch normaal?
Hij zet gewoon het pad en de bestandsnaam in die textbox want dat is exact hetgeen dat je opvraagt.

Wil je de inhoud van dat bestand zien, dan zul je de inhoud van dat bestand moeten inlezen en tonen.

Kijk anders even in de help van VB (msdn) naar uitleg over alle properties van die commondialog.

[M4rk]

Op vrijdag 05 juli 2002 16:46 schreef Nocturno het volgende:
........
Private Sub cmdOpen_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.Filename
End Sub

En wat geeft ie weer?? het Pad naar het bestand!
(wat wel logisch is aangezien het commondialog.FILENAME is)
is mijn voorbeeld onjuist, of ligt het misschien aan mijn VB versie (6.0 Enterprise edition).
of aan de Commondialog versie (Onder XP misschien andere versie?)

Hij doet precies wat hem gevraagd word. ik weet niet precies wat het commando ook al weer was, maar als je een textdocument wil openen zul je een richtextbox o.i.d. moeten maken. ik weet namelijk niet of .value werkt in Visual Basic (en ik heb geen vb in de buurt atm.)

[Feyd-Rautha]

RichtTextBox control gebruiken met de propery 'filename'

[johnwoo]

Overigens kan je zo'n commondialog heel simpel maken met een enkele API call.
Voordelen: geen ocx nodig, werkt dus op iedere Windows versie, erg makkelijk te bouwen, en voor de optimize bikkels onder ons scheelt het ook wat CPU cycletjes en geheugen tegenover het gebruik van een ActiveX control
Nadelen: uhm ja, die zijn er eigenlijk niet

Nu voel ik een opmerking aankomen dat als die jongen bezig is met een VB cursus, hij beter simpel kan beginnen. Geloof mij, het toevoegen van een reference naar de commondialog ocx is lastiger dan het gebruik van een API call

[ddkiller0900]

die common dialog control is om de filename te bepalen.
wil je de inhoud zien dan zal het moeten via de richtextbox zoals eerder genoemd
maar met het volgende stukje code kan je ook je tekst laten zien van een bestand:

bestand.showopen
dim a as string
a=bestand.filename

open a for input as #1
do until eof(1)
input #1,b
list.additem b
loop

je kan natuurlijk het ook gewoon in een textbox laten verschijnen, maar ik werk liever met lists

[DukeMan]

Op vrijdag 05 juli 2002 21:09 schreef johnwoo het volgende:
Overigens kan je zo'n commondialog heel simpel maken met een enkele API call.
Voordelen: geen ocx nodig, werkt dus op iedere Windows versie, erg makkelijk te bouwen, en voor de optimize bikkels onder ons scheelt het ook wat CPU cycletjes en geheugen tegenover het gebruik van een ActiveX control
Nadelen: uhm ja, die zijn er eigenlijk niet

Zou je mij kunnen vertellen welke api dit is? Misschien heb je ook wel wat voorbeeldcode?? Thanx

[Sponge]

Check op PSCode.com (Heb al voor je gezocht, dit zijn de resultaten

[DukeMan]

Op zaterdag 06 juli 2002 11:13 schreef 41.6C.6D.61.72 het volgende:
Check op PSCode.com (Heb al voor je gezocht, dit zijn de resultaten

Bedankt! Hier staan idd goede voorbeelden!

[Nocturno]

bedankt ,ik had al zo'n vermoeden dat mijn cursusboekje een beetje onduidelijk was..

[Feyd-Rautha]

Op vrijdag 05 juli 2002 22:13 schreef ddkiller0900 het volgende:
die common dialog control is om de filename te bepalen.
wil je de inhoud zien dan zal het moeten via de richtextbox zoals eerder genoemd
maar met het volgende stukje code kan je ook je tekst laten zien van een bestand:

bestand.showopen
dim a as string
a=bestand.filename

open a for input as #1
do until eof(1)
input #1,b
list.additem b
loop

je kan natuurlijk het ook gewoon in een textbox laten verschijnen, maar ik werk liever met lists

kan toch veel simpeler:

code:

bestand.showopen
rtfBox.file (ofzoiets, ken propery niet vanbuiten) = bestand.filename