Το timer (που παίρνει αυτόματα το όνομα timer1, timer2 κλπ. όταν το ρίξεις πάνω σε μια φόρμα) ενεργοποιηεί ένα event κάθε n millisecond. Και είναι μάλλον αυτό που ψάχνεις. Όρισε το Interval (π.χ. timer1.Interval = textbox1.text) και πρόσθεσε τον παρακάτω κώδικα:

Private Sub Timer1_Timer()
    set picturebox1.picture = .....
End Sub

Τροποποίηση τον κώδικα έτσι ώστε να εμφανίζει κάθε φορά διαφορετική εικόνα.

Πρόταση: Κατέβασε την Visual Basic 2005 Express. Είναι η δωρεάν έκδοση του visual studio 2005 για την visual basic. Δεν αξίζει να ασχολήσε με την vb6 εφόσον δεν σου το επιβάλλουν συγκεκριμένες απαιτήσεις.

Dimitris Papadimitriou Software Development Professional

Καταρχήν, ναι η vb6 υστερεί σε πολλά από την vb.net 8 (vb.net 2005). Έχουν περίπου 10 χρόνια διαφορά και όπως ξέρεις 10 χρόνια στην πληροφορική είναι μια αιωνιότητα (και μια μέρα ).

Κατά τα άλλα η λογική ανάπτυξης από την qbasic και τον DOS προγραμματισμό έχει αλλάξει πολύ και πρέπει να προσπαθήσεις να καταλάβεις πως λειτουργεί αντί να προσπαθείς να αντιγράψεις αυτό που έκανες παλιά με τον ίδιο τρόπο. Και καλύτερο φυσικά είναι να το κάνεις με ένα σύγχρονο εργαλείο όπως η vb.net 2005 express αντί για την vb6 (όπως λέμε vb 1996).

Dimitris Papadimitriou Software Development Professional

Βάλε επάνω σε μία φόρμα ένα PictureBox και ένα Timer

Στον κώδικα της φόρμας βάλε το παρακάτω:

Option Explicit
Private frameNumber As Long

Private Sub Form_Load()
frameNumber = 1
Timer1.Interval = 800
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Select Case frameNumber
Case 1
Picture1.Image = LoadPicture("image1.gif")

Case 2
Picture1.Image = LoadPicture("image2.gif")

Case 3
Picture1.Image = LoadPicture("image3.gif")

End Select
frameNumber = frameNumber + 1

End Sub

Αυτό κάνει αυτό που θες;

George J.

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias

qbrain:

....... και χρειαζεται σε καθε pc να γινει εγγατασταση το dll στο system 32............

Στην Visual Basic 6 θα έγραφες κάτι τέτοιο:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 

Private Sub Command1_Click()
Dim number1 As String
Dim number2 As String
Dim double1 As Double
Dim double2 As Double
Dim double3 As Double
    
    number1 = "0"
    Do
        If number1 <> "0" Then
           Call MsgBox("Τα δεδομένα που εισάγατε δεν είναι αριθμός!", vbOKOnly Or vbCritical, "Σφάλμα!")
        End If
        number1 = InputBox("Δώσε τον πρώτο αριθμό:", "Εισαγωγή 1ου αριθμού", IIf(number1 = "0", vbNullString, number1))
    Loop While Not IsNumeric(number1 & vbNullString)
    double1 = CDbl(number1)
    
    number2 = "0"
    Do
        If number2 <> "0" Then
           Call MsgBox("Τα δεδομένα που εισάγατε δεν είναι αριθμός!", vbOKOnly Or vbCritical, "Σφάλμα!")
        End If
        number2 = InputBox("Δώσε τον δεύτερο αριθμό:", "Εισαγωγή 2ου αριθμού", IIf(number2 = "0", vbNullString, number2))
    Loop While Not IsNumeric(number2 & vbNullString)
    double2 = CDbl(number2)
    
    double3 = double1 * double2

    Select Case double3
        Case 85 To 95
            Call MsgBox("Το αποτέλεσμα είναι μεταξύ 85 και 95", vbInformation Or vbOKOnly, "Αποτέλεσμα")
            
        Case 110 To 120
            Call MsgBox("Το αποτέλεσμα είναι μεταξύ 110 και 120", vbInformation Or vbOKOnly, "Αποτέλεσμα")

        Case Else
            Call MsgBox("Δεν υπάρχει κάτι τέτοιο", vbCritical Or vbOKOnly, "Αποτέλεσμα")
        
    End Select


End Sub

Μην σε τρομάξει ο κώδικας! Κάνει πολλά πράγματα που δεν φαίνονται με την πρώτη ματιά, όπως ελέγχει αν αυτό που έβαλε ο χρήστης είναι αριθμός, και τον ξαναρωτάει αν δεν είναι, βγάζει μηνύματα λάθους ότι δεν έχει εισαχθεί αριθμός, εμφανίζει την προηγούμενη επιλογή του χρήστη κατά την εισαγωγή αριθμού για να μπορεί να την διορθώσει και τέλος χρησιμοποιεί το SELECT CASE για να πάρει την απόφαση σε πιο εύρος είναι το γινόμενο των αριθμών του χρήστη και του δίνει το ανάλογο μήνυμα.

Θα ήθελα να σε παρακαλέσω ωστόσο να μην χρησιμοποιήεις το ίδιο thread για να κάνεις και δεύτερη, τρίτη, διαφορετική ερώτηση αλλά να ξεκινάς ένα καινούργιο και να αλλάζεις το status του thread σε "έχει επιλυθεί", έτσι ώστε αν κάποιος άλλος χρήστης κάνει αναζήτηση να μπορεί να καταλάβει ότι βρήκες απάντηση στο ερωτημά σου.

George J.

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias

Αυτό που θα ήθελα να προσθέσω, είναι ότι ο κώδικας που είχες γράψει για την Quick Basic θα δούλευε και αυτούσιος στην VB 6.

Στον κώδικα που σου έγραψα, μάλλον εξάντλησα όλες τις πιθανότητες ώστε να προλάβω σφάλματα που μπορούν να γίνουν από τον χρήστη για να μην σπάσει την ροή του προγράμματος. Ο κώδικας που έδωσες εσύ δεν κάνει τίποτα από αυτά - αν κάποιος δεν έβαζε αριθμό, αλλά γράμματα το πρόγραμμά σου, θα έβγαζε ένα λάθος. Έτσι και ο μεγάλος αριθμός γραμμών.

George J.

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias