[VB6] Tekst herhaaldelijk laten verschijnen.

[mpie]

Hoi,

ik ben een beginnende VB6 user en ik wil graag weten hoe je nou door middel van een command button in te drukken een tekst laat verschijnen in de caption van de label. Als je dan nog een keer indrukt dan moet dezelfde tekst in dezelfde label komen maar dan achter de eerste tekst enzovoorts.

Ik heb alleen nog maar het beginnetje.

code:

Private Sub cmdMan_Click()
    lblWeergave.Caption = "M"
End Sub

Dus kortom als ik nog een keer op die knop drukt dan moet er nog een M komen te staan.

[Verwijderd]

Visual Basic:

Private Sub cmdMan_Click()
    lblWeergave.Caption = lblWeergave.Caption & "M"
End Sub

Enjoy

[mpie]

Dankjewel hij doet het
Is het dan ook nog mogelijk om het aantal M op te tellen in een MsgBox??

[Verwijderd]

alles is mogelijk, maar ik begrijp niet echt wat je wil tellen

[mpie]

Ik heb een form gemaakt waarbij je dus op de knop Man moet drukken waardoor er een M verschijnt in de Label Weergave. Als je op de knop Vrouw drukt dan komt er een V te staan. Enzovoorts dat het achterelkaar komt. Nu wil ik dus in een MsgBox het aantal M en het aantal V afdrukken en met daaronder offcourse Totaal.
Dat tellen lukt me dus niet. Ik dacht in de richting van Cnt???

[gorgi_19]

mpie schreef op 19 februari 2003 @ 17:56:
Ik heb een form gemaakt waarbij je dus op de knop Man moet drukken waardoor er een M verschijnt in de Label Weergave. Als je op de knop Vrouw drukt dan komt er een V te staan. Enzovoorts dat het achterelkaar komt. Nu wil ik dus in een MsgBox het aantal M en het aantal V afdrukken en met daaronder offcourse Totaal.
Dat tellen lukt me dus niet. Ik dacht in de richting van Cnt???

Gewoon een tellertje mee laten lopen?

Visual Basic .NET:

Dim iMan as Integer = 0

Private Sub cmdMan_Click()
    lblWeergave.Caption = lblWeergave.Caption & "M"
    iMan += 1
End Sub

[mpie]

gorgi_19 schreef op 19 februari 2003 @ 17:58:
[...]

Gewoon een tellertje mee laten lopen?

Visual Basic .NET:

Dim iMan as Integer = 0

Private Sub cmdMan_Click()
    lblWeergave.Caption = lblWeergave.Caption & "M"
    iMan += 1
End Sub

Dat werkt niet in VB6, kan ik wel dit doen?

code:

Private Sub cmdMan_Click()
    Dim Man As Integer
    lblWeergave.Caption = lblWeergave.Caption & "M"
    Man = Man + 1
End Sub

[ Voor 23% gewijzigd door mpie op 19-02-2003 18:12 ]

[johnwoo]

gorgi_19 schreef op 19 February 2003 @ 17:58:
[...]

Gewoon een tellertje mee laten lopen?

Visual Basic .NET:

Dim iMan as Integer = 0

Private Sub cmdMan_Click()
    lblWeergave.Caption = lblWeergave.Caption & "M"
    iMan += 1
End Sub

Vertaling naar VB6:

Visual Basic .NET:

Private iMan As Integer

Private Sub cmdMan_Click()
   lblWeergave.Caption = lblWeergave.Caption & "M"
   iMan = iMan + 1
End Sub

Leer je aan om variabelen buiten een functiescope altijd met een access modifier te declareren. Dus alleen in een functie gebruik je Dim, buiten een functie gebruik je Private, Public of Friend om variabelen te declareren.
Werkt lblWeergave.Caption &= "M" trouwens niet in VB.net? (Ik heb er nog niet mee gewerkt, en ik zie dat je wel iMan += 1 gebruikt. Is iMan++ ook mogelijk, a la C?)

[gorgi_19]

johnwoo schreef op 19 februari 2003 @ 18:12:
(Ik heb er nog niet mee gewerkt, en ik zie dat je wel iMan += 1 gebruikt. Is iMan++ ook mogelijk, a la C?)

Dat van dat Dim heb je gelijk is, niet echt netjes.. :x

iMan++ werkt niet in VB.Net.

[mpie]

johnwoo schreef op 19 February 2003 @ 18:12:
[...]

Vertaling naar VB6:

Visual Basic .NET:

Private iMan As Integer

Private Sub cmdMan_Click()
   lblWeergave.Caption = lblWeergave.Caption & "M"
   iMan = iMan + 1
End Sub

Leer je aan om variabelen buiten een functiescope altijd met een access modifier te declareren. Dus alleen in een functie gebruik je Dim, buiten een functie gebruik je Private, Public of Friend om variabelen te declareren.
Werkt lblWeergave.Caption &= "M" trouwens niet in VB.net? (Ik heb er nog niet mee gewerkt, en ik zie dat je wel iMan += 1 gebruikt. Is iMan++ ook mogelijk, a la C?)

Dankjewel johnwoo dat van die Private is handig om te weten. en lblWeergave.Caption & "M" werkt gewoon in VB6.
Ik heb nu dit staan voor de Stop knop:

Visual Basic:

Private Sub cmdStop_Click()
    Dim Man, Vrouw, Prompt As String
    
    Man = "Aantal mannen: " & iMan
    Vrouw = "Aantal vrouwen: " & iVrouw
    Prompt = Man + Vrouw
    
    lblWeergave.Caption = lblWeergave.Caption & "S"
    
    MsgBox Prompt, vbOKOnly, "Teller"
End Sub

Nu zet ie dus Aantal mannen en Aantal vrouwen naast elkaar in de MsgBox. Hoe moet dit nu onder elkaar komen? Ik vraag echt veel he? Sorry

[ Voor 26% gewijzigd door mpie op 19-02-2003 18:29 ]

[Sponge]

Visual Basic:

Private Sub cmdStop_Click()
    Dim Man, Vrouw, Prompt As String
    
    Man = "Aantal mannen: " & iMan 
    Vrouw = "Aantal vrouwen: " & iVrouw
    Prompt = Man [b]& vbcrlf &[/b] Vrouw
    
    lblWeergave.Caption = lblWeergave.Caption & "S"
    
    MsgBox Prompt, vbOKOnly, "Teller"
End Sub

hmm, tussen de [b] tags

[ Voor 43% gewijzigd door Sponge op 19-02-2003 20:18 ]

[mpie]

Dankjewel hij doet het en mag ik ook weten waar vbcrlf voor staat?

[Verwijderd]

Ik dacht hetzelfde als vbNewLine
Regel einde en begin nieuwe regel.

[RobIII]

mpie schreef op 20 februari 2003 @ 00:08:
Dankjewel hij doet het en mag ik ook weten waar vbcrlf voor staat?

Carriage Return Line Feed (Zeg maar een Enter).

Een Carriage Return was vroeger op het typemachien dat het ding terug naar links ging (hoe heet dat ding nou ook weer:? Trolley of zo ) en LineFeed was dat ie de pagina een regel naar noven schoof zodat je er onder verder ging....

Dit corrospondeert met ASCII codes 13 en 10 (13 is dus CR, 10 is LF). En is dus ook het zelfde als vbNewLine idd.

[ Voor 39% gewijzigd door RobIII op 20-02-2003 02:15 ]

[mpie]

Dankjewel voor alle hulp.
vbNewLine werkt inderdaad ook.
Ik zal binnenkort nog wel wat vragen hebben als ik andere progs aan het maken ben denk ik