Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

drag and drop na ikonicu...

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 6 odgovora
  • 2.126 pregleda

Najnovija ↓

drag and drop na ikonicu... 16.09.2008. u 10:52 · pre 220 meseci #1
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.)
Potpis
...neki drugi pogled na svet...
Re: drag and drop na ikonicu... 16.09.2008. u 14:29 · pre 220 meseci #3
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
Potpis
HomePage http://www.eurora3d.com
Re: drag and drop na ikonicu... 16.09.2008. u 16:15 · pre 220 meseci #4
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?
Potpis
...neki drugi pogled na svet...
Re: drag and drop na ikonicu... 16.09.2008. u 16:59 · pre 220 meseci #5
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
Potpis
HomePage http://www.eurora3d.com
Re: drag and drop na ikonicu... 16.09.2008. u 18:45 · pre 220 meseci
izmenjeno 1 put, poslednji put Proko 18.09.2008. u 01:04
Izmene poruke
  1. Proko18.09.2008. u 01:04zapis iz teksta poruke
#6
Hvala, to je to. Uskoro ću da postavim ceo projekat, možda će nekome trebati...
Potpis
...neki drugi pogled na svet...
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme