Formulier vraag

[slabbetje]

Ik kan er niet echt iets over vinden op google maar ik ben dus bezig met een chatbox,
De connectie alles werkt nu perfect maar nu wil ik er dus commands inzetten...
Een command moet beginnen met een character zoals: / of # en dan de command naam erachter

Hoe kan ik det t beste doen want mijn vb skills zijn niet optimaal?
ik gebruik VB6 voor als je dat wil weten

 

[That Guy]

if len(text1.text, 1) = "/" then
select case text1.text
case "/wtf"
msgbox "U typte commando "wtf"
case "/xD"
msgbox "U typte commando "xD"
end select
end if

zoiets. Maak m zelf maar mooier

 

[slabbetje]

lol is een idee en is t mogenlijk om de commands in een module te doen,
zodat t er ff wat netter uitziet in t scipt en je geen lappe tekst krijgt

edit:
het werkt niet ofzo :S

 

[That Guy]

oeps

if left(text1.text, 1) = "/" then
select case text1.text
case "/wtf"
msgbox "U typte commando wtf"
case "/xD"
msgbox "U typte commando xD"
end select
end if

 

[slabbetje]

nu werkt t wel maar hoe kan ik dit nu in een Module zetten want anders heb ik straks een lap tekst van hier tot bosnie

 

[That Guy]

easy:

in je form:

if left(text1.text, 1) = "/" then
FlaatBlaatWaat(text1.text)
end if

in de module

public funtion FlaatBlaatWaat(txtInput as string)
select case txtInput
case "/wtf"
msgbox "U typte commando wtf"
case "/xD"
msgbox "U typte commando xD"
end select
end function