保存前加一句 myImage2.SetResolution(300, 300) 你設置的bMape不是保存的主畫布 所以無效,設置分辨率就是 SetResolution(X,Y)
成都創(chuàng)新互聯(lián)公司是一家專注于網(wǎng)站制作、做網(wǎng)站和聯(lián)通服務器托管的網(wǎng)絡公司,有著豐富的建站經(jīng)驗和案例。
在按鈕的點擊時間里面,把文本框的值取到,然后通過拼接sql語句的方式,去數(shù)據(jù)庫查詢,得到結(jié)果集Ds,綁定給DataGridView就行了。
'沒辦法,需的把窗口隱藏一下,還的隱藏后延遲一下再截圖。
Dim?WithEvents?Timer1?As?New?Timer?With?{.Interval?=?30,?.Enabled?=?False}
Dim?Imgrect?As?Rectangle
Dim?img?As?Bitmap
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Imgrect?=?Me.RectangleToScreen(Me.ClientRectangle)
img?=?New?Bitmap(Imgrect.Width,?Imgrect.Height)
Me.Hide()
Timer1.Start()
End?Sub
Private?Sub?Timer1_Tick(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick
Timer1.Stop()
Graphics.FromImage(img).CopyFromScreen(Imgrect.X,?Imgrect.Y,?0,?0,?Imgrect.Size)
Me.BackgroundImage?=?img
Me.Show()
End?Sub
可以把數(shù)據(jù)導出到EXCEL,然后使用EXCEL進一步處理后使用。
也可以做成vb報表(VB自帶有)。
先設置報表格式,打印時向報表傳遞數(shù)據(jù)就可以了。