[es] - Hitno potrebna pomoc

Selo-Kovaci
Halilovic Selvedin
Zavidovici (BiH)

Član broj: 146120
Poruke: 12
*.dlp399.bih.net.ba.

Sajt: www.selvedin-kovaci.co.nr

Profil

Hitno potrebna pomoc

^{18.06.2007. u 14:19 - pre 204 meseci}

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!

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

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

Odgovor na temu

BinLaden
Ni na nebu ni na zemlji

Član broj: 147476
Poruke: 102
*.teol.net.

Sajt: www.sove-soft.rs.ba

Profil

Re: Hitno potrebna pomoc

^{18.06.2007. u 18:14 - pre 204 meseci}

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

Ero S Onoga Sveta

Odgovor na temu

Selo-Kovaci
Halilovic Selvedin
Zavidovici (BiH)

Član broj: 146120
Poruke: 12
*.dlp183.bih.net.ba.

Sajt: www.selvedin-kovaci.co.nr

Profil

Re: Hitno potrebna pomoc

^{18.06.2007. u 21:00 - pre 204 meseci}

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]}

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

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

Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893

+384 Profil

Re: Hitno potrebna pomoc

^{19.06.2007. u 07:42 - pre 204 meseci}

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

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

Odgovor na temu

Selo-Kovaci
Halilovic Selvedin
Zavidovici (BiH)

Član broj: 146120
Poruke: 12
*.dlp291.bih.net.ba.

Sajt: www.selvedin-kovaci.co.nr

Profil

Re: Hitno potrebna pomoc

^{19.06.2007. u 08:05 - pre 204 meseci}

Hvala ti jarane. Sada je uredu!

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

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

Odgovor na temu

Selo-Kovaci
Halilovic Selvedin
Zavidovici (BiH)

Član broj: 146120
Poruke: 12
*.dlp357.bih.net.ba.

Sajt: www.selvedin-kovaci.co.nr

Profil

Re: Hitno potrebna pomoc

^{19.06.2007. u 11:33 - pre 204 meseci}

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

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

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

Odgovor na temu

borcha
Boris Bokan
;-(
Novi Sad

Član broj: 148976
Poruke: 419
*.com
Via: [es] mailing liste

+3 Profil

Re: Hitno potrebna pomoc

^{19.06.2007. u 11:49 - pre 204 meseci}

>

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

Odgovor na temu

Selo-Kovaci
Halilovic Selvedin
Zavidovici (BiH)

Član broj: 146120
Poruke: 12
*.dlp357.bih.net.ba.

Sajt: www.selvedin-kovaci.co.nr

Profil

Re: Hitno potrebna pomoc

^{19.06.2007. u 12:11 - pre 204 meseci}

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]}

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

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

Odgovor na temu

BinLaden
Ni na nebu ni na zemlji

Član broj: 147476
Poruke: 102
*.teol.net.

Sajt: www.sove-soft.rs.ba

Profil

Re: Hitno potrebna pomoc

^{19.06.2007. u 16:10 - pre 204 meseci}

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.

Ero S Onoga Sveta

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.220.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Hitno potrebna pomoc

^{07.07.2007. u 22:33 - pre 204 meseci}

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

-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

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Hitno potrebna pomoc

^{08.07.2007. u 00:25 - pre 204 meseci}

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

rgdrajko

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.220.*

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Hitno potrebna pomoc

^{09.07.2007. u 22:58 - pre 204 meseci}

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.

Odgovor na temu