To:tztz520(午夜逛街)及各位高手窗体样子保存为图片的问题

2004-12-28 03:48:28 220 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SAP SD核心流程解析：从销售订单到财务结算的实战指南本文深入解析SAP SD模块从销售订单到财务结算的核心流程，重点剖析了销售订单中的行项目类别如何作为流程的“总开关”，决定了后续交货、开票及财务集成的走向。文章结合实战案例，详细拆解了正常销售、退货、第三方销售、寄售等典型流程的配置要点与国内化适配方案，并阐述了SD与财务模块集成的关键连接点，为顾问和用户提供了一份全面的实战指南。阅读详情

以下代码是将运行的窗体样子保存为图片：
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
Picture3.Width = Me.Width
Picture3.Height = Me.Height
BitBlt Picture3.hDC, 0, 0, Picture3.Width, Picture3.Height, Me.hDC, 0, 0, vbSrcCopy
SavePicture Picture3.Image, "f:\acdacd.bmp"'保存到F盘
End Sub

Private Sub Form_Load()
Picture3.AutoRedraw = True
Picture3.Visible = False
'Picture3运行时不可见,用来保存窗体界面
End Sub

**************************
问题是：如果窗体隐藏了：Me.Hide 则运行上述方法就不能保存窗体的样子了！
所以，请各位帮帮忙，窗体隐藏了，如何保存窗体的样子（窗体一定是隐藏的）

...全文

MATLAB实战：四桥臂逆变器3D-SVPWM调制算法仿真全流程（附代码）本文提供了一份完整的MATLAB/Simulink实战指南，详细解析了四桥臂逆变器的3D-SVPWM调制算法仿真全流程。文章从工程实践出发，手把手指导如何搭建模型，涵盖从abc静止坐标系变换、三维空间矢量区域判定、作用时间计算到PWM信号生成与调试等核心环节，并附有代码示例和常见问题解决方案，旨在帮助工程师快速掌握这一应对不平衡负载的高效调制技术。阅读详情

riverlj

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

dongle2001 2005-01-07

打赏
举报

xinliangyu(yxl) ,佩服

CCL 2005-01-04

打赏
举报

to shadowsky(小狗快跑(狗狗一到问题全解)):
没做过不要乱说好不好！你根本不知道窗口透明的原理就觉得hdc透明了。事实上即使是透明的窗体hdc也完全不透明，所看到的透明效果完全是先使管理器在外部对窗口的渲染，可以说这个印象对窗体内部来说是完全不存在的。所以，如果环境是NT5以上，那么用上面说的完全透明窗口法是可行的。

xinliangyu 2004-12-31

打赏
举报

关键是在将窗体图像暂存于内存DC中

xinliangyu 2004-12-31

打赏
举报

'窗体中有一commonbutton，一picturebox:
Option Explicit
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Command1_Click()
Dim hMemDc As Long
Dim hMemBmp As Long

hMemDc = CreateCompatibleDC(Me.hdc)
hMemBmp = CreateCompatibleBitmap(Me.hdc, ScaleWidth, ScaleHeight)
DeleteObject SelectObject(hMemDc, hMemBmp)
'将窗体图像拷贝到内存DC中：
StretchBlt hMemDc, 0, 0, ScaleWidth, ScaleHeight, Me.hdc, 0, 0, ScaleWidth, ScaleHeight, vbSrcCopy

Picture1.Visible = True

Refresh

StretchBlt Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, hMemDc, 0, 0, ScaleWidth, ScaleHeight, vbSrcCopy

DeleteObject hMemBmp
DeleteDC hMemDc

SavePicture Picture1.Image, "文件名"
End Sub

Private Sub Form_Load()
Picture1.Move 0, 0, ScaleWidth, ScaleHeight
Picture1.Visible = False
End Sub

shadowsky 2004-12-30

打赏
举报

好搞笑！如果隐藏了你怎么点按钮放到屏幕以外也看不到按钮阿！不要告诉我让那个窗口一直处于激活状态然后设置那个按钮为默认然后就一直按回车来保存了，还有不要告诉我你用快捷键呵呵！那个设置为0 的她取到得 hdc 也是透明的阿也就是说那个图片不是窗体的。没一个正解。

韧恒 2004-12-29

打赏
举报

个人认为，简单的办法就象 yunyu97() 说的，把窗口移动到屏幕外还是比较实用的，因为在win98中无法使用楼上的办法设置窗口透明。

tztz520 2004-12-29

打赏
举报

不用隐藏,设成透明,用户也看不到的.

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "User32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_DWORD = 4 ' 32-bit number

Dim reg As Long

Private Sub SetFromtransparence(Obform As Object, TransparenceTolerance As Integer) '透明度是从1-255
Dim Ret As Long

Ret = GetWindowLong(Obform.hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Obform.hwnd, GWL_EXSTYLE, Ret

SetLayeredWindowAttributes Obform.hwnd, 0, TransparenceTolerance, LWA_ALPHA
End Sub

Private Sub Form_Load()
SetFromtransparence Me, 0 '设置透明
Picture3.AutoRedraw = True
Picture3.Visible = False
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 2000
Picture3.Width = Me.Width
Picture3.Height = Me.Height
BitBlt Picture3.hDC, 0, 0, Picture3.Width, Picture3.Height, Me.hDC, 0, 0, vbSrcCopy
SavePicture Picture3.Image, "f:\acdacd.bmp" '保存到F盘
Timer1.Enabled = False
End Sub

naolin2008 2004-12-29

打赏
举报

可以将窗体的透明度设为０　时，试试，也相当于隐藏啊

yunyu97 2004-12-29

打赏
举报

你把窗体移动到屏幕外面，然后保存是一样的效果呀。

zhengoodman 2004-12-29

打赏
举报

viena 2004-12-28

打赏
举报

没办法~

To:tztz520(午夜逛街)及各位高手 窗体样子保存为图片的问题

相关推荐

To:tztz520(午夜逛街)及各位高手窗体样子保存为图片的问题