Avatar billede light Praktikant
22. april 2003 - 22:05 Der er 14 kommentarer og
1 løsning

Stifinder opfanger dobbelt klik på fx TXT fil ! - men skal videre

Jeg har noget file association som bare åbner mit program...
Så har jeg følgende kode som åbner fx en TXT fil hvis der blvier dobbelt klikket på den i stifinderen:

  Dim strPath As String
  strPath = Command$
  frmMain.cd.filename = Command$
  If Right(strPath, 1) = Chr$(34) And Left(strPath, 1) =    Chr$(34) Then
    strPath = Mid$(strPath, 2, Len(strPath) - 2)
  End If
  If Dir(strPath) > "" And Len(strPath) > 0 Then
    rt.OpenFile strPath
    Me.Caption = Dir(strPath)
      Else
    rt.Text = "Test tekst"
  End If
----------------------

rt = CodeMax - Advanced Text / RTF control

Med min file association ved windows bare at TXT filer skal åbnes med mit program og med denne kode blvier filen også åbnet ved et dobbelt klik i stifinderen...

Ok, problemet er nu at hvis jeg dobbelt klikker på filen to gange eller to forskellige så åbner den to eksempler af programmet... Mit program skal altså opfange mens det kører at der er et nyt request !!

Er der nogle der kan hjælpe med det ??

Se evt. mit første spørgsmål der omhandlede Command$ til at opfange stifinder klik: http://www.eksperten.dk/spm/291884

Mvh Light
Avatar billede light Praktikant
22. april 2003 - 22:07 #1
se bort fra linierne:

frmMain.cd.filename = Command$
og
Me.Caption = Dir(strPath)

det var to små eksperimenter...
Avatar billede light Praktikant
23. april 2003 - 08:11 #3
kan ikke bruge det der program..

er der ikke en der kan skrive noget kode ejg kan bruge ??
Avatar billede dk_akj Nybegynder
23. april 2003 - 10:29 #4
Hvad med at checke på formload om programmet kører i forvejen ??

//akj

If App.PrevInstance Then
  msgbox "Programmet kører allerede"
  'send command$ til exsisterende
  unload me
Else
  'programmet kører ikke i forvejen.
End If
Avatar billede dk_akj Nybegynder
23. april 2003 - 12:05 #5
Jeg har lige strikket et eks. sammen.
http://www.eybye-kjaer.dk/uploads/files/oneinstance.zip

//akj
Avatar billede light Praktikant
23. april 2003 - 16:33 #6
jamen den skal kunne sende Command$ videre !! ??!??! kan den det ? hmm... og modtage en Command$ besked
Avatar billede light Praktikant
23. april 2003 - 16:53 #7
jeg har et problem med denne linie:

Dim cds As COPYDATASTRUCT

Den siger Ambisious name detected når jeg vil compile eller når jeg vil køre programmet fra VB
Avatar billede dk_akj Nybegynder
23. april 2003 - 22:10 #8
Mit eks videresender command$

Prøv at associere xyz filerne med project1.exe og dobbeltklik dem en efter en.
En ny instance startes men opdager at der allerede er en kørende instance af programmet. Så finder den handle til den kørende og sender command$ til den kørende som så viser den i textbox'en.

prøv lige at sætte en ' foran
Avatar billede dk_akj Nybegynder
23. april 2003 - 22:11 #9
arg....

prøv lige at sætte en ' foran Dim cds As COPYDATASTRUCT altså
'Dim cds As COPYDATASTRUCT

//akj
Avatar billede light Praktikant
25. april 2003 - 23:25 #10
s[ virker det ikke...
Avatar billede light Praktikant
26. april 2003 - 12:19 #11
det virker ikke hvis jeg kommentere Dim cds As COPYDATASTRUCT i dit eksempel...

hvordan kan det være at den godt kan godtage dit Dim cds As COPYDATASTRUCT
i det eksempel men ikke i mit program ??

>> Light <<
Avatar billede dk_akj Nybegynder
28. april 2003 - 07:56 #12
Har du dette med i ét og kun ét modul ??

Type COPYDATASTRUCT
              dwData As Long
              cbData As Long
              lpData As Long
      End Type

//akj
Avatar billede dk_akj Nybegynder
29. april 2003 - 14:08 #13
Hvordan går det ??

//akj
Avatar billede light Praktikant
24. maj 2003 - 20:54 #14
det virker ikke :(
Avatar billede dk_akj Nybegynder
25. maj 2003 - 11:42 #15
Hov hov mester !!! Den går squ ikke !!
Du kan da ikke bare tage alle points selv !

Jeg lavede et fuldt funktionsdygtigt eksempel der virkede.

At du så ikke lige kunne få det til at spille sammen med dit program skal selvfølgeligt løses men det kan jeg jo ikke hjælpe med når du ikke engang svarede på mit spørgsmål 28/04-2003 07:56:45.

Håber du har en meget god forklaring...

//akj
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester