大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
比如:
创新互联公司是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发,网站制作,网站设计,网站模板,微信公众号开发,软件开发,微信小程序,10多年建站对成都玻璃钢坐凳等多个行业,拥有丰富建站经验。
Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)
e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)
e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)
e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)
也就是分次用不同坐标和不同的字体来打印各变量。画线用:
e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。
具体坐标数值自己用尺量出,再换算。
Dim mycon As New SqlConnection(connstrs)
Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"
Dim cmd As New SqlCommand(sqlStr, mycon)
Dim reader = cmd.ExecuteReader()
Dim i As Integer = 1
While reader.Read()
Dim txt As New TextBox()
txt.Name = "txt" + i
txt.Size = New Size(100, 20) '文本框大小
txt.Location = New Point(50, i * 20 + 20)'left:50 top:随便写的,自己看着调
txt.Text = reader.GetValue(0).ToString()
Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象
End While
'未经过运行,自己调试看看能否OK
想要让picturebox输出多行文字,可以反复使用Print方法在PictureBox控件中输出多行文字,在插入的文字中输入回车符(即Chr(13))即可,每一个Print语句右面是一行的内容。
此外,在需要换行的地方加上“ vbCrlf ”代码也是可以实现让picturebox输出多行文字的。
扩展资料
PictureBox 控件和 Data 控件是唯一可以放置在 MDI窗体内部区域的标准 Visual Basic 控件。可以使用该控件在内部区域的顶部或底部对控件分组,以创建工具栏或状态栏。
注意 Unisys Corporation 有一项专利,该专利声称涉及到 GIF-LZW压缩技术的某些方面,在该技术中使用了 PictureBox 和 Image 控件。Microsoft Corporation 于1996年9月获得了对 Unisys LZW 专利的使用许可。
然而,Microsoft 的许可证并不延伸到那些软件开发商或第三方,他们使用任何 Microsoft 工具包、语言开发或操作系统产品来在他们自己的产品中提供 GIF 读/写和/或任何其他 LZW 能力(例如,通过 DLL 和 API)。
参考资料来源:
百度百科-PictureBox控件
百度百科-Visual Basic