台灣最大程式設計社群網站
∣
免費加入會員
∣登入
∣回首頁∣
您好
線上人數
1121
會員總數:
246213
討論主題:
189782
討論區
程式下載/上傳
科技新聞
專欄文章
會員中心
加值服務
外包接案
求職求才
登入
登出
歡迎您
免費
加入會員
討論區選單
新手必讀
我要提問!!
討論區
個人討論區
我的關注主題
我的黑名單
討論區EP英雄榜
專家等級說明
討論區常見問題
兌換發問點數QP
扣點申請加值服務
申請版主
開發工具
ASP
ASP.NET
C#
VB.NET
VB6
C/C++
PHP
Java
Java Script/ Node.js
AJAX / JSON / jQuery
其他語言
行動裝置開發
Android APP 開發
iOS APP/ swift 開發
Windows Phone APP
資料庫
ACCESS
MS SQL
MySQL
Oracle
其他DB
多媒體 / 網管
CSS/HTML5/Bootstarp
影像處理
office VBA / WinOS
Windows 伺服器
Linux / Unix
網管 / 資安 / VM
硬體 / 週邊 / 其他
綜合
求職求才
外包接案
心情甘苦談
網站經營 / 合夥 / 證照
建言 / 公告
文章區
專欄文章
科技新聞
Blog精華文章
討論區列表
>>
VB.NET
>> 從form2 連續印 form1
[]
[
我要回覆
]
1
從form2 連續印 form1
價值 : 50 QP
點閱數:398 回應數:2
樓主
MStone Lin
0
99
1962
132
發送站內信
請問
我從form2 取出資料庫的資料
之後 將資料 顯示在 from1 並截圖,列印
我的寫法如下
但 讀取至第4個之後 就無法正常顯示資料
show 及 close
正確應如何寫嗎?
form2:
Dim sqlstr As String sqlstr = "SELECT * FROM STUDBASE ............." Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("casedataConnectionString").ConnectionString.ToString()) conn.Open() Dim dr As SqlDataReader = Nothing Dim cmd As SqlCommand = New SqlCommand(sqlstr, conn) Try dr = cmd.ExecuteReader While dr.Read TextBox2.Text = dr("STBASE_STNAME").ToString.Trim Label1.Text = dr("stbase_schname").ToString.Trim & "-" & dr("STBASE_GRADE").ToString.Trim & "-" & dr("STBASE_CLASS").ToString.Trim & "-" & dr("STBASE_STNO").ToString.Trim & "-" & dr("STBASE_STName").ToString.Trim & "-" & dr("STBASE_STsex").ToString.Trim Label2.Text = dr("STBASE_BCODE").ToString.Trim Dim obj As New Form1 '放在這宣告,只跑3筆 obj.Label1.Text = Label1.Text obj.Label2.Text = Label2.Text obj.Show() System.Threading.Thread.Sleep(3000) '暫停2秒 End While Catch ex As Exception Finally cmd.Cancel() dr.Close() conn.Close() conn.Dispose() End Try
form1:
Private WithEvents printDocument1 As New PrintDocument Dim memoryImage As Bitmap Private Sub Form1_show(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.CenterToScreen() '置中 Me.ControlBox = False '不顯示XX CaptureScreen() ' printDocument1.Print() '我先將畫面存檔, 若 OK 再改回 printDocument1.Print() Dim filen As String = "D:\" & Second(Now).ToString.Trim & "ttt.bmp" memoryImage.Save(filen) Me.Close() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim bc As Barcode = New Barcode bc.Width = 210 bc.Height = 25 PictureBox1.Image = bc.Encode(TYPE.CODE128, Label2.Text, bc.Width, bc.Height) printDocument1.PrinterSettings.PrinterName = "SATO" ' 設定應用程式輸出印表機 End Sub
搜尋相關Tags的文章:
[ 連續印 ] ,
[ form ] ,
本篇文章發表於2019-03-21 16:58
1樓
回應
P陳
您有二個 MyBase.Load 會先執行那一個不一定 建議您 Form1_show 由Form_LOAD 中去執行
Dim obj As New Form1 '放在這宣告,只跑3筆 obj.Label1.Text = Label1.Text obj.Label2.Text = Label2.Text obj.Show() '<--- Form1 的 Sub 的名字請不要 用SHOW 'sub show 也有可能重覆執行
個人會這樣寫
Form1.Label1.Text = Label1.Text Form1.Label2.Text = Label2.Text Form1.showdialog() ' <--這個會從 Load 開始執行
本篇文章回覆於2019-03-22 08:14
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應
P陳
看錯了 是Form1_show 不是SHOW ,這二個是不同的
不過二個 Mybase.load 則是不一定執行順序的
本篇文章回覆於2019-03-22 08:17
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
1
回覆
如要回應,請先
登入
.
|
網站導覽
|
網站介紹
|
4P點數說明
|
電子報
|
小舖活動
|
大事紀
|
廣告刊登
|
常見問題
|
聯絡我們
|
版權所有 ©copyright 2000 All Rights Reserved