VB κουφο πρόβλημα?

[jojos]

Καλησπέρα και χρόνια πολλά.Αντιμετωπίζω το εξής πρόβλημα.Δημιουργώ μία καθυστέρηση με ένα TImer.Το πρόγραμμα περιμένει μέσα σε ένα while loop μέχρι να αλλάξει η κατάσταση μίας σημαίας.Η κατάσταση της σημαίας αλλάζει όταν χτυπήσει ο Timer .Το πρόγραμμα όμως κολλάει μέσα στο while loop .Φαίνεται σαν να μην έχει ξεκινήσει ο TImer.Παρακάτω ο κώδικας

 

 

Public Class Form1

 

Public Flag_100ms As Boolean

Public flag2 As Boolean

 

 

 

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

Flag_100ms = True

 

 

Timer1.Interval = 100

 

Timer1.Enabled = True

 

Timer1.Start()

While Flag_100ms = True

flag2 = False 'Για να έχει κάτι ο βρόγχος μέσα.Χωρις κανένα νόημα

 

End While

 

 

Timer1.Stop()

Timer1.Enabled = False

End Sub

 

Friend Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

 

Flag_100ms = False

 

End Sub

End Class

[christos43]

Δεν ειναι και ο πιο καλογραμμενος κωδικας που εχω δει...

 

Παντως,δεν μπορω να εντοπισω το σφαλμα.

Καποιος πιο εμπειρος σε Visual Basic ισως???

[Evgenios1]

STAThread

Βαλσε ενα σωστο τιτλο

[kostas_crete]

http://www.freevbcode.com/ShowCode.Asp?ID=7556

 

Γιατί να ξανανακαλύπτεις τον τροχό?

[jojos]

Ευχαριστω πολύ φίλε Κώστα.Σήμερα το πρωι ανακάλυψα και εγώ αυτή την εντολή.Ευχαριστώ και πάλι

[ntaryl]

προτεινω να εγκαταστησεις το Api Guide

θα σε ευκολυνει αφανταστα

Εγραψες kostas_crete