CommandButton x 2 pa FileListBox pa TextBox Pomoc

  • 10 odgovora
  • 3.705 pregleda
CommandButton x 2 pa FileListBox pa TextBox Pomoc 02.06.2009. u 08:10 · pre 211 meseci #1
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 !???



Potpis
Ono sto ne moze niko Mogu i ja
Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc 02.06.2009. u 08:42 · pre 211 meseci #2
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

Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc 02.06.2009. u 09:01 · pre 211 meseci #3
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!
Potpis
Ono sto ne moze niko Mogu i ja
Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc 02.06.2009. u 13:54 · pre 211 meseci #5
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]
Potpis
Ono sto ne moze niko Mogu i ja
Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc 03.06.2009. u 06:26 · pre 211 meseci #7
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]
Potpis
Ono sto ne moze niko Mogu i ja
Re: CommandButton x 2 pa FileListBox pa TextBox Pomoc 04.06.2009. u 10:33 · pre 211 meseci #9
SVE JE OK
ali...
da li moze da se zameni komanda :
FileCopy File1.Path & "\" & File1.FileNa...

sa
recimo
FileMove File1.Path & "\" & File1.FileNa...
Potpis
Ono sto ne moze niko Mogu i ja
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme