[ sinisah009 @ 28.08.2008. 01:00 ] @
Trebalo bi da napravim bazu ali u txt formatu. Znaci txt fajl koji cu periodicno puniti podacima iz VB, jel imao neko iskustva sa ovim ?
[ Eurora3D Team @ 28.08.2008. 01:25 ] @
Nije neizvodljivo ... ali bolje da probas sa xml formatom
[ sinisah009 @ 28.08.2008. 23:56 ] @
Uspeo sam iz VB da upisem podatke u txt file, sad mi je problem da definisem sirinu polja u tom txt fajlu zbog kasnijeg stampanja.
Kad unosim podatke u txt-u se formira matrica koja ima sirinu polja kao najduzi element niza, kako bih mogao da definisem sirinu svakog polja???
[ sinisah009 @ 29.08.2008. 16:49 ] @
Treba da zadajem da mi VB pravi txt fajlove na osnovu datuma, ali imam malih problema jel ima neko resenje za ovo:

Private Sub Command1_Click()

Dim ime_fajla As String

ime_fajla = Format(Date, "yyyy/mm")

Open "D:\proba\" & ime_fajla & ".txt" For Append As #1

Print #1, ..............
[ goranvuc @ 29.08.2008. 16:55 ] @
Pa ne mozes koristiti karakter "/" u nazivu fajla. Probaj sa Format(Date, "yyyy.mm") ili Format(Date, "yyyy-mm")
[ sinisah009 @ 29.08.2008. 19:40 ] @
Radi Thanks
[ sinisah009 @ 29.08.2008. 23:32 ] @
Kako da nateram da mi VB 6.0 uradi print preview i print nekog *.txt sa odredjene definisane lokacije ???
[ stefanpn @ 01.09.2008. 13:27 ] @
Pa postavi formu i na njoj picturebox, za font postavi neki sa fixnom velicinom karaktera (Terminal, Courier New ...):

Code:


dim ff as integer
ff = freefile()

dim tmpString as string

open [ime_datoteke kao string] for input as #ff
do while not EOF(ff)
     input #ff, tmpString
     picture1.print tmpString
loop
close #ff



I imas print preview...

A kazes mu jos i:

Printer.Cls
Printer.PaintPicture picture1.picture, 0, 0, picture1.width, picture1.height, 0, 0, picture1.width, picture1.height, vbSrcCopy
Printer.EndDoc

na neki dogadjaj i dobijes sve to na stampacu...

E sad ti to sve razradi(dodaj i stampanje po stranama i sl.), imas osnovu...
[ sinisah009 @ 02.09.2008. 15:04 ] @
Ja sam vec nesto slicno radio ali sa list box-om, ali mi je bio format teksta. To mi sad radi kao print preview, imam problem kad pokrenem stampanje, izbacuje mi gresku kod: Printer.Cls ?!
Kako bih mogao da stampam list box?
[ stefanpn @ 02.09.2008. 17:10 ] @
Moja greska, objekt printer uopste nema metudu Cls.

Preskoci tu liniju i radice.

Mozes da stampas i sa imeForme.PrintForm

A mozes i datareport da napravis.

A mozes i da mu kazes:
Code:

dim ff as integer
ff = freefile()

dim tmpString as string

open [ime_datoteke kao string] for input as #ff
do while not EOF(ff)
     input #ff, tmpString
     printer.print tmpString
loop
close #ff

printer.enddoc

U svakom slucaju srecno...
[ Blue82 @ 26.10.2008. 11:59 ] @
Stefane moze li se u taj picture box ubaciti text pomocu twipsa a ne razmaka? Nesto kao kada stampas pa kazes printer.curentx=500:printer.curenty=2000:printer.print "TEXT"?
[ Marko_L @ 26.10.2008. 12:54 ] @
Pa možeš isto kao i sa printer objektom.
Code:
Picture1.CurrentX = 500
Picture1.CurrentY = 2000
Picture1.Print "TEXT"
[ Blue82 @ 26.10.2008. 16:11 ] @
E odlicno, nisam jos probao ali verujem da moze, trebalo bi. Hvala puno!
[ Blue82 @ 26.10.2008. 16:28 ] @
Code:


Private Sub Command1_Click()
Picture1.CurrentX = 500
Picture1.FontSize = 15
Picture1.Print "TEXT"
Picture1.CurrentX = 1000
Picture1.FontSize = 8
Picture1.Print "TEXT"
Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc
End Su

Sta ne valja? kaze Invalid picture kada se stampa. Inace print preview pokaze lepo
[ Blue82 @ 26.10.2008. 17:09 ] @
Hm... cekaj malo razumem zasto se to desava ali...
On uopste ne konta da taj text koji dodam u picturebox pripada toj picture. Naime kada napisem kod picture2.picture=picture1.picture a prethodno sam u picture1 manuelno ubacio neku sliku u print preview pokaze mi tu ubacenu sliku i preko nje dodat TEXT ali u picture 2 nalazi se samo slika BEZ dodatog texta. Zato i izbacuje invalid picture jer mi je picturebox prazan sto se ticee slike posto je nisam manuelno ubacio i onda ne moze ni da je nadje a dodat text ne gleda kao deo slike i smatra da slike nema pa izbacuje gresku. Kako to da otklonim i odstampam?
[ Marko_L @ 26.10.2008. 18:08 ] @
Pa ne radi zato što svojstvo Picture sadrži bitmapu koja je učitana, ali ne i ono što si ti docrtao. Umesto Picture, koristi svojstvo Image. Takođe, trebaš da promeniš i AutoDraw svojstvo u True. Dakle, izmeni tvoj kod da izgleda ovako i trebalo bi da radi
Code:
Picture1.AutoRedraw = True
Picture1.CurrentX = 500
Picture1.FontSize = 15
Picture1.Print "TEXT"
Picture1.CurrentX = 1000
Picture1.FontSize = 8
Picture1.Print "TEXT"
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc

isto tako, kada prebacuješ nešto iz picturebox-a u picturebox... ako staviš
Code:
Picture1.Picture = Picture2.Picture

prebacićeš samo bitmapu koja je učitana u Picture2. Ako hoćeš da iskopiraš sve sa tekstom koji si eventualno dopisao, koristi
Code:
Picture1.Picture = Picture2.Image
[ Blue82 @ 26.10.2008. 18:15 ] @
Sada radi, hvala, znaci gore je greska.