Help with code ..

[Dastard]

well i want to create a simple GUI . i have a three command buttons naming
( start , start from line , Quit ) and i have a text file( words.txt) of 5014 lines.
now i want that when i click start . program should pick up the very first line of the text file and prompts the content of whole first line as a window ( or message box ) .. keeps it there for almost 10 seconds and then refreashes that very window with the next line of text file and keeps on doing it till 5014th line or user clicks "Quit"

and incase at start up user clicks " start from line "
it prompt for a line number from user and at input . repeat the previous procedure starting from this line number ( which user have just given ) and keeps running just like before

well basically text file contains vocabulary . and this very program is sorta help to learn that vocabulary while user is using computer .
i hope i ll be making lil sense ..
regards and waiting for reply ..

[Datacide]

First make you interface. This is how I laid mine out:


Then When the person hits start:

Private Sub cmdStart_Click()
 
    Open txtInputFile For Input As #1
    
        'Skip through file to starting point
        For i = 1 To txtStartFrom
            Line Input #1, strTemp
        Next i
        
        'Display lines from starting point
        For i = txtStartFrom To EOF(1)
            Line Input #1, strVocab
            txtDisplay = strVocab
            Sleep 2000 'Pause 2 seconds
        Next i
 
End Sub

[Gymbo]

Try modifying the "Tip of the Day" form.

[Harsh Gupta]

well, that may be very tedious. my suggestion will be to load the text file into an string array (line by line) and then display them accordingly (from LBound of Array to UBound of Array).

Use a seperate window instead of MsgBox because then the user wont be able to click the "Quit" button. use a timer event to load/unload the Display form for the defined time.

[Datacide]

my suggestion will be to load the text file into an string array (line by line) and then display them accordingly (from LBound of Array to UBound of Array). Use a seperate window instead of MsgBox because then the user wont be able to click the "Quit" button. use a timer event to load/unload the Display form for the defined time.

I see some isn't lazy about writing code and taking shortcuts

[MartinLiss]

Here.

[Dastard]

Its awesome martinliss . thats what exactly i had in my mind . thanks a lot guru .. i m still wondering how is it working when all the buttons have same name .. excellent use of resources .. well just need to ask two lil things . . first . it doesnt immediately quit when i click quit button .. it sorta "stops responding" and second is this programming using much my pc resources i feel like that it is acctually caz i don have much virtual memory in my computer ..

[MartinLiss]

Try this code instead. BTW Command1 is what's called a control array - basically copies of the same control that share code.

Option Explicit
'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim mbQuit As Boolean
 
Private Sub Command1_Click(Index As Integer)
 
    Dim intLine As Integer
    
    Select Case Index
        Case 0
            ReadFile
        Case 1
            intLine = InputBox("Please enter the line to start from", "Start From", 1)
            ' There should be some validation of intLine here
            ReadFile intLine
        Case 2
            mbQuit = True
            DoEvents
            Unload Me
    End Select
    
End Sub
Public Sub ReadFile(Optional StartPoint As Integer = 1)
 
    Dim ff As Integer
    Dim lngCount As Long
    Dim strLine As String
    Dim dblClock As Double
    
    ff = FreeFile
    
    Open "C:\temp\test.txt" For Input As ff
    
    Do Until EOF(ff)
        lngCount = lngCount + 1
        Line Input #ff, strLine
        If lngCount >= StartPoint Then
            Label1.Caption = strLine
            DoEvents
            dblClock = Timer
            While Timer < dblClock + 10
                DoEvents
                If mbQuit Then
                    Unload Me
                    dblClock = 0
                End If
            Wend
        End If
    Loop
    
    Close ff
 
End Sub

[Dastard]

Thanks a lot . its working fine .. just tell me how can i change the font of text which is being displayed in pop up window there ... its quite small . besides that .. thread is resolved ...

[MartinLiss]

By "pop up window" do you mean the InputBox message? If so, I've attached a form that looks like an inputbox that you can modify however you want.

I see that you attempted to indicate that the thread was resolved. Thanks, but the way to do that however is to pull down the Thread Tools menu and click the Mark Thread Resolved button.