[es] - CommandButton x 2 pa FileListBox pa TextBox Pomoc

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{02.06.2009. u 08:10 - pre 181 meseci}

Ako na jednoj formi imam
CommandButton dva komada + FileListBox + TextBox
a hocu da prilikom klika na CommandButton1 (C:\folder\1\) ili na CommandButton2 (C:\folder\2\) da mi on otvori u FileListBox-u taj folder i sve txt (tu ce da stoje samo txt fajlovi) i kada izaberem jedan od tih txt filova da ga on otvori u TextBox !???

Ono sto ne moze niko Mogu i ja

Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
*.teol.net.

Sajt: www.littlefrog.ba

Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{02.06.2009. u 08:42 - pre 181 meseci}

U event Command1_Click() stavi:

Code:
File1.path = "C:\folder\1"
File1.refresh

U event Command2_Click() stavi:

Code:
File2.path = "C:\folder\2"
File2.refresh

U event File1_Click() :

Code:
Dim tekst1 As String
Open File1.Path & "\" & File1.FileName For Input As #1
Input #1, tekst1
Text1.Text = tekst1
Close #1

U event File2_Click() :

Code:
Dim tekst2 As String
Open File2.Path & "\" & File2.FileName For Input As #1
Input #1, tekst2
Text2.Text = tekst2
Close #1

Odgovor na temu

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{02.06.2009. u 09:01 - pre 181 meseci}

ovo je OK ali kada izaberem iz FileListBox-a jedan txt file on mi otvori samo jedan red texta i izbaci
Run-time error '424':
Object required
?

Bio mi je Multiline iskljucen ali i kada sam stavio na True opet isto!

Ono sto ne moze niko Mogu i ja

Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
*.teol.net.

Sajt: www.littlefrog.ba

Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{02.06.2009. u 09:32 - pre 181 meseci}

Trebalo bi sve raditi ok. Okaci formu da vidimo o cemu se radi.

Odgovor na temu

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{02.06.2009. u 13:54 - pre 181 meseci}

Evo ga !

Mada sada kada sam izbrisao :
U event File2_Click() :
Code:
Dim tekst2 As String
Open File2.Path & "\" & File2.FileName For Input As #1
Input #1, tekst2
Text2.Text = tekst2
Close #1"

radio delimicno OK jer kada kliknem na txt file dobijem samo prvi red a meni je potrebno da izgleda ovako :

Naziv Artikla =
Proizvodjacki Barkod =
Proizvodjacki Barkod II =
Proizvodjacki Barkod III =
Komerijalni Barkod =
Transportni Barkod =
Mera =
Marke =
Artikal Na Merenje =
Poreska Stopa =
========= Cene ========
Fabricka Cena =
Rabat = %
Preporucena Maloprodajna cena =
========= Marza ========
Marza za VeleProdaju = %
Marza za Maloprodaju = %
Marza za SuperMarket = %
========= Pakovanje ========
Proizvodjacko Pakovanje =
Komercijalno Pakovanje =
Transportno Pakovanje =
Zavrsno Pakovanje =
========= Ostalo ========
Proizvodjac =
Dobavljac =
Grupa Artikala =
Isporuka =
Naznaciti da li je za :
Napomena :

_{[Ovu poruku je menjao aikidomaster dana 02.06.2009. u 15:07 GMT+1]}

Ono sto ne moze niko Mogu i ja

Prikačeni fajlovi

TEST.zip - 1.66k

Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
*.teol.net.

Sajt: www.littlefrog.ba

Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{02.06.2009. u 14:51 - pre 181 meseci}

Sorry, do mene :)

Hrljuks :))

Prikačeni fajlovi

TEST.zip - 2.27k

Odgovor na temu

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{03.06.2009. u 06:26 - pre 181 meseci}

Poslednji put obecavam !!!
E sada je to to ali me muci sledece

Ako izaberem jedan txt file pa probam drugi, ne moze !!!

i imam takodje jos nesto da pitam:
kako da na onaj commandbutton6 stavim komandu da kada kliknem na njega da on taj txt file (iz FileListBox) sto je selektovan da ga skloni na neko drugo mesto tipa (c:\copy) i da uradi refresh filelistbox (kako taj file sto je sklonjen ne bi bio vidljiv na listi)???

_{[Ovu poruku je menjao aikidomaster dana 03.06.2009. u 07:49 GMT+1]}

Ono sto ne moze niko Mogu i ja

Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
*.teol.net.

Sajt: www.littlefrog.ba

Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{04.06.2009. u 07:28 - pre 181 meseci}

Evo ovako:

Samo moras vec da imas folder "C:\copy" ili taj u koji zelis da kopiras.

Prikačeni fajlovi

TEST.zip - 2.15k

Odgovor na temu

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{04.06.2009. u 10:33 - pre 181 meseci}

SVE JE OK
ali...
da li moze da se zameni komanda :
FileCopy File1.Path & "\" & File1.FileNa...

sa
recimo
FileMove File1.Path & "\" & File1.FileNa...

Ono sto ne moze niko Mogu i ja

Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
92.241.153.*

Sajt: www.littlefrog.ba

Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{04.06.2009. u 17:31 - pre 181 meseci}

ne moze

Uradi:

Code:
Filecopy File1.Path & "\" & File1.FileName
Kill File1.Path & "\" & File1.FileName

Odgovor na temu

aikidomaster

Član broj: 162160
Poruke: 148
93.86.172.*

+1 Profil

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc

^{04.06.2009. u 19:15 - pre 181 meseci}

e taj rad !!!
To mi je trebalo !!!
Hvala svima na ulozenom trudu ...
Oduzicu vam se cim budem mogao

Ono sto ne moze niko Mogu i ja

Odgovor na temu