◆◆◆◆◆一个关于LISTBOX控件的问题◆◆◆◆◆

[拿棵草]

小弟是一个初学者，真的是初的不能再初的那种！请多关照。


一个多选的LISTBOX，我如何能打印出，用户所选择的项，并打印出用户所选择的项的序号？

[Montaque]

没有处理国打印事件的话，参考这段简单的代码：

WithEvents pt As New Printing.PrintDocument
Dim s As String '记录你要打印的内容

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

For i As Integer = 0 To Me.ListBox1.SelectedItems.Count - 1
s = s & Me.ListBox1.SelectedItems(i).ToString & ControlChars.CrLf
Next
If Not (s Is Nothing) Then
pt.Print()
End If

End Sub

Private Sub pt_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pt.PrintPage
e.Graphics.DrawString(s, Me.Font, New SolidBrush(Color.Black), 10, 10)
End Sub