Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Marantz MM7025 vs Rotel RB1552 mkii

Recomandare bicicleta electrica

Venom - The Last Dance

Demolarea blocurilor prea vechi s...
 Alimentare motor stea-triunghi

Contact pornire aproape blocat de...

Nonce cu Javascript si Nginx pt I...

Sigma 28-45mm F/1.8
 BT extragere parere va rog

Legate boxe la 2 surse

Cand ajung banii de la banca dupa...

Beneficii angajare somer
 Divani&Sofa

Caut software antic Kasperski Ant...

Intrebare despre ppc (fostul enel)

Radiator spart? Pierdere freon - ...
 

AddItem Listbox numere consecutive

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

#1
razvanionescu

razvanionescu

    New Member

  • Grup: Members
  • Posts: 3
  • Înscris: 15.05.2010
Salut !

Incerc sa scriu o procedura care atunci cand dau de fiecare data click pe un buton, sa mi se adauge itemuri intr-un listbox (numere consecutive) dar nu-mi iese. Am incercat :

Private sub form load()
dim i as integer
i=0
end sub


Private Sub Command1_Click()
p = p+1
list1.additem p
end sub


Vre-oi dee pls ?

tks

#2
msmihai

msmihai

    Senior Member

  • Grup: Senior Members
  • Posts: 5,271
  • Înscris: 02.09.2006
habar n-am vb, dar cine e p la tine ? nu il vad declarat pe nicaieri.

#3
macaz

macaz

    Junior Member

  • Grup: Members
  • Posts: 108
  • Înscris: 14.06.2007
Incearca asa:

Private Sub Command1_Click()
With List1
.AddItem .ListCount + 1
End With
End Sub

Vad ca nu prea stii ce sunt alea variabile locale si variabile globale. Alea pe care le definesti tu sunt locale.
Private sub form load()
dim i as integer
i=0
end sub
'aici nu faci absolut nimic

Private Sub Command1_Click()
p = p+1
list1.additem p
end sub
'chestia asta adauga de fiecare data un 1 in acel listbox (asta daca variabila p nu este definita global).


Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

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