problemer med CommonDialog

Hvad virker ikke - kommer åbn-dialogboksen ikke frem eller hvad? Skal du ikke bruge With-sætning

Nu skriver du ikke hvad der sker, men som det står kan det i hvert fald ikke kompileres.

Hvad med:

With CommonDialog1
    .DialogTitle = "Open"
    .Filter = "Text (*.txt)|*.txt"
    .ShowOpen
End With

Nej den kommer ikke frem den kommer bare med en fejl.
Jeg er ny i VBA. Hvor er det jeg skal bruge den with-sætning

-> venne

Jeg har prøvet din kode. der kommer den også med en fejl
den siger det er noget med .DialogTitle = "Open"

Er det rigtig nok at jeg har det her under Private Sub

Du kan IKKE bare skrive

  .DialogTitle = "Open"
  .Filter = "Text (*.txt)|*.txt"
  .ShowOpen

Du skal skrive

With CommonDialog
    .DialogTitle = "Open"
    .Filter = "Text (*.txt)|*.txt"
    .ShowOpen
End With

som venne skriver!

Har du sat CommonDialog-komponenten i din form?
Hvis ikke sæt den til via Tools, Additional controls

actinium:

"noget med .DialogTitle = "Open"

Hvad er fejlmeddelsen helt præcist?

Det er sådan med fejlmeddelser, at de er der til at fortælle hvad der går galt - derfor er det en god ide at gengive hvad den skriver ;o)

Du skal smide en commondialog-komponent på din form før det overhovedet virker.
Herefter bruger du den kode som du allerede har, men retter så du bruger "with" og "end with" som venne og jeg skriver.
Sørg for at komponentens navn er som det navn du bruger i din kode

Hvis alle ovenstående ting er opfyldt, virker det

Det er lige det ja, den skriver ikke rigtig noget. Den stopper bare og markere den linje med gul.

Til peter ja jeg har sat CommonDialog-komponenten til i min form.

Skulle jeg ikke også kunne lave den ved og trække den over fra ”toolbox”.
Hvis jeg gør det skriver den. ”The Control could not be created because it is not properly licensed.”

Ups jeg mener når jeg trækker den ”commondialog-komponent” ind i min form skriver den
”The Control could not be created because it is not properly licensed.”

Har du en cracked version af VB, eller...?
Den fejl får "vi" ikke, og det kunne tyde på at der er et licens-problem af en art. Har aldrig oplevet den fejlmeddelse

nej nej jeg har licens til det version 6.3

Private Sub Command1_Click()

Dim FileName As String

With Form1.CommonDialog1
    .DialogTitle = "Open"
    .Filter = "Text (*.txt)|*.txt"
    .ShowOpen
End With

FileName = CommonDialog1.FileName


MsgBox FileName, 16 + 0, "Filens_URL"


End Sub
----------------------
Det er virker for mig, husk at tilføje commondialog-komponent til til dit form.... :D

Men fejlen ligger ikke i din kode - den er fin nok, hvis du ellers følger de råd du har fået her.

Jeg ville lægge mærke til "it is not properly licensed." og så finde en forklaring på det.

Jeg har som sagt aldrig fået sådan en fejlmeddelse, og har installeret VB6 på helt normal vis.

brianv : Problemet er jo ikke koden (længere)

actinium : Hvis du ikke har mod på at finde ud af hvorfor du får den (ret alvorlige) fejlmeddelse, så kan du skaffe stien til en fil på anden vis, se www.eksperten.dk/spm/346555

Hej alle

Jeg har fået løst problemet nu.
Det der skulle til var en geninstallering af  VB 6.0
Derefter kunne jeg tilføje den ”commondialog-komponent”
Tak for hjælpen

Så aflever points til dem du vil give points (evt. dig selv) og få lukket dette sp :o)

Selv tak, actinium - ikke mere hjælp til dig fremover!

Ups det undskylder jeg meget det var en fejl.
Jeg har oprettet et nyt spørgsmål
http://www.eksperten.dk/spm/354462
Hvor jeg meget gerne vil give dig point.

Det skal du ikke tænke over - det er vel mest actinium der har fortjent. Ligemegt nu

;o)