Windows Mobile

Απ: Κοινόχρηστο Event

Panagiotis Kefalidis — Sun, 14 May 2006 05:36:44 GMT

Mitsaras wrote:
Σας παρακαλώ, μην αναφέρεστε στο όνομα του Κάβουρα, γιατί παθαίνω νευρικό κλονισμό. Ακόμα θυμάμαι το "κατάσταση απογραμμής" (offline)...

Hehe, και να μας βλέπει απο μια γωνεία!

Απ: Κοινόχρηστο Event

Mitsaras — Fri, 12 May 2006 21:28:02 GMT

Σας παρακαλώ, μην αναφέρεστε στο όνομα του Κάβουρα, γιατί παθαίνω νευρικό κλονισμό. Ακόμα θυμάμαι το "κατάσταση απογραμμής" (offline)...

Απ: Κοινόχρηστο Event

BasiliZ — Fri, 12 May 2006 21:14:41 GMT

Τάξη????? πως φαίνοντε οι φοιτητες του Κάβουρα :P.

και το κλάση ελληνικότατο ειναι. no offence.

'Οπως είπε και ο Geo κάνε μία κλάση που θα κάνει την δουλεία σου και κάλεσαι την όταν την χρείαζεσαι σε κάθε φόρμα. Για παράδειγμα σε κάποιο button click. Επίσης θα μπορούσες να κάνεις την κλάση να κάνει όλη την δουλεία και να σου επιστέφει το αποτέλεσμα που θές, για παραδειγμα:

1. ενεργοποιηση scanner

2. scan-αρισμα

3 απενεργοποιηση scanner

Απ: Κοινόχρηστο Event

GeoPap — Fri, 12 May 2006 01:55:54 GMT

Αν σε κατάλαβα σωστά τότε πρέπει να δημιουργήσεις μια public τάξη (μιλάω με ορολογία C# διότι είμαι από τον κόσμο του C#) που θα εμπεριέχει τα functions σου και να τα ορίσεις ως Shared. Αν κάνεις αυτή την τάξη όπως σου λέω θα μπορείς να την καλείς χωρίς να την ορίζεις (δηλαδή χωρίς το Dim, αν δεν κάνω λάθος). Για την καθυστέρηση σε συμβουλεύω να τα κάνεις σε ξεχωριστό Tread.

Κοινόχρηστο Event

Ioannis P — Tue, 02 May 2006 17:36:42 GMT

Προσπαθώ να φτιάξω μια μικρή εφαρμογή για ένα PDA Symbol PPC 2003 με scanner χρησιμοποιώντας VB2005. Προκειμένου να ενεργοποιηθεί το scanner θα πρέπει σε κάθε φόρμα να γράφω τον παρακάτω κώδικα. Αυτό εκτός από το ότι καθυστερεί το άνοιγμα των φορμών δεν μου επιτρέπει να ανοίξω περισσότερες από μια φόρμες ταυτόχρονα. Γνωρίζετε πως θα μπορούσα να βάλω τον κώδικα σε ένα module; Δοκίμασα αλλά δεν τα κατάφερα.

Private WithEvents MyReader As Symbol.Barcode.Reader = Nothing
Private MyReaderData As Symbol.Barcode.ReaderData = Nothing

Private sub Load_form (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      MyReader = New Symbol.Barcode.Reader
      MyReaderData = New Symbol.Barcode.ReaderData(Symbol.Barcode.ReaderDataTypes.Text, Symbol.Barcode.ReaderDataLengths.DefaultText)
      MyReader.Actions.Enable()
      MyReader.Actions.Read(MyReaderData)
End sub

Private Sub MyReader_ReadNotify(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyReader.ReadNotify
      Dim TheReaderData As Symbol.Barcode.ReaderData = MyReader.GetNextReaderData

      Select Case TheReaderData.Result
            Case Symbol.Results.SUCCESS

            Case Symbol.Results.CANCELED
            Case Else
      End Select
End Sub

Private Sub Main_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MyReader.Actions.Flush()
        MyReader.Actions.Disable()
        MyReader.Dispose()
        MyReader = Nothing
        MyReaderData = Nothing
    End Sub