Wheel of forutune App, Stuck!

This function may help u :

InStr(1, "bob", "o")
it returns the place of the "o" for example ; here it's "2" so u will need to change the "*" number "2" ;

this function may help u :
Replace(label.caption, "*", "o", 2, 1)
But the result will be the right side only so you need some thing like that :

label.caption = Left(label.caption, 1) & Replace(label.caption, "*", "o", 2, 1)

you can construct all this in one step :

label.caption = Left(label.caption, InStr(1, "bob", "o") - 1) & Replace(label.caption, "*", "o", InStr(1, "bob", "o"), 1)

but better to get it like that :

a = InStr(1, "bob", "o")
label.caption = Left(label.caption, a - 1) & Replace(label.caption, "*", "o", a, 1)

i have some code to present..one sec.

Check again this function is well defined , you can also search in the MSDN for it ;

search in the Index for : "Replace Function" you will find it ..

your code 'work' at my machine , but it has a logic error :

u must not put a "for loop" ;

For intPos = 1 To Len(strEnter) 'Make invalid output
a = InStr(1, strEnter, strChar)
lblDisplay.Caption = Left(lblDisplay.Caption, a - 1) & Replace(lblDisplay.Caption, "*", strChar, a, 1)
Next 'remove this too .

try this function.
the string 'original' is the word to guess (like "bob")
'withStar' is the string to be displayed with the asterisks (like "***")
'toGuess' is the input letter (like "b")
The function substitutes the string 'toGuess' in the string 'withStar', in the right position, and returns the number os substitutions.
I used 'byref' and 'byval' to make clear that only one string is modified within the function

Have fun!


Private Function Change(ByVal original As String, ByRef withStar As String, ByVal toGuess As String) As Long
Dim k As Long
Dim count As Long
For k = 1 To Len(original)
If Mid$(original, k, 1) = toGuess Then
Mid$(withStar, k, 1) = toGuess
count = count + 1
End If
Next
Change = count
End Function

it returns to the function the number of character in the string ;
for example : "bob", if you pass 'o' , it returns 1 .. if you pass 'b' it returns 2 .. and so on .

the output needs to be displayed in a label box *lblDisplay.Caption

So how would that line be coded...for example if i guess "o" in "bob". then the label box would show "*o*"

those two lines with "mstraf" function will do all the work ,,, does this help ?

i dont know what the mstraf function is, i have never learned it before.

Code:
Private Function Change(ByVal strEnter As String, _
ByRef strNew As String, _
ByVal strChar As String) As Long
Dim k As Long
For k = 1 To Len(strEnter)
If Mid(strEnter, k, 1) = strChar Then
Mid(strNew, k, 1) = strChar
Change = Change + 1
End If
Next
End Function
Private Sub cmdGuess_Click()

Dim strEnter As String
Dim strNew As String
Dim strChar As String
Dim intPos As Integer
Dim a As String

strEnter = txtEnter.Text
strNew = String(Len(strEnter), "*")
lblDisplay.Caption = strNew

Do
strChar = InputBox("Guess a letter:", "Letter Entry")

If Len(strChar) > 1 Then
MsgBox "You can only enter one letter at a time!"
End If
Loop While Len(strChar) > 1


lblDisplay.Caption = String(Len(strEnter), "*")
Change strEnter, lblDisplay.Caption, strChar

End of code

what u r using now is my new edited version of "mstraf" function anyway after all it must work now , isn't it ?

make the call every time by an abject not a variable ;
I mean take the format of asterisks from a label for example and put them in "a"; pass "a" to the function and the result label will contain the value of "a"; next time take the value of "a" from the result label which will aontain for example "*o*" not "***" .