Hitno potrebna pomoc

Hitno potrebna pomoc 18.06.2007. u 15:19 · pre 235 meseci #1

Zdravo
E ovako
Radim jedan program pa sam zapeo do boli. Sljdeci imam probelm

1 u formi "main" imam 4 textboxa i 4 labela. E sad u drugoj formi imam jedan textbox malo veci i zelim da u njega prilikom otvaranja forme ispise pri vrhu neki tekst i tekst iz ona 4 textboxa i 4 labela.
textboxovi su obiljezeni ovako
text1,text2,text3,text4 a labeli label1,label2,label3,label4.
Sad taj textbox kada se ucita forma treba da izgleda ovako

neki tekst
jos nekog teksta
text1 label1
text2 label2
text3 label3
text4 label4

neki tekst
*******************
To znaci da kada ispise textbox1 da kraj njega ispise label1 i tako za ostalo.

Nadam se da ce neko skontati i sto prije odgovoriti jer mi hitno ovo treba!

Potpis

Posjetite
www.selvedin-kovaci.co.nr
www.os-kovaci.co.nr

Posjetite Selvedinov forum i obavezno se registrujte!!!
[url]www.topfreeforum.com/selvedin[/url]

Re: Hitno potrebna pomoc 18.06.2007. u 19:14 · pre 235 meseci #2

1. Postav Properties - TextVeliki: "MultiLine" na True

Code:
Private Sub Form_Load()
Dim S As String

    S = "Neki Tekst" & vbCrLf & "Drugi Tekst" & vbCrLf & main!Text1.Text  _
          & " " & main!Label1.Caption  & vbCrLf & main!Text2.Text & " " _
         & main!Label2.Caption & vbCrLf & main!Text3.Text & " " & main!Label3.Caption _
         & vbCrLf & main!Text4.Text & " " & main!Label4.Caption

    TextVeliki.Text = S

End Sub

Potpis

Ero S Onoga Sveta

Re: Hitno potrebna pomoc 18.06.2007. u 22:00 · pre 235 meseci #3

Hvala ti jarane! Neznas kako si mi pomogao. Oko ovoga sam se mucio ali evo ti si rijesio

izvini medjutim nesto sam zaboravio

kada npr. u text2 nije upisano nista onda u TextVeliki ne upisuje text2 i label2
a dopisuje sljedeci text u kome je napisano nesto

E ovako treba da izgleda ako nije upisano u text2

neki tekst
drugi tekst

label1 text1
label3 text3
label4 text4

neki tekst

P.S

ja sam prvi put stavio ovako
text1 label1 medjutim nema veze

Potpis

Posjetite
www.selvedin-kovaci.co.nr
www.os-kovaci.co.nr

Posjetite Selvedinov forum i obavezno se registrujte!!!
[url]www.topfreeforum.com/selvedin[/url]

Re: Hitno potrebna pomoc 19.06.2007. u 08:42 · pre 235 meseci #4

Evo ne samo za text2 nego i ostale.

Code:

Option Explicit

Private Sub Form_Load()
Dim S As String

 S = "Neki Tekst" & vbCrLf & "Drugi Tekst" & vbCrLf

 If Trim(main!Text1.Text) <> "" Then
 S = S & main!Text1.Text & " " & main!Label1.Caption & vbCrLf
 End If
 If Trim(main!Text2.Text) <> "" Then
 S = S & main!Text2.Text & " " & main!Label2.Caption & vbCrLf
 End If
 If Trim(main!Text3.Text) <> "" Then
 S = S & main!Text3.Text & " " & main!Label3.Caption & vbCrLf
 End If
 If Trim(main!Text4.Text) <> "" Then
 S = S & main!Text4.Text & " " & main!Label4.Caption & vbCrLf
 End If
 TextVeliki.Text = S

End Sub

Potpis

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Re: Hitno potrebna pomoc 19.06.2007. u 09:05 · pre 235 meseci #5

Hvala ti jarane. Sada je uredu!

Potpis

Posjetite
www.selvedin-kovaci.co.nr
www.os-kovaci.co.nr

Posjetite Selvedinov forum i obavezno se registrujte!!!
[url]www.topfreeforum.com/selvedin[/url]

Re: Hitno potrebna pomoc 19.06.2007. u 12:33 · pre 235 meseci #6

Da ne otvaram novu temu ovdje cu pitati:
Znali mozda kako da u textbox upisujem samo brojeve. Da se ne moze upisati niti jedan znak niti slovo. samo brojevi od 1-5

Potpis

Posjetite
www.selvedin-kovaci.co.nr
www.os-kovaci.co.nr

Posjetite Selvedinov forum i obavezno se registrujte!!!
[url]www.topfreeforum.com/selvedin[/url]

Re: Hitno potrebna pomoc 19.06.2007. u 12:49 · pre 235 meseci #7

>

Evo ti primer:

dim strValid as String
StrValid="12345"
KeyAsci=Asc(Ucase(Chr(KeyAscii)))
If KeyAscii>26
if Instr(strValid, Chr(KeyAscii))=0 Then
KeyAscii=0
end if
end if

------=_Part_58876_19856563.1182249907905
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

 
<div>On 6/19/07, Selo-Kovaci <<a href="mailto:[email protected]">[email protected]</a>> wrote:
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Da ne otvaram novu temu ovdje cu pitati: Znali mozda kako da u textbox upisujem samo brojeve. Da se ne moze upisati niti jedan znak niti slovo. samo brojevi od 1-5
 -- <a href="http://www.elitesecurity.org/p1612656">http://www.elitesecurity.org/p1612656</a> Prijave/odjave: <a href="https://www.elitesecurity.org/pracenje/forumi">https://www.elitesecurity.org/pracenje/forumi</a> Ne menjajte sledece dve linije ukoliko odgovarate putem emaila!
 esauth:266101:835dc64707c6733228a6eecc1c7d415f

Re: Hitno potrebna pomoc 19.06.2007. u 13:11 · pre 235 meseci #8

oVDJE JAVLJA GRESKU
If KeyAscii>26

ali nema veze evo nasao sam kod

Dim C As Currency

On Error GoTo Nije_Broj

If Text1.Text <> "" Then
C = Text1.Text
End If

Exit Sub
Nije_Broj:

MsgBox "Mozete upisivati samo ocjene od 1-5", 64, "Greska"
Text1.Text = ""

Potpis

Posjetite
www.selvedin-kovaci.co.nr
www.os-kovaci.co.nr

Posjetite Selvedinov forum i obavezno se registrujte!!!
[url]www.topfreeforum.com/selvedin[/url]

Re: Hitno potrebna pomoc 19.06.2007. u 17:10 · pre 235 meseci #9

Ovako neces bas dobiti to sto trazis.
Kao prvo promjenjivu C definisi kao "Integer", i posle moras da provjeris daili je upisani
broj veci od 5 ili manj od 1. U Ovaj kod gore moze biti upisan citav opseg Integera. ili kako vec
definises promjenjivu C.

Potpis

Ero S Onoga Sveta

Re: Hitno potrebna pomoc 07.07.2007. u 23:33 · pre 235 meseci #10

Mislim da je u tvom slučaju ovo najelegantnije rešenje

Code:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub 'dozvoljavamo backspace
If Len(Text1.Text) > 0 Then KeyAscii = 0 'posto su ocene u pitanju dozvoljavamo samo jednu cifru
If KeyAscii < 49 Or KeyAscii > 53 Then KeyAscii = 0 'dozvoljavamo samo raspon 1-5
End Sub

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Hitno potrebna pomoc 08.07.2007. u 01:25 · pre 235 meseci #11

Ili je ovo mozda jos elegantnije?

Code:

Private Sub txtBrSlovauReciMin_KeyPress(KeyAscii As Integer)
 If KeyAscii = vbKeyBack Then
 Exit Sub
 End If
 If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then
 KeyAscii = 0
 Exit Sub
 End If
End Sub

Potpis

rgdrajko

Re: Hitno potrebna pomoc 09.07.2007. u 23:58 · pre 235 meseci #12

Nije, zato što će to tvoje da pušta nulu, kao i brojeve veće od 5, a i unos više cifara. I ne moraš se truditi da postuješ ispravku, jer je ona više nego očigledna.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Forum kao aplikacija na telefonu

Srodne teme