「hpal项目」 vb 如何使部分窗体生成图片

2024.01.10 16:51

文章来源：顺利加盟网

阅读量：2

摘要:

hpal项目： vb 如何使部分窗体生成图片-百度知道只要将VB窗口内的需要部分保存成图片文件就可以了要用到API函数的：Private Type POINTAPI x As Lo

hpal项目： vb 如何使部分窗体生成图片-百度知道

只要将VB窗口内的需要部分保存成图片文件就可以了要用到API函数的：Private Type POINTAPI x As Long y As LongEnd TypePrivate Declare Function BitBlt Lib ＂gdi32＂ (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth A...展开全部

其他答案:下面分二步介绍如何把VB得部分窗体生成图片（清晰的）一、建立一个模块，复制下面代码：'=============模块开始=================Option ExplicitPrivate Type PALETTEENTRY peRed As Byte peGreen As Byte peBlue As Byte peFlags As ByteEnd TypePrivate Type LOGPALETTE palVersion As Integer palNumEntries As Integer palPalEntry(255) As PALETTEENTRYEnd TypePrivate Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As ByteEnd TypePrivate Const RASTERCAPS As Long = 38Private Const RC_PALETTE As Long = &H100Private Const SIZEPALETTE As Long = 104Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Function CreateCompatibleDC Lib ＂GDI32＂ (ByVal hDC As Long) As LongPrivate Declare Function CreateCompatibleBitmap Lib ＂GDI32＂ (ByVal hDC As Long, _ ByVal nWidth As Long, ByVal nHeight As Long) As LongPrivate Declare Function GetDeviceCaps Lib ＂GDI32＂ (ByVal hDC As Long, ByVal _ iCapabilitiy As Long) As LongPrivate Declare Function GetSystemPaletteEntries Lib ＂GDI32＂ (ByVal hDC As Long, _ ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries _ As PALETTEENTRY) As LongPrivate Declare Function CreatePalette Lib ＂GDI32＂ (lpLogPalette As LOGPALETTE) _ As LongPrivate Declare Function SelectObject Lib ＂GDI32＂ (ByVal hDC As Long, ByVal hObject _ As Long) As LongPrivate Declare Function BitBlt Lib ＂GDI32＂ (ByVal hDCDest As Long, ByVal XDest As _ Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, _ ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop _ As Long) As LongPrivate Declare Function DeleteDC Lib ＂GDI32＂ (ByVal hDC As Long) As LongPrivate Declare Function GetForegroundWindow Lib ＂user32＂ () As LongPrivate Declare Function SelectPalette Lib ＂GDI32＂ (ByVal hDC As Long, ByVal hPalette _ As Long, ByVal bForceBackground As Long) As LongPrivate Declare Function RealizePalette Lib ＂GDI32＂ (ByVal hDC As Long) As LongPrivate Declare Function GetWindowDC Lib ＂user32＂ (ByVal hwnd As Long) As LongPrivate Declare Function GetDC Lib ＂user32＂ (ByVal hwnd As Long) As LongPrivate Declare Function GetWindowRect Lib ＂user32＂ (ByVal hwnd As Long, lpRect As _ RECT) As LongPrivate Declare Function ReleaseDC Lib ＂user32＂ (ByVal hwnd As Long, ByVal hDC As _ Long) As LongPrivate Type PicBmp Size As Long Type As Long hBmp As Long hPal As Long Reserved As LongEnd TypePrivate Declare Function OleCreatePictureIndirect Lib ＂＂ (PicDesc As _ PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long'创建BMP位图Public Function CreateBitmapPicture(ByVal hBmp As Long, ByVal hPal As Long) As Picture Dim r As Long Dim Pic As PicBmp Dim IPic As IPicture Dim IID_IDispatch As GUID '填充IDispatch界面 With IID_IDispatch .Data1 = &H20400 .Data4(0) = &HC0 .Data4(7) = &H46 End With '填充Pic With Pic .Size = Len(Pic) '注释： Pic结构长度 .Type = vbPicTypeBitmap '注释：图象类型 .hBmp = hBmp '注释：位图句柄 .hPal = hPal '注释：调色板句柄 End With '建立Picture图象 r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic) '返回Picture对象 Set CreateBitmapPicture = IPicEnd Function'截图处理Public Function CaptureWindow(ByVal hWndSrc As Long, ByVal Client As Boolean, ByVal _ LeftSrc As Long, ByVal TopSrc As Long, ByVal WidthSrc As Long, ByVal HeightSrc _ As Long) As Picture Dim hDCMemory As Long '保存截取图象的目标设备 Dim hBmp As Long Dim hBmpPrev As Long Dim r As Long Dim hDCSrc As Long '要截取图象的源设备 Dim hPal As Long Dim hPalPrev As Long Dim RasterCapsScrn As Long Dim HasPaletteScrn As Long Dim PaletteSizeScrn As Long Dim LogPal As LOGPALETTE'GetDC传回用于写入窗口显示区域的设备内容句柄，而GetWindowDC传回写入整个窗口的设备内容句柄'区别在于GetDC不包括边框、滚动条、标题栏、菜单等，而GetWindowDC则包括 If Client Then '如果为真，即指定是客户区（不包括标题栏等） hDCSrc = GetDC(hWndSrc) 'GetDC检索一指定窗口的客户区域或整个屏幕的显示设备上下文的句柄 Else '否则用GetWindowDC寻找后获取 hDCSrc = GetWindowDC(hWndSrc) End IfhDCMemory = CreateCompatibleDC(hDCSrc) '创建一块与hDCSrc设备场景一样的内存区 hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc) '创建一幅与设备有关位图 hBmpPrev = ...

其他答案:要是复杂一点就用gid效果也会好一点当然也可以用以下的方法 ljl88900仁兄的方法保存容器的东西可以直接用savepicture函数来保存。实际大小都一样 '//保存图片。原质量输出 Private Sub Command2_Click() SavePicture , & ＂\＂ End Sub '//在picturebox容器上写文字用print就可以 '//配合格式比如tab空多少个spc空格多少个 '//还可以设置颜色。 Private Sub Command3_Click() = True '//持续输出 = RGB(100, 100, 255) '//字体颜色. Tab(5) Tab(8)；＂姓名：小明＂； '// ' Spc(9); Tab(8)；＂年龄：18＂; '// End Sub '//注意如果后边加；意思不换行.否则就是换行.搭配一下就可以输出打印 '//如果是简易的。这样就足够了。首先你在ps里边把表以及给事都做好。就是没写东西。但是有个是。然后载入容器中只要print把格式弄好。就可以了。

其他答案:我简单回答吧，如果你想保存控件的图片用以下方法： Private Declare Sub keybd_event Lib ＂user32＂ (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const KEYEVENTF_KEYUP = &H2 Private Sub Form_Click() keybd_event 18, 0, 0, 0 keybd_event vbKeySnapshot, 0&, 0&, 0& DoEvents keybd_event 18, 0, KEYEVENTF_KEYUP, 0 SavePicture , ＂c:\＂ End Sub ------------------------------- 你建一个新工程，粘贴上面代码，程序运行点一下窗口，去c：找。可以在vb中把BroderStyle设成0，再运行，你看看是不是你要的效果。 ------------------------------ 更简单的，如果你不想保存控件的影响，那么： SavePicture ,＂C:\＂当然类比你也可以保存某控件（Picture）的图片好运！

其他答案:不知道你所谓的清晰是达到什么样的程度.. 假如你的学生数据是整理好的，这个东西倒不难做

其他答案:呵呵，这个项目不错。我可以试试。。

hpal项目：红土的红土与矿产-百度知道

红土镍矿资源为硫化镍矿岩体风化―淋滤―沉积形成的地表风化壳性矿床，世界上红土镍矿分布在赤道线南北30度以内的热带国家，集中分布在环太平洋的热带―亚热带地区，主要有：美洲的古巴、巴西；东南亚的印度尼西亚、菲律宾；大洋洲的澳大利亚、新...展开全部

hpal项目：哪里有镍合金冶炼的可研报告范文！-搜狗问问

镍合金冶炼的范文，搜索一个，我觉得写的很不错，发给你参考：含镍氧化矿是由含镍橄榄岩在热带或亚热带地区经长期风化淋滤变质而成的。由于风化淋滤，矿床一般形成几层，顶部是一层崩积层（铁帽），含镍较低，一般弃置堆存；下面是褐铁矿层，含铁多...展开全部

hpal项目：什么是匈牙利命名法？有什么规则？

匈牙利命名法匈牙利命名法是一种编程时的命名规范。基本原则是：变量名=属性+类型+对象描述，其中每一对象的名称都要求有明确含义，可以取对象名字全称或名字的一部分。命名要基于容易记忆容易理解的原则。保证名字的连贯性是非常重要的。举例来说...展开全部

hpal项目：投资5万到15有什么好项目？

看看这个，是否适合你，图内有视频我3个同学都在各自的城市做这个代理，但有的小城市每月能赚拾几万，有的赚三四万，另一个还赔钱。所以不是投资都百分百赚钱的。