Imports System.IO
Imports System.Text
Imports System
Imports odc = OpenNETCF.Desktop.Communication
Imports System.IO.File
 
 
 
 
 
Public Class Form1
 
    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If (e.KeyCode = System.Windows.Forms.Keys.Up) Then
            'Wipptaste nach oben
            'Nach oben
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Down) Then
            'Wipptaste nach unten
            'Nach unten
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Left) Then
            'Links
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Right) Then
            'Rechts
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Enter) Then
            'Eingabe
        End If
 
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox("Der Barcode wurde eingescannt", MsgBoxStyle.Information, "Info")
    End Sub
 
    Public Class Form1
 
        Private rfo As New odc.RAPI()
 
        Public Sub SendFile(ByVal FilePath As String, ByVal FileName As String)
            rfo.CopyFileToDevice(FilePath & "\" & FileName, "\" & FileName, _
              True)
        End Sub
 
 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
          System.EventArgs) Handles Button1_Click
            Dim Path As String = "\Barcodes\"
            Dim dt As String
            dt = Format(Now, "(M-d-yyyy _ H-mm-ss)")
            Dim FileName As String = "Barcode Scan 1 " & dt & ".txt"
            Dim sw As StreamWriter = File.CreateText(Path & FileName)
            sw.WriteLine("Barcode #1234abcd (gescannt am " + Now + ")")
            sw.Flush()
            sw.Close()
 
            SendFile(Path, FileName)
        End Sub
 
    End Class
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        MsgBox("Button ohne Funktion", MsgBoxStyle.Information, "Info")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        MsgBox("Button ohne Funktion", MsgBoxStyle.Information, "Info")
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        MsgBox("Button ohne Funktion", MsgBoxStyle.Information, "Info")
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

_____________________________________________________________
Taio Cruz - Dynamite. In Stores & as Download June 1. Summer Banga 2010!|
One Love. One Crew. Rmx4u.com|
___________________________