作者chinoyan ()
看板Visual_Basic
标题Re: [.NET] 列印问题
时间Fri Jul 20 06:32:08 2012
※ 引述《jim61103 (丁丁)》之铭言：
: 请输入专案类型(网站专案或者应用程式专案)：应用程式
: 各位大大好
: 我现在在写一个程式
: 我有用了PrintDocument这个元件
: 使用了PrintDocument1.Print()
: 可是他不会"立刻"列印
: 就像是开wordpad按列印一样
: 会有一个视窗跑出来
: 我想要做到按一下列印
: 他会立刻列印
: 像word2010按列印一样
: 有人知道我该怎麽做嘛？
或许有其他更好的方法....,但因本人很少写到有列印的部份
故提供一个手上常用的通用解法范例
window 名和CLASS名,可以用 SPY++ 查
=================================================
'API操作其他程序中的按钮(小算盘1+2=3)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA"
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2
As String) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
As Long
Private Const BM_CLICK = &HF5
Private Sub Command1_Click()
Dim lPHWnd As Long, lCHWnd1 As Long, lCHWnd2 As Long, lCHWndA As Long,
lCHWndE As Long
lPHWnd = FindWindow(vbNullString, "小算盘")
lCHWnd1 = FindWindowEx(lPHWnd, ByVal 0&, vbNullString, "1")
lCHWnd2 = FindWindowEx(lPHWnd, ByVal 0&, vbNullString, "2")
lCHWndA = FindWindowEx(lPHWnd, ByVal 0&, vbNullString, "+")
lCHWndE = FindWindowEx(lPHWnd, ByVal 0&, vbNullString, "=")
SendMessage lCHWnd1, BM_CLICK, 0, 0
SendMessage lCHWndA, BM_CLICK, 0, 0
SendMessage lCHWnd2, BM_CLICK, 0, 0
SendMessage lCHWndE, BM_CLICK, 0, 0
End Sub
--
████ █ ★ ████ █ █ █
█ █ █ █ █ █ 超 级 热 烈 欢 迎
█ ████ █ █ █ ████ █
█ █ █ █ ███★ █ █ 欢迎到嘉义版!
★███ █ █ █ █ █ █ █
讯驰电脑-路径 →
嘉义市林森西路496号 →
(05)2244-526 →
顺发斜对面
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.127.140.29
1F：→ chinoyan:补充一下,以上为VB6 语法,.NET请用转一下 07/20 06:33
2F：推 jim61103:谢谢～我会在试试看 感恩 07/20 09:00
3F：→ jim61103:我好像不太会转耶>< 求救～ 07/21 00:51
4F：→ chinoyan:.NET 功能表找一下就有 VB6转.NET 07/23 04:58
5F：→ jim61103:我在试试看～谢谢喔 07/25 12:45
6F：推 jim61103:我在.NET功能表找了很久 还是没有找到vb6转.net的 07/28 14:43
7F：→ jim61103:我使用vs2010 07/28 14:43