Jag knåpar på ett program, rättstavning, till min lille pojk. I loopen som hämtar ett nytt ord från en notepadfil och skriver det i en textbox till vänster i formuläret. Tanken är att lillpojken ska skriva av detta ord i en annan textbox till höger och att det sen ska kolla om han har skrivit ordet korrekt. Jag använda en inputbox för att loopen ska pausa och låta honom skriva sitt ord, men jag vill inte använda inputboxen för de är så himla FUL =( . Programmet blir mycket snyggare om jag kan använda en textbox istället, men jag vet inte hur man ska få loopen till att pausa så att lillpojken kan skriva in sitt ord. Om nån här kan hjälpa mej med det vore jag himla tacksam! //Ulf

Hej
Här kommer min principlösning

Option Explicit
Dim FileNum As Long
Dim tmpStr As String

Private Sub Form_Activate()
FileNum = FreeFile
'Här öppnar du din textfil på vanligt vis
' Open App.Path & "/Ordfilen.txt" For Input As #FileNum
'Line Input #FileNum,tmpStr
'Första ordet i Text1
'Text1.Text = tmpStr
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'Tryck Enter när ordet i Text2 är klart
If Not EOF(FileNum) Then
Line Input #FileNum, tmpStr
'nästa ord
Text1.Text = tmpStr
End If
End If
End Sub

mvh
Sven

Fungerar perfekt nu! :-)


Tusen tack för hjälpen Sven.