Visual Basic

Imports System.IO <br />
Imports System.Runtime.InteropServices <br />
<br />
Public Class Form1 <br />
Inherits System.Windows.Forms.Form <br />
Public Const GENERIC_WRITE = &H40000000 <br />
Public Const OPEN_EXISTING = 3 <br />
Public Const FILE_SHARE_WRITE = &H2 <br />
<br />
Dim LPTPORT As String <br />
Dim hPort As Integer <br />
<br />
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" ( _ <br />
ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, _ <br />
ByVal dwShareMode As Integer, _ <br />
ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, _ <br />
ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, _ <br />
ByVal hTemplateFile As Integer) As Integer <br />
<br />
Public Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer <br />
Dim retval As Integer <br />
<br />
Public Structure SECURITY_ATTRIBUTES <br />
Private nLength As Integer <br />
Private lpSecurityDescriptor As Integer <br />
Private bInheritHandle As Integer <br />
End Structure <br />
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click <br />
Dim Texxxt As String <br />
Dim SA As SECURITY_ATTRIBUTES <br />
Dim outFile As FileStream, hPortP As IntPtr <br />
<br />
LPTPORT = "LPT1" <br />
Texxxt = Me.RichTextBox1.Text <br />
hPort = CreateFile(LPTPORT, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0) <br />
<br />
hPortP = New IntPtr(hPort) 'convert Integer to IntPtr <br />
outFile = New FileStream(hPortP, FileAccess.Write, False) 'Create FileStream using Handle <br />
<br />
Dim fileWriter As New StreamWriter(outFile) <br />
'MessageBox.Show(RichTextBox1.Text )  <br />
' fileWriter.AutoFlush = False <br />
fileWriter.WriteLine(RichTextBox1.Text) <br />
fileWriter.WriteLine("Hello World2") <br />
fileWriter.WriteLine("Hello World1") <br />
fileWriter.WriteLine("Hello World2") <br />
fileWriter.Write(Chr(12)) '12 <br />
fileWriter.Flush() <br />
fileWriter.Close() <br />
outFile.Close() <br />
<br />
retval = CloseHandle(hPort) <br />
End Sub <br />
End Class 

        Private Sub trvProducts_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles trvProducts.AfterSelect<br />
            If Not Me.trvProducts.SelectedNode Is Nothing Then<br />
<br />
                    Dim i As Integer = Me.NavigationView.Find(CType(Me.trvProducts.SelectedNode.Tag, Product.Model.dsProduct.tblProductGroupRow).ID)<br />
<br />
                    Me.Grid_1.SuspendLayout()<br />
                    Me.Grid_1.DataMember = ""<br />
                    Me.Grid_1.DataSource = Nothing<br />
<br />
                    cmGroup.Position = i<br />
<br />
                    Me.Grid_1.DataMember = "tblProductGrouptblProduct"<br />
                    Me.Grid_1.DataSource = NavigationView<br />
                    Me.Grid_1.Refresh()<br />
                    Me.Grid_1.ResumeLayout(True)<br />
<br />
                End If<br />
        End Sub<br />
<br />
        public Sub New()<br />
<br />
                [...]<br />
<br />
                NavigationView.Table = Me.Dataset.Table_1<br />
<br />
                Me.Grid_2.DataMember = "tblProductGrouptblProduct.tblProducttblProductPrice"<br />
                Me.Grid_2.DataSource = NavigationView<br />
<br />
        End Sub