HOOFDLETTERS in VB6

[gebruiker62]

Hallo,
Ik zit wel eens op een cu2 pagina te kijken, en dan hebben sommige mensen texten als:

Hi WeLkOm Op MiJn cU2 SiTe.

Dit is natuurlijk heeel erg lastig om te typen, maar nu kwam ik met een idee om daar een programma voor te maken in VB6.

Ik heb verder niet zoveel kennis van VB, alleen de basis, dus vergeef mijn waarschijnlijke n00b vraag.

dank u

 

[Smartguy]

Alsjeblieft! Doe dat niet en bestrijd die plaag!

 

[gebruiker62]

Geplaatst door Smartguy
Alsjeblieft! Doe dat niet en bestrijd die plaag!

haha... Ja ik vind het ook wel irri, maar het lijkt me lachen om eens te expirimenteren met VB, en dit lijkt me niet echt moeilijk ofzo

 

[huijb]

Tip! Doe het niet, waarom niet http://www.helpmij.nl/forum/showthread.php?s=&threadid=99912 dan lijkt het mij wel duidelijk.

 

[gebruiker62]

jjajajajja... bladiebladie...

geef nou maar gewoon antwoord

 

[CiCi]

Geplaatst door gebruiker62
jjajajajja... bladiebladie...

geef nou maar gewoon antwoord

Okeyyyy...........

 

[buick]

Beetje laat maar here you go:

Maak 2 textboxen en een cmdbutton

Noem textbox 1 : Intext
Noem textbox 2 : OutText
Noem de commandbutton : Go

Private Sub go_Click()
Dim x As Integer, temp As String
OutText.Text = ""
For x = 1 To Len(intext.Text)
    temp = LCase$(Mid$(intext.Text, x, 1))
    If x / 2 = Int(x / 2) Then temp = UCase$(temp)
    OutText.Text = OutText.Text + temp
Next x


End Sub

De text die je in het eerste textveld invoert wordt omgezet naar lower/uppercase in het 2e veld.

Suc6,

Nico
Dat moet werken

 

[Dieterken]

hoe kun je instellen dat zodra je op dat vak klik de inhoud gewist word (bv als je er in zet voeg hier uw tekst in)

 

[buick]

Private Sub Intext_Click()
Intext.Text = ""
End Sub

Let wel op dat nu elke keer als je met je muis op dat veld klikt, het gewist wordt

Nico