Hitno potrebna pomoc

[ Selo-Kovaci @ 18.06.2007. 14:19 ] @

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!

[ BinLaden @ 18.06.2007. 18:14 ] @

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

[ Selo-Kovaci @ 18.06.2007. 21:00 ] @

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

_{[Ovu poruku je menjao Selo-Kovaci dana 18.06.2007. u 22:49 GMT+1]}

[ dava @ 19.06.2007. 07:42 ] @

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

[ Selo-Kovaci @ 19.06.2007. 08:05 ] @

Hvala ti jarane. Sada je uredu!

[ Selo-Kovaci @ 19.06.2007. 11:33 ] @

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

[ borcha @ 19.06.2007. 11:49 ] @

>

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="http://www.elitesecurity.org/liste">http://www.elitesecurity.org/liste</a> Ne menjajte sledece dve linije ukoliko odgovarate putem emaila!
 esauth:266101:835dc64707c6733228a6eecc1c7d415f

[ Selo-Kovaci @ 19.06.2007. 12:11 ] @

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 = ""

_{[Ovu poruku je menjao Selo-Kovaci dana 19.06.2007. u 13:27 GMT+1]}

[ BinLaden @ 19.06.2007. 16:10 ] @

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.

[ Marko_L @ 07.07.2007. 22:33 ] @

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

[ rgdrajko @ 08.07.2007. 00:25 ] @

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

[ Marko_L @ 09.07.2007. 22:58 ] @

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.