Visual Basic

Private Sub new_word()

        Dim i, f, g As Integer
        
        Dim array() as char = word.toCharArray()

        ‘Do Until letters
            ‘array(i = i + 1) = word.Chars(f = f + 1)
        ‘Loop

        txtLetter1.Text = array(1).ToString
        txtLetter2.Text = array(2).ToString
        txtLetter3.Text = array(3).ToString
        txtLetter4.Text = array(4).ToString
        txtLetter5.Text = array(5).ToString
        txtLetter6.Text = array(6).ToString
        txtLetter7.Text = array(7).ToString
        txtLetter8.Text = array(8).ToString

    End Sub

Private Sub new_word()

       'Trouble Area 

        txtLetter1.Text = word.Chars(1)
        txtLetter2.Text = word.Chars(2)
        txtLetter3.Text = word.Chars(3)
        txtLetter4.Text = word.Chars(4)
        txtLetter5.Text = word.Chars(5)
        txtLetter6.Text = word.Chars(6)
        txtLetter7.Text = word.Chars(7)
        txtLetter8.Text = word.Chars(8)

    End Sub

do until

word.chars( i += 1)

loop

Public Sub new_word(byval word as String)
		
		Dim c As Char
		Dim tb As TextBox
		
		'remove all controls from form..
		me.Controls.Clear()
				
		' iterate through the word
		For Each c In word
			'create a new textbox
			tb = New TextBox
			tb.Tag = c ' hold the word to compare with entered char
			tb.Text = string.Empty ' set the empty string (user has to enter..)
			tb.Dock = DockStyle.Top '..
			
			' add event if user enters a text
			AddHandler tb.TextChanged, AddressOf Me.charChanged
		
			' add the control to form
			me.Controls.Add(tb)
		Next
		
	End Sub
	
	Private sub charChanged(byval sender As Object,byval e As EventArgs)
		
		Dim tb As TextBox
		
		tb = directcast(sender, TextBox)
		
		If not tb Is Nothing Then
			
			If tb.Text = tb.Tag Then
				tb.BackColor = System.Drawing.Color.Green
			Else
				tb.BackColor = System.Drawing.Color.Red
			End If
			
		End If
		
		'.....
		
	End Sub

Christian Graus wrote:

CSS sucks at the best of times

paya1pa wrote:

Expert i want to change the color of msgbox in vb.net and languuage is C#.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long<br />
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<br />
Const WM_CLOSE = ??????

mdrizwan_1 wrote:

I have Search the entire google

Christian Graus wrote:

That's a lot of searching