Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD
 Cost abonament clinica privata

Tremura toata, dar nu de la ro...

Renault Android

Recomandare bicicleta e-bike 20&#...
 Bing-Content removal tool

Nu pot accesa monitorulsv.ro de l...

Cum sa elimini urmele de acnee?

Wc Geberit
 Routere detinute in trecut si in ...

Teii din fața casei

E-Mail in serie prin Excel si Out...

Modul alimentare rulou/jaluzea ex...
 

O Mica Mare Problema

- - - - -
  • Please log in to reply
4 replies to this topic

#1
marduk

marduk

    New Member

  • Grup: Members
  • Posts: 1
  • Înscris: 15.10.2005
Salut ! PLS cine imi spune si mie cum fac in visual basic ca atunci knd dau click pe un button, ceea ce am scris yo sa se duca intr-un text box, dar nu stiu cum sa fac k de fiecare data knd inserez un text acolo sa dea un PAGE DOWN.....nu stiu dak intelegeti la ce ma ref.....multumesc anticipat...

P.S. ceva `n genul oDC-ului si/sau oricarui alt tip de program tip chat...

#2
RAZ

RAZ

    Member

  • Grup: Members
  • Posts: 1,227
  • Înscris: 15.10.2004
Salut,
sa vedem daca am inteles... sa zicem ca ai 2 textbox-uri (Text1 si Text2) si un buton (Command1) da ?
Text2 e MultiLine iar ce vei scrie in Text1 va aparea in Text2 cand apesi pe Command1 (unul sub altul folosind vbCrlf):
Private Sub Command1_Click()
	Text2.Text = Text2.Text + Text1.Text + vbCrLf
End Sub
:wave:

#3
IceBSD

IceBSD

    New Member

  • Grup: Members
  • Posts: 15
  • Înscris: 03.08.2004
Salut,

Luând cazul propus de RAZ, probabil vrei să faci ceva de genul:

Private Sub Command1_Click()
Text2.Text = Text2.Text & Text1.Text & vbCrLf
Text2.SelStart = Len(Text2.Text)
Text1.Text = vbNullString
End Sub

De asemenea pune ScrollBars = Vertical la Text2 înainte să rulezi proiectul.

Edited by IceBSD, 19 October 2005 - 12:51.


#4
alexei

alexei

    Active Member

  • Grup: Members
  • Posts: 1,073
  • Înscris: 11.06.2005
ca tot e de Visual Basic, nu fac un alt topic.
vreau si eu sa va intreb ceva.
am urmatoarea procedura:


Private Sub cmdSave_Click()
stud.nume = bia628txtnume.Text
stud.facultate = bia628txtfacultate.Text
stud.an = bia628txtan.Text
stud.progr = bia628txtprog.Text
stud.conta = bia628txtconta.Text
stud.fin = bia628txtfin.Text
Put #1, (LOF(1) / Len(stud)) + 1, stud
contor = contor + 1
Call initializare
End Sub


puteti sa imi spuneti si mie de ce nu imi salveaza datele in fisier ? pls  :worthy:
e urgent, foarte urgent.  :worthy:

#5
alexei

alexei

    Active Member

  • Grup: Members
  • Posts: 1,073
  • Înscris: 11.06.2005
chiar nu ma ajuta si pe mine nimeni ?
mai am doar cateva ore, pana la 6 dimineata...
hai... va rog mult de tot

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate