1.vb.net如何实现打印DataGridView1里的内容，求源码
2.求用VB.net连接SQL的酒店管理系统源代码
3.求用vbnet 实现先进先出即队列得源代码

vb.net如何实现打印DataGridView1里的内容，求源码

       使用 PrintDocument 控件的骆驼源码 修复版 Print() 方法可以打印指定对象中的内容，参考代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

           PrintDocument1.Print()

       End Sub

       Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

           Dim bm As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)

           DataGridView1.DrawToBitmap(bm, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height))

           e.Graphics.DrawImage(bm, 0, 0)

       End Sub

求用VB.net连接SQL的酒店管理系统源代码

       1. 创建一个新的ADODB连接对象，命名为`conn`。聊天的源码

       2. 创建一个新的持仓温度源码ADODB记录集对象，命名为`rs`。

       3. 使用适当的连接字符串打开数据库连接。

       4. 设置记录集的游标类型为静态。

       5. 准备SQL查询语句。

       6. 打开记录集执行查询。

求用vbnet 实现先进先出即队列得源代码

       VB.Net中的队列类在System.Collections.Generic命名空间中，名字叫Queue，51云源码是一个泛型类。

       实例化该类：

       Dim myQueue As Queue<Int>

       myQueue = new Queue<Int>();

       然后可以通过Queue中的rpm包源码Enqueue和Dequeue函数进行入队出队操作：

       With myQueue

        .Enqueue(1)

        .Enqueue(2)

        .Enqueue(3)

        .Enqueue(4)

        .Enqueue(5)

       End With

       For i = 0 To 5 Step 1

        Console.WriteLine(myQueue.Dequeue())

       Next i

       显示结果：

       1

       2

       3

       4

       5