Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

RptTextBox resize

[es] :: Visual Basic 6 :: RptTextBox resize

[ Pregleda: 243 | Odgovora: 3 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

pskibola
Petar Veliki

Član broj: 170690
Poruke: 7
*.adsl.net.t-com.hr.



Profil

icon RptTextBox resize25.01.2008. u 20:24

Zna li netko kako u VB data reportu da se automatski mijenja veličina RptTextBoxa (horizontalno, ne word wrap) ovisno o veličini podatka.
25.01.2008. u 20:24 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1505
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: RptTextBox resize25.01.2008. u 20:37
Pa ima jedna "rucna" mogucnost: Postavis da je font za formu iz koje pozivas report isti kao font za taj tvoj rpttextBox, pa iskoristis TextWidth() funkciju da dobijes sirinu koju ce taj tekst trebati da zauzme i onda podesis iz koda Width za taj tvoj rpttextBox - eto ukratko prepricano.
vidi GoranVucicevic #28045

www.clickersoftware.com
25.01.2008. u 20:37 

pskibola
Petar Veliki

Član broj: 170690
Poruke: 7
*.adsl.net.t-com.hr.



Profil

icon Re: RptTextBox resize25.01.2008. u 21:07
Problem je malo složeniji nakon RptTexBoxa slijedi RptLabel znači da bi se sve moralo pomicati. Mislim da je to u Cristal Reportu riješeno tako da textbox staviš unutar labela, to ne pali u data reportu.Svojstvo CanGrow prelomi string u novi red što meni ne odgovara, treba RptTextBox da se produži ili suzi. Podaci dolaze u RptTextBox iz ADO recordseta.
25.01.2008. u 21:07 

pskibola
Petar Veliki

Član broj: 170690
Poruke: 7
*.adsl.net.t-com.hr.



Profil

icon Re: RptTextBox resize26.01.2008. u 01:53
Code:

Dim s, c As Long
Dim d As String
c = 11
d = Data5.Recordset.Fields("RacunBanka").Value
Font.Name = "Arial"
Font.Bold = True
Font.Size = 11
 s = TextWidth(d)
        

Call izvjestaj(a, drUgovorOradu)
drUgovorOradu.Sections("Section1").Controls("text6").Width = s      ' problem je što mi string ne stane u text6
drUgovorOradu.Sections("Section1").Controls("label4").Left = s        ' sa ovim postavljam label4 odma iza text6


U čemu je greška, za gore navedeni font TextWidth() nije dovoljno velik da mi string stane u text.box


[Ovu poruku je menjao Aleksandar Ružičić dana 26.01.2008. u 16:33 GMT+1]
26.01.2008. u 01:53 

[es] :: Visual Basic 6 :: RptTextBox resize

[ Pregleda: 243 | Odgovora: 3 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.