[ Proko @ 16.09.2008. 09:52 ] @
Pokušavam da u VB6 uradim da, kada se na ikonicu aplikacije povuče i spusti ikonica neke slike (jpg,...), otvori tu sliku. Uspeo sam da mi se otvori VB aplikacija, ali kako da dobijem adresu slike. Slika i ne mora da se otvori, treba mi samo njena adresa.
Sve bi to bilo u cilju kačenja slike na internet (ImageShack), gde sam preostali deo koda već uradio, samo mi je još ovo ostalo nerešeno. Varijanta da VB aplikacija bude stalno podignuta ne dolazi u obzir. (Inače, tako mi sve radi, kada na formu spustim sliku.)
[ Aleksandar Ružičić @ 16.09.2008. 12:40 ] @
stavi Debug.Print Command u Form_Load....
[ Eurora3D Team @ 16.09.2008. 13:29 ] @
Kao sto je Aleksandar napisao Command
A ako imas samo Sub Main onda tu procitaj komandnu liniju
Ovako
Code:

Sub Main()
Dim CmdLine As String
CmdLine = Command ' Command je fn koja vraca komandnu liniju programa
If CmdLine <> "" Then MsgBox CmdLine
End Sub

A za glavnu formu ovako
Code:

Private Sub Form_Load()
Dim CmdLine As String
CmdLine = Command ' Command je fn koja vraca komandnu liniju programa
If CmdLine <> "" Then MsgBox CmdLine
End Sub
[ Proko @ 16.09.2008. 15:15 ] @
Hvala, probao sam i radi, ali se nešto čudno dešava...kada sve to ubacim u kod i probam korak po korak, procedura se završi do kraja, i dokument (slika) se zakači na NET. Kada idem korak po korak, moram ručno da upišem adresu, napr "C:\slika.jpg". To se pojavi u kontrolnom TextBoxu kao: C:\slika.jpg, dakle, bez navodnika. Kada startujem exe, onda ostaju navodnici, i ne uradi proceduru do kraja. Kako eliminisati znake navoda u stringu?
[ Eurora3D Team @ 16.09.2008. 15:59 ] @
Ovako
Code:

Private Sub Form_Load()
Dim str As String: str = Chr(34) & "tekst" & Chr(34)
Debug.Print str
'ovako
If Left(str, 1) = Chr(34) Then str = Right(str, Len(str) - 1)
If Right(str, 1) = Chr(34) Then str = Left(str, Len(str) - 1)
Debug.Print str
End Sub
[ Proko @ 16.09.2008. 17:45 ] @
Hvala, to je to. Uskoro ću da postavim ceo projekat, možda će nekome trebati...





[Ovu poruku je menjao Proko dana 18.09.2008. u 01:04 GMT+1]
[ Proko @ 18.09.2008. 00:05 ] @
Kao što sam i obećao, program je gotov.
Hvala svima na pomoći.