Language Filterd(Semi Resolved)

[shishkabob]

I'm experimenting with check boxes, and so far I have bold, italic etc. etc. But I want to make it, so when you click one of these check boxes is, it will fill words such as "****" with "#&@&" but, I gave up on the idea to fill it with "#&@&" because I couldn't figure it out, so then I tried just deleting the work from the final showing. But now, I can't seem to get that to work, so anywayz, here's my code so far.

Private Sub chkL_Click()

If chkL.Value = vbChecked Then
If LblUser.Caption = "****" Then
LblUser.Caption = -"****" = True

Else
LblUser.Caption = -"****" = False


End If
End If

End Sub

If there is a way to fill in the word with simbols, please let me know!!

[Keithuk]

First of all you should be getting errors with your code.

If chkL.Value = vbChecked Then
If LblUser.Caption = "****" Then
'LblUser.Caption is a Caption it can't = True only Enabled or Visible
'and you can't have (-)
LblUser.Caption = -"****" = True
LblUser.Caption = "****"
Else
LblUser.Caption = -"****" = False

If you want specific characters in the caption then specify them "%$&@#" or use Chr$(Number). You will have to lookup the Numbers for the characters you want.

I don't know why you called this Language Filter.

[chemicalNova]

Try something like:

Function GetRandomChar(num As Long) As String
Dim RandomNum As Long
Randomize
RandomNum = Rnd() * num
If (RandomNum < 10) Then
    GetRandomChar = "#"
ElseIf (RandomNum > 10) And (RandomNum < 15) Then
    GetRandomChar = "$"
ElseIf (RandomNum > 15) And (RandomNum < 40) Then
    GetRandomChar = "&"
Else
    GetRandomChar = "%"
End If
End Function
 
Function SymbolizeWord(str As String) As String
Dim retString As String
Dim thisChar As String
Dim i As Long
 
For i = 1 To Len(str)
    'loop through each character and make it a random character..
    thisChar = Mid(str, i, 1)
    retString = retString + GetRandomChar(50)
Next i
 
SymbolizeWord = retString
End Function
 
 
Private Sub chkL_Click()
 
If chkL.Value = vbChecked Then
    LblUser.Caption = SymbolizeWord(LblUser.Caption)
End If
End Sub

Works fine..



Phreak

[shishkabob]

Private Sub chkL_Click()

If chkL.Value = vbChecked Then ' If check box is clicked, then make the caption the same, without the word "f.u.c.k."

LblUser.Caption = Replace(LblUser.Caption, "****", "&*%$") ' This is where the replacing begins, the **** is F.U.C.K.

Else

LblUser.Caption = (txtUser.Text)

End If

Kinda hard to explain, but here's my file... you will notice that you can check all the boxes before hand, then enter the text, then press the button, and the txt will show up in the lbl with the corrosponding attributes, but the language filter you have to wait intill txt is in the label.

Example.. I put in (f.u.c.k) without the .'s but I don't click the User button yet, I check all the chk.. boxes then press the user button. All attributes are correct (text is bold, italec, etc) But, it dosn't censor the cuss word intil after you unclick the lang. chk box, and then reclick it, (why is this?)

[TheVader]

That's hard to say without seeing the code, but apparently when you click the command button you don't check the value of the checkbox. You have to do that; so just insert this code in the Command_Click sub (I suppose it's not there yet...).

If chkL.Value = vbChecked Then ' If check box is clicked, then make the caption the same, without the word "f.u.c.k."
 
LblUser.Caption = Replace(LblUser.Caption, "****", "&*%$") ' This is where the replacing begins, the **** is F.U.C.K.
 
Else
 
LblUser.Caption = (txtUser.Text) 
 
End If

[shishkabob]

Still a no go...... it dosn't change the text, when cmd button is clicked. Can't figure it out, would I have to use a for... do loop??? ex.. for every **** in lblUser.caption ????

[BuggyProgrammer]

???

LblUser.caption = replace(LblUser.caption,"bunny","#$%$")

should work. maybe it isn't case sensitive? add the line

Option Compare Text

at the VERY VERY TOP of the code.

[shishkabob]

yet still a no go, Do you guys want me to put my vb files up, and not the exe??

[shishkabob]

should I give up, and leave it as it is??? or what?

[BuggyProgrammer]

yeh we don't open EXE's.

[shishkabob]

here is my vb files, please help!!!

[shishkabob]

I'm replying to keep this post on the page...

[shishkabob]

once again, i'M replying to this so, it will stay on first page.

[BuggyProgrammer]

jeez..........

look at this line
LblUser.Caption = Replace(LblUser.Caption, "****", "&*%$")

I don't think you even looked at the code. If you can't find the problem then I don't know what to say. Look at even the comment AFTER the line (in your own code, not this line I copied out of it). It tells you what **** is suppose to be (since the forums filter swears).