麻烦大师帮我查错，将一段VB声明如何转换成DELPHI代码-CSDN论坛

论坛帮助

CSDN论坛 > Delphi > VCL组件开发及应用

麻烦大师帮我查错，将一段VB声明如何转换成DELPHI代码 [问题点数：40分]

⋅麻烦大师帮我查错，将一段VB声明如何转换成DELPHI代码 ⋅想请教一下大附件上传时不同机器上传速度差异很大的问题 ⋅在通用软件开发平台上完成了学校管理系统，请大家测试，散分。 更多帖子 关注空间博客 yangtou 本版专家分：156 结帖率 98.28%: VB代码
函数声明
private Declare Function WriteDataMulti Lib "VestoreForVb.dll" (sPointName() As String, ByRef dValue As Double, ByRef lTime As Long, ByVal lCount As Long) As Long
Dim lTag(2) As String
  Dim lValue(2) As Double
  Dim lTime(2) As Long
  lTag(0) = "a"
  lTag(1) = "b"
  lTag(2) = "c"

  lValue(0) = 123
  lValue(1) = 234
  lValue(2) = 345

  lTime(0) = fCalDateLong(Now)
  lTime(1) = fCalDateLong(Now)
  lTime(2) = fCalDateLong(Now)

  If WriteDataMulti(lTag(), lValue(0), lTime(0), 3) = 1 Then
    MsgBox ("成功")
  End If
在VB下调用正常

DELPHI代码
function WriteDataMulti(sPointName:pointer;var dValue:double;var lTime:longint;lCount:longint):longint;stdcall;external libname;

lTag:array of string;
  lValue:array of double;
lTime:array of longint;
并且用setlength对这三个数组进行了赋值
Ret:=WriteDataMulti(@lTag, @lValue[0], @lTime[0], count);
结果报错，提示Extenal exception E0607363这样的错误，我已经检查过这三个数组均设好了正确的数据
怀疑声明或调用不对，请大师指点，在线等。

0 2017-04-07 11:53:11

回复数 2 只看楼主引用举报楼主

⋅麻烦大师帮我查错，将一段VB声明如何转换成DELPHI代码 ⋅想请教一下大附件上传时不同机器上传速度差异很大的问题 ⋅在通用软件开发平台上完成了学校管理系统，请大家测试，散分。 更多帖子 关注空间博客 yangtou 本版专家分：156: 函数C++的原型是
int _stdcall WriteDataMulti(SAFEARRAY **psPointName,double *dValue, long *lTime,long count)
大家帮我看看怎么调用才正常。

0 2017-04-07 12:17:41

只看TA 引用举报 #1 得分 0

vb2delphi Migration Kit v0.50 将 VB 代码转换成 delphi 代码

⋅坚持到最后一天~~~ ⋅这一局怎么破 ⋅我也来散个分~~~ 更多帖子 关注空间博客 早打大打打核战争 本版专家分：20202 红花 2019年1月 Delphi大版内专家分月排行榜第一 2018年8月 Delphi大版内专家分月排行榜第一 2018年7月 Delphi大版内专家分月排行榜第一 2018年4月 Delphi大版内专家分月排行榜第一 2018年3月 Delphi大版内专家分月排行榜第一 黄花 2016年11月 Delphi大版内专家分月排行榜第二 蓝花 2011年10月其他开发语言大版内专家分月排行榜第三 2010年8月其他开发语言大版内专家分月排行榜第三 2007年5月其他开发语言大版内专家分月排行榜第三: 引用 1 楼 yangtou 的回复:
函数C++的原型是
int _stdcall WriteDataMulti(SAFEARRAY **psPointName,double *dValue, long *lTime,long count)
大家帮我看看怎么调用才正常。

uses WinApi.ActiveX;

function WriteDataMulti(var psPointName: PSafeArray; var dValue: double; var lTime: longint; count: longint): integer; stdcall; external 'VestoreForVb.dll';

0 2019-01-17 13:27:27

只看TA 引用举报 #3 得分 0

在vb程序将字符串转为vb代码执行在vb程序将字符串转为vb代码执行，非原创，收集自网络

收藏帖子

将一个Base64字符串转换成jpg图片的方法: 假定字符串存储在文本里，如a.txt，转换结果将图片存储在a.jpg，delphi实现代码如下，须应用EncdDecd unit，代码在Delphi6下编译通过： var sl:Tstringlist; buf:string; begin sl:=TStringList.Create; sl.LoadFromFile('d:\a.txt'); buf:=string(sl.GetT

将VB.NET代码转换成C#: 有时我们需要将已写好或者他人的VB.NET代码转换成C#，而不需要重新编码。下面的网站可以实现这个功能。 http://www.developerfusion.com/tools/convert/vb-to-csharp/ 当然，转换过的代码不一定可以直接使用，有些地方还需要人工检查一下。

VB代码转C#代码工具: 非常实用的VB转C#工具，可直接把VB的项目源码转换成C#源码，亲自验证过，简单粗暴好用，可以帮组节省代码转换的时的大量时间，对不懂VB的人有很大帮助！

屏幕坐标与客户坐标的转换: WIN32 API函数： 1、ClientToScreen 函数：　　函数功能：该函数将指定点的用户坐标转换成屏幕坐标。　　函数原型：BOOL ClientToScreen(HWND hWnd,LPPOINT lpPoint)；　　参数：　　hWnd ：用户区域用于转换的窗口句柄。注：第二个参数点的坐标是相对于第一个参数(窗口句柄)

浮点数与字节数组的相互转换: 摘自:原创作者: procedure TForm1.Button1Click(Sender: TObject);var aa : array[0..7] of byte; //8个字节长的字节数组 tmpF : double;//8 字节双精度浮点数 i : integer; tmpK : double;//8 字节双精度浮点数begin tmpF := now;//取当前时间 ed

将listview中的数据导出到excel中: 在项目引用中加入Microsoft Excel 16.0 Object Library using System; using System.IO; using System.Data; using System.Reflection; using System.Diagnostics; using Excel = Microsoft.Office.Interop.Excel;

将下面vb代码转换成delphi代码: Sub ReadCard()rn j = rf_request(0, mode, p)rn If (j = 0) Thenrn j = 1rn j = rf_anticoll(0, 4, CardSN, plen)rn If (j = 0) Thenrn j = 1rn j = rf_select(0, CardSN, plen, pSize)rn mode = &H60rn End Ifrn If (j = 0) Thenrn j = 1rn j = rf_M1_authentication2(0, mode, CByte("0"), Key(0))rn newone = 1rn End Ifrn If (j = 0) Thenrn j = 1rn j = rf_M1_read(0, CByte("0"), pdata(0), PLen1)rn j = rf_M1_read(0, CByte("1"), PData1(0), PLen1)rn Elsern For k = 0 To 5rn Key(k) = PKey2(k)rn Next krn ReadCardrn End Ifrn If (j = 0) Thenrn If (CHK = 0) Thenrn If (PData1(0) = &H0) Thenrn j = rf_beep(0, 20)rn j = rf_light(0, 2)rn CHK = 1rn ReadOKrn Elsern j = MsgBox("该卡不是用户卡", vbInformation, "添加用户")rn End Ifrn Elsern j = rf_light(0, 1)rn End Ifrn rn End Ifrn Elsern j = rf_light(0, 1)rn setobj (False)rn Label7.Caption = ""rn Label8.Caption = ""rn Label9.Caption = ""rn Label10.Caption = ""rn Text1.Text = 0rn CHK = 0rn For k = 0 To 5rn Key(k) = PKey(k)rn Next krn End IfrnEnd SubrnrnSub ReadOK()rn PIN = Right("00" & Hex(PData1(4)), 2) & Right("00" & Hex(PData1(5)), 2) & Right("00" & Hex(PData1(6)), 2) & Right("00" & Hex(PData1(7)), 2) & Right("00" & Hex(PData1(8)), 2)rn Label7.Caption = ""rn If (PData1(11) = &H0) Thenrn If (PData1(10) = getcomputerid) Thenrn For k1 = 0 To 3rn Label7.Caption = Label7.Caption & Hex(pdata(k1))rn Next k1rn Label8.Caption = GetUserName(Label7.Caption)rn Label9.Caption = GetPumpName(Right("00" & Hex(PData1(1)), 2) & Right("00" & Hex(PData1(2)), 2) & Right("00" & Hex(PData1(3)), 2))rn Label10.Caption = CLng("&h" & Right("00" & Hex(PData1(9)), 2) & Right("00" & Hex(PData1(8)), 2) & Right("00" & Hex(PData1(7)), 2) & Right("00" & Hex(PData1(6)), 2)) / 10rn setobj (True)rn Elsern j = MsgBox("对不起,该卡属于其他终端", vbInformation, "充值")rn End Ifrn Elsern j = MsgBox("对不起,卡片出错,请到控制器重新刷卡", vbInformation, "充值")rn End Ifrn'If (pdata1(0) = &H22) Thenrn ' setcomborn'End IfrnEnd Sub

将代码从VBA转换到VB.NET: 适用于： Microsoft? "Visual Studio Tools for Office" Beta Microsoft Office Word 2003 Beta 2 Microsoft Office Excel 2003 Beta 2 Microsoft Visual Basic? for Applications (VBA) Microsoft Visual Studio? .NET 2003 Microsoft Visual Basic .NET

VB程序Word转换成PDF: VBA程序将Word转成PDF，可以做出WSF供Java和C程序调用。

小写金额转换为大写金额程序(VB6.0代码编写): 小写金额转换为大写金额程序(VB6.0代码编写) 小写金额转换为大写金额，当输入数字时就会对应产生大写金额。 QQ223857666勾月

JPG无损转PDF（包括源码）: 可以无损的将jpg格式文件转成pdf，适合设计师用来转换作品为pdf

VB 录入字母大写自动转换成小写及小写自动转换成大写: 要自动转换大小写，很多人首先想到的一定是 UCase$ 及 LCase$，但是要使用这二个函数，一定不可以在 Key_Press 事件中使用，否则您若输入《abc》，结果却变成《CBA》，为什么呢？因为当您输入 a 之后，UCase$ 会替您转换成 A，但是转换完后，滑鼠的游标会停在 A 的前面，您继续输入 b，变成了 bA，UCase$ 又替您转换成 BA，转换完后，滑鼠的

Delphi把HTML转换成纯文本格式: 网上很多把HTML转换成纯文本格式的方法很多思路都是用正则表达式或者分析html代码替换的方法。本文是利用IE完成转换，即利用IHTMLDocument2接口。uses MSHTML, ActiveX, OleCtrls, Variants, SysUtils; function HtmlToText(HtmlText: WideString): WideS

有哪位大侠对delphi和vb都懂的，麻烦将下面的一段delphi代码换成VB代码。: http://community.csdn.net/Expert/topic/3604/3604894.xml?temp=.767132

vb变量定义方法: dim a,b as Integer a 为variant b 为 integer dim a as Integer ,b as Integer 定义a,b为整形变量 Dim a As Integer -说明a为整型变量　　Dim b As String -说明b为可变长字符型变量　　Dim c As String~~1 0 ’说明c为长度是10个字符的固定长字符型

怎么将jpg转换成pdf文件: 对于整理图片，我们有一种比较常用的方法——合并。很多的美图或是PS都可以做到这一点，不过今天小编交给大家一个更加简单的方法——将图片转换成PDF。将大量图片转换成一个pdf文件不仅浏览方便，储存也非常的方便，下面就一起来看看jpg是怎么转换成pdf的吧。想批量转换空手怎么行，首先要在百度下载迅捷pdf转换工具并安装在自己的电脑上；双击软件图标打开软件，接着鼠标移到软件左

如何将一段字符串转换为HTML格式: String text = "字符内容"; String htmlFileName = UUIDUtil.generateUUID()+".html"; String htmlPath = imgPath+ File.separatorChar+htmlFileName; File file2 = new File(htmlPath); StringBuilder sb = new Strin

一大段html代码转换为页面的方式: PS：本人用的是django框架最近在忙着一个项目，是做RSS订阅的。遇到一个问题，就是有的RSS里面的items元素中的 description这个元素，存放的是一大段html代码：如下图之后要是直接显示在页面中，看起来很是难看想了很多方法，一开始是打算用的方法，但是因为订阅的RSS中的items数量是不确定的，不可能写一大堆html文件用来存储。于是脑洞了一

C#代码项目转换VB.NET项目代码（可整个项目转换）: C#代码项目转换VB.NET项目代码（可整个项目转换）C#代码项目转换VB.NET项目代码（可整个项目转换）

将ListView中的数据导出到Excel中: 第一篇博文，写的不太让人懂的，还望见谅。嗯，自己写着，看自己的程序员之路能走多长。。3..2..1 下面开始。刚来实习，在经过了两周的自我学习之后，上手项目的第一个任务：看代码。在看代码时发现项目的一个小Bug，有个“导出到Excel”的按钮，但按下去了却没反应，但是却在进程中发现了一个EXCEL.EXE的进程，不解。所以，决定用自己的方法去处理试试。首先是用一开始学

将数字转换成EXCEL列字母: VBA编写的将数字转换成EXCEL的列字母，没有EXCEL中列数的限制，相当于数字进制。可以使用在VB中。

VB编程：ReleaseCapture&SendMessage拖动无标题栏的窗体-57: Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wP...

Delphi通过Map文件查找内存地址出错代码所在行: Delphi通过Map文件查找内存地址出错代码所在行一什么是MAP文件什么是 MAP 文件？简单地讲， MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法，它可以在任何地方、任何时候使用，不需要有额外的程序进行支持。而且，这是唯一能找出程序崩溃的地方的救星。如果要查找代码行号，需要使用下面的公式做一些十六进制的减法运算：

获取系统时间以及将时间戳转换成字符串，将字符串转换成时间戳: //获取本地时间 public static String getCurrentDate() { Date d = new Date(); format = new SimpleDateFormat("yyyy-MM-dd HH:mm:ss"); return format.format(d); } //时间戳转换成字符串

Delphi中怎么调用vb的DLL: VB直接生成的是ActiveX dll，经过改造，也能生成标准的Windows DLL。不知道你说的VB生成的dll是哪一类？ 1. 标准的Windows DLL， delphi的例子很多。无需等VB生成的dll。 2. 如果是vb生成的active x dll，那么：首先注册VB的ActiveX DLL，然后在Delphi的Project菜单上选择import Type L

迅速将图片转换成su模型: 迅速将图片转换成su模型

VB中对象的声明和绑定: 对象声明有一下集中办法： 1，直接声明和创建实例并赋值给变量 Dim ObjectVarName As New [ClassLibName.]ClassName 2，先声明一个对象变量类型，然后在类中创建一个实例，再赋值 Dim ObjectVarName As [ClassLibName.]ClassName Set ObjectVarName = new [ClassLibName.

vb6代码转换为c#步骤: vb6代码转换为c#步骤，20181128实测可用，2个软件可以到百度下载。

关于VB日期与数字的转换（一）: VB中可将日期作为实数的一部分来存储。小数点左边的数值表示日期：小数点右边的数值表示时间。负的数值表示在1899 年 12 月 30 日之前。所以每一天可以用一个整数来表示（以1899-12-30 为0，该日之后为正数，之前为负数），对于MSVB 的合法日期，即#100-1-1# 到#9999-12-31#，就有-657434～2958465来表示。对于给定的日期，用Clng()可以获得该日期

VB.Net to C# Converter将VB代码转换成C#代码: 本资源为【VB.Net to C# Converter】软件，它可以将VB代码转换成C#代码，效果很好

麻烦帮我把一段C++代码转为delphi代码。谢了！: rn我想用delphi 7写一个全局钩子，当窗口标题为“XXXXX”的窗口一生成，就在后台截住它（不要消毁也不要隐藏），然后用Windows.SetParent(Handle1, Handle2)改变它的父窗口，把其父窗口改为某已知句柄的窗口（虚拟桌面），让其显示在虚拟桌面窗口里；在当前桌面就像没看到它们出现一样。rnrn我对钩子不太熟悉，花了好长时间在delphi 7下都不知如何实现。最后找到一个功能较为类似的用C++写的例程，但我对C++不熟，麻烦帮我把其源代码，从C++转为delphi 7。不胜感激！！！rnrnrnrn以下是《阻止弹窗程序弹窗免疫程序》C++程序（内含代码）：rn[url=http://download.csdn.net/detail/luo_xuewu/2730015]http://download.csdn.net/detail/luo_xuewu/2730015[/url]rnrn上面网址需要积分才可下载，所以我把它上传到了百度网盘，你可以到百度网盘下载：rn[url=http://pan.baidu.com/s/1nb3WU]http://pan.baidu.com/s/1nb3WU[/url]rnrnrnrnrn特别注意：rn1、C++例程代码是直接阻止窗口显示，译成DELPHI代码后，请用注释注掉阻止显现的代码，改为用Windows.SetParent(Handle1, Handle2)改变它的父窗口即可。rn2、C++例程代码阻止的是对话框，而我要阻止的窗口由那个进程产生的并不知晓，唯一知道的只是窗口的标题为“XXXXX”，该窗口有可能是对话框，也有可能是某个进程产生的窗口。rnrnrnrn另附delphi全局钩子例程：rn《Hook到窗口显示消息后，怎么让窗口不可见》：[url=http://bbs.csdn.net/topics/280005288]http://bbs.csdn.net/topics/280005288[/url] rn（#41 dandycheung的回复很有参考价值，不过他是根据类名阻止窗口，而我要的是根据窗口标题阻止；同时我要的不是隐藏窗口，而是改变父窗口）rnrnrn//==========以下是C++关键代码，更详细请下载参见例程===================================rnrnDllMain.cpprn#include "windows.h"rn#include "Macro.h"rn#include "Hook.h"rnrnBOOL WINAPI DllMain( HINSTANCE hinstDLL,DWORD fdwReason,LPVOID lpvReserved )rnrn return true ;rnrnrn//----------------------------------------------------rnMacro.hrn#ifndef MACRO_H rn#define MACRO_Hrnrnrn#define DEBUGrnrnrnrn#define NOTUSED 0rn#define RESERVED 0rn#define IGNORED 0rnrnrn#ifdef UNICODE rn#define tstring wstringrn#define tstringstream wstringstreamrn#define tistringstream wistringstreamrn#define tostringstream wostringstreamrn#define tfstream wfstreamrn#define tifstream wifstreamrn#define tofstream wofstreamrn#define CF_TCHAR CF_UNICODETEXTrn#elsern#define tstring stringrn#define tstringstream stringstreamrn#define tistringstream istringstreamrn#define tostringstream ostringstreamrn#define tfstream fstreamrn#define tifstream ifstreamrn#define tofstream ofstreamrn#define CF_TCHAR CF_TEXTrn#endifrnrnrn#define UM_CREATE WM_USER + 100rn#define UM_TEXT WM_USER + 101rnrnrn#endifrnrnrn//----------------------------------------------------rnHook.hrn#pragma oncern#ifdef DLLEXPORTrn#elsern#define DLLEXPORT _declspec( dllimport )rn#endifrnrnclass DLLEXPORT Hookrnrnpublic:rn Hook( unsigned int p_HookType, unsigned int p_idThread = 0 );rn ~Hook(void);rnrn bool SetHook(void);rn void UnHook(void);rnrnprivate:rn unsigned int HookType ;rn unsigned int idThread ;rn HHOOK hook ;rnrnprivate:rn static HWND hwndOwner ;rn rnpublic:rn static bool SetOwner(HWND p_hwndOwner);rn static LRESULT CALLBACK CallWndProc(int nCode, WPARAM wParam, LPARAM lParam);rn static LRESULT CALLBACK GetMsgProc(int code, WPARAM wParam, LPARAM lParam);rn;rnrnrn//----------------------------------------------------rn#define DLLEXPORT _declspec( dllexport )rn#include "windows.h"rn#include "tchar.h"rn#include "Macro.h"rn#include "Hook.h"rnrn#pragma data_seg( "HookWnd" )rnHWND Hook::hwndOwner = NULL ;rn#pragma data_seg()rnrn#pragma comment( linker, "/section:HookWnd,RWS" )rnrnrnHook::Hook( unsigned int p_HookType, unsigned int p_idThread )rn: HookType( p_HookType )rn, idThread( p_idThread )rnrnrnrnHook::~Hook(void)rnrn UnHook();rnrnrnbool Hook::SetOwner(HWND p_hwndOwner)rnrn if( !IsWindow( p_hwndOwner ) )rn return false;rnrn hwndOwner = p_hwndOwner ;rn return true ;rnrnrnbool Hook::SetHook(void)rnrn switch( HookType )rn rn case WH_CALLWNDPROC :rn hook = SetWindowsHookEx( HookType, CallWndProc, rn GetModuleHandle( TEXT( "DllScoutCraeteMsg.dll" ) ), idThread ) ;rn break;rnrn case WH_GETMESSAGE :rn hook = SetWindowsHookEx( HookType, GetMsgProc,rn GetModuleHandle( TEXT( "DllScoutCraeteMsg.dll" ) ), idThread ) ;rnrn default:rn break ;rn rnrn if( !hook )rn return false;rn return true ;rnrnrnvoid Hook::UnHook(void)rnrn if( hook )rn UnhookWindowsHookEx( hook ) ;rnrnrnLRESULT CALLBACK Hook::CallWndProc(int nCode, WPARAM wParam, LPARAM lParam)rnrn if( !wParam )rn rn CWPSTRUCT *pCwp = reinterpret_cast< CWPSTRUCT* >( lParam );rn if( pCwp->message == WM_INITDIALOG )rn rn if( SendMessage( hwndOwner, UM_CREATE, wParam, rn reinterpret_cast< LPARAM >( pCwp->hwnd ) ) )rn return 0 ;rn rn rnrn return CallNextHookEx( IGNORED, nCode, wParam, lParam );rnrnrnLRESULT CALLBACK Hook::GetMsgProc(int code, WPARAM wParam, LPARAM lParam)rnrn MSG *pMsg = reinterpret_cast< MSG* >( lParam ) ;rn if( pMsg->message == WM_CHAR )rn rn if( hwndOwner != GetParent( pMsg->hwnd ) )rn SendMessage( hwndOwner, UM_TEXT, pMsg->wParam, pMsg->lParam ) ;rn rnrn return CallNextHookEx( 0, code, wParam, lParam ) ;rnrnrnrnrn//==========以上是C++关键代码，更详细请下载参见例程===================================rnrnrn再次感谢！！！rn

Delphi 单精度浮点数与字节数据的相互转化处理: 最近看modbus的协议需要用到浮点数的转换，原本想着还要照着IEEE的浮点数结构自己来搞，Google下原来有更好的解决方案，粘贴下来以备不时之需，贴代码(代码仅作示意，自己整理下) ：1、字节数组转为Single，传入参数自己处理下，嘿嘿function BytesToSingle():Single; var bSingle:array[0..3] of byte; begin //49E48E68 bSingle[3] := $49

VB反编译，可以把EXE转成工程文件: VB反编译，可以把EXE转成工程文件 VB反编译，可以把EXE转成工程文件

VB代码转换为C#代码-转换工具-转换器: 压缩包内有转换器的安装包，使用说明，注意事项等，并且提供了其他版本的下载链接。安装后可以方便地将VBA，VB.NET代码直接复制到转换器中，再自动转换为C#代码，方便做开发的人使用。

从VBA转到VB6该如何转？: Dim i, k As Integer Dim KH(100) As String Dim DS(100) As Double Dim WD(100) As Double i = 1 k = 1 wjm = "d:\上传\" & CStr("SW-" & Month(Date) & "-" & Day(Date) & "-" & Hour(Time) & "-" & Minute(Time) &

在线工具--把C#代码转换成VB.NET代码: 在线工具--把C#代码转换成VB.NET代码 有不少朋友在网上找资料时经常会遇到想要VB.NET的代码，但却只有C#的代码。自己改又改不大来！本人不经意发现有一个在线工具，使用方便。支持：C#- VB.NET VB.NET-C# 地址(C#- VB.NET)： http://www.developerfusion.c

【解决方案】测量一段代码执行的时长: C#内置提供给了测量代码执行时长的方法，添加在你要检测的代码上，只需要句而已，代码如下： //初始化 Stopwatch stopWatch = new Stopwatch(); List&amp;amp;lt;Tuple&amp;amp;lt;DateTime, String&amp;amp;gt;&amp;amp;gt; temp = new List&amp;amp;lt;Tuple&amp;amp;lt;DateTime, string&

Delphi代码转换成VB代码: 我有如下Delphi代码,请高手转换成VB代码,多谢!rn目的:我现在写一个读取新中新第二代身份证阅读器的程序时,在繁体系统中读取出来的中文字为"?",想转换成繁体系统下能识别的中文字,刚在网上看到如下代码能实现.但不知怎么用VB实现.rnrnstr 为unicode编码. rnrnrn................... rnrnstr:=GBToBig5(WideStringToString(str)); rnrn..................... rnrnrnfunction GBToBig5(GBStr:String):AnsiString; rnvar rn Len: Integer; rn pGBCHTChar: PChar; rn pGBCHSChar: PChar; rn pUniCodeChar: PWideChar; rn pBIG5Char: PChar; rnbegin rn pGBCHSChar := PChar(GBStr); rn Len := MultiByteToWideChar(936,0,pGBCHSChar,-1,nil,0); rn GetMem(pGBCHTChar,Len*2+1); rn ZeroMemory(pGBCHTChar,Len*2+1); rn LCMapString($804,LCMAP_TRADITIONAL_CHINESE,pGBCHSChar,-1,pGBCHTChar,Len*2); rn rn GetMem(pUniCodeChar,Len*2); rn ZeroMemory(pUniCodeChar,Len*2); rn MultiByteToWideChar(936,0,pGBCHTChar,-1,pUniCodeChar,Len*2); rn Len := WideCharToMultiByte(950,0,pUniCodeChar,-1,nil,0,nil,nil); rn GetMem(pBIG5Char,Len); rn ZeroMemory(pBIG5Char,Len); rn WideCharToMultiByte(950,0,pUniCodeChar,-1,pBIG5Char,Len,nil,nil); rn Result := String(pBIG5Char); rn FreeMem(pBIG5Char); rn FreeMem(pGBCHTChar); rn FreeMem(pUniCodeChar); rnend; rnrnrnfunction WideStringToString(const WS: WideString; CodePage: Word): string; rnvar rn InputLength,OutputLength:Integer; rnbegin rn InputLength := Length(WS); rn OutputLength := WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, nil, 0, nil, nil); rn SetLength(Result, OutputLength); rn WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, PChar(Result), OutputLength, nil, nil); rnend;

VB代码转换成Delphi代码: 如下代码：rn Dim bytVer(2) As Bytern Dim bytDB_ID As Bytern Dim bytFile(39) As Bytern Dim iFreeFile As Integerrn Dim sFileFlag As String * 15rn iFreeFile = FreeFilern Open fsDBsee For Binary As #iFreeFilern rn Get #iFreeFile, &H43, bytFilern Get #iFreeFile, &H9D, bytVerrn Get #iFreeFile, &H15, bytDB_IDrn Get #iFreeFile, &H5, sFileFlagrn rn Close #iFreeFilern请转换成Delphi代码，谢谢！

计算Delphi代码段执行时长: var 　　t1,t2:int64; 　　r1:int64; 　　begin 　　t1:=GetTickCount;//获取开始计数 WINDOWS API 　　sleep(1000);{do...}//执行要计时的代码 　　t2:=GetTickCount;//获取结束计数值　　r1:=t2-t1;//取得计时时间，单位毫秒(ms) 　　showmessage(inttostr(r1));

vb代码转换成Delphi代码: 这里有一句vb写的代码，不知如何转换成Delphi代码，寻求大家的帮助哦！rn（这段是打开打印机断口，然后打印内容的哦）rnOpen "LPT1" For Output As #1 rn Print #1, "chuangxin" rnClose #1

C#和VB代码互相转换: 在线转换

将整个pdf文档转换成jpg图片的最快方法: 把PDF文档的内容转成图片文件，如果直接通过截图的方式来进行操作，那么只能一页一页的截图，这样不仅慢，而且生成的图片质量不高。若要进行快速的转换，就必须将pdf文件批量转换成图片，那怎样能够进行批量转换呢？　　可以在pdf转图片软件中将文档内容直接批量输出成图片，打开转换器后首先在左边的各种操作类型中选择文件转图片。　　接着把pdf文件添加到转换器的列表，可以天添加文件按钮来添加，或者

vb编写的颜色代码与RGB互转工具: vb编写的颜色代码与RGB互转工具，有源码，可以随意获取颜色代码，并且可转换为RGB，值得拥有！

VB.NET to C# Converter v2.16: 将VB代码自动转换成C#的工具包括注册机

VB 将二进制图片文件转换为Base64字符串文本: VB 将二进制图片文件转换为Base64字符串文本

将十六进制转换成十进制: #include &lt;stdio.h&gt;int main(){ int num = 0x2018; int temp = 0; temp = (((num &amp; 0xf000) &gt;&gt; 12) * 1000 + ((num &amp; 0x0f00) &gt;&gt; 8) * 100 + ((num &amp; 0x00f0) &gt;&gt; 4) *...

图片转PDF 编程接口: 最小的图片转pdf编程接口，史上最小 img2pdf 编程接口,支持各种语言(VC,VB,PB,JAVA,delphi,python等) 支持各种图片转PDF，而且生成的PDF非常小，支持对各种图片的预处理（支持图片的合并，拼接，格式转换，加补白，去除背景色等操作）。支持批量图片生成PDF，可把图片追加到PDF，对图片的合并，可以支持拼版操作，所有功能，封装在20K的dll中，可以嵌入你的程序中此外，还提供各种文档转图片功能以及把各种文档生成不可编辑的文档的功能包括(Word,PDF,XPS,Excel,PPT等) 图片转PDF，可以对于各种分发的文档起到保护作用。

把用某符号分隔的字符串转换成数组: 常见的一道面试题：把某某符号（“，”或 “#”）分隔的字符串转换成一个数组。思路有两个：（1）使用split()函数（2）StringTokenizer 举例：一个字符串str用逗号分隔为：“aa,bb,cc,dd,ee,ff,gg” 要求将其转换成数组实际中的情境举例：如初期的高校云平台中评教部分，学生评教时会记录每个评分项的id和该项学生评的分数，实现时使用JavaS

delphi转c#破解版: Delphi程序转换成C#工具，以破解，突破转换代码行数限制。可以更快捷的将Delphi代码转换成c#代码，节省代码翻译时间。

IEEE754换算方法: VB IEEE754换算方法 Private Function Str2Float(str As String) As Double Dim k As Integer Dim i As Integer Dim j As Integer

PDF转图片代码实例（完美实现）: 本想依赖第三方jar包，但是对中文处理不是很好，通过朋友提示，最终完美解决。

C++ 程序如何转成 delphi: 程序代码： void evaluation(double *pop, double *fitness, unsigned int M, unsigned int D, unsigned int fun, unsigned int NF) { unsigned int i, j, f; for(i = 0; i < M; i++) for(j = 0, f = f

VB十进制数转换为二进制、八进制、十六进制。: VB的十进制数转换为二进制、八进制、十六进制。来源网络

万一的delphi博客写得太好了，真是有专门研究delphi的高手: ====================================================== 注：本文源代码点此下载 ====================================================== 万一的delphi博客写得太好了,真是有专门研究delphi的高手一直在找一个delphi高手,在现在java和.net横行的年代,win32

一个简单的将bmp图片转换成tif: 一个简单的将bmp图片转换成tif 1: go to http://java.sun.com/products/java-media/jai/current.htmldownload Java Advanced Imaging 1.1.22: put the lib in your jdk3: following is the sample i convert my tif to

Delphi与VB有什么区别？: 1.Delphi是真正的面向对象编程，而VB是基于对象的编程，这一点是主要的区别； 2.另外，VB中没有多态和继承等面向对象的概念； 3.再者VB是以Basic语言为基础，Basic语言执行效率低的缺点也被保留了下来，所以从运行效率上来说，Delphi比VB要快。

VARIANT型变量转换: 1、在VC++编程中，我们常常会遇到这样的函数，如：::SetValue(const VARIANT& propVal)；我们怎么把一个整形或double型等其它的类型赋值给VARIANT型变量呢，或者是VARIANT型变量怎么赋值给int等其它类型呢。 2、 VARIANT是一个结构体，它的结构体如下： struct tagVARIANT { union {

哪位大虾能将以下的一段VB代码转换成DELPHI代码？？？: Sub bot_cleckrnrn Set ubomtemp = db.OpenRecordset("select * from ubomtemp where comp_mb= 'B'")rn With ubomtemprn Do While Not .EOFrn .Editrn parentID = !COMPONENTrn rn !Quantity = !Quantity * parentQty(!Parent)rn .Updatern .MoveNextrn LooprnEnd WithrnrnEnd subrnrnrnFunction parentQty(parentID As String)rn Dim ubomtemp As Recordset, prid As Stringrn Set db = CurrentDbrn parentQty = 1rn Set ubomtemp = db.OpenRecordset("select * from ubomtemp where component= '" + parentID + "'")rn With ubomtemprn rn Do While Not .EOFrn rn parentQty = !Quantity * parentQty(!Parent)rn .MoveNextrn Looprn End WithrnrnrnEnd Functionrn

用VB代码将十进制小数转二进制，也说下vba自动打印: VB代码十进制小数转二进制？一个十进制转二进制的函数 Public Function D2B(D As Integer) As String D2B = "" Do While D > 0 D2B = D Mod 2 & D2B D = D \ 2 Loop End Function Private Sub Form_Load(

VB编程：Val字符串转数字，CStr数字转字符串-6: 效果显示： Private Sub Text1_Change() Text2.Text = CStr(Text1.Text) '转字符串 Text3.Text = Val(Text1.Text) '转为数字 End Sub 备注： 1、Val()函数，字符串转为数字，从左到右依次转换，遇到非数字字符为止，必要时可以使用CDbl()； 2、CSt...

VS2015编写能够被vb\delphi等调用的dll: 以编写VCDLL.dll为例其中有myadd函数 1、头文件中声明 EXTERN_C __declspec(dllexport) int __stdcall myadd(int a, int b); 2、项目中添加 .def文件,内容如下,为了使导出的函数名保持不变 LIBRARY "VCDLL" EXPORTS myadd @ 1 3、编译选项项目 -> 属性 -

麻烦查错: 有下列一段代码,运行时没有错误,但当我按下按钮时,出现"unknow database"错误提示,并且错误指示在"while not table1.eof do"这一行,如何解决这个问题:rnprocedure TForm2.Button8Click(Sender: TObject);rnbeginrntable1.first;rnwhile not table1.eof dornbeginrntablename:=table1.fieldbyname('code').AsString;rnquery1.DatabaseName:=tablename;rnquery1.close;rnquery1.SQL.Text:='create table'+' tablename'+rn'(code string primary key,Name varchar(10))';rnquery1.execsql;rnend;rnend;

如何从CS 转为 BS?: ASP如何入门. 2 从.net 入手, 那些书是必备的? 3 IIS需不需要买本书看啊 4 如何没有经验的情况下进入asp.net1 ASP如何入门.2 从.net 入手, 那些书是必备的?3 IIS需不需要买本书看啊4 如何没有经验的情况下进入asp.net1 ASP如何入门.browser(dreamwaver):---------------htmljavascriptdh

Java反转字符串代码: public static void main(String args[]) { Scanner input = new Scanner(System.in); System.out.print("输入要进行反转的字符串："); String str = input.nextLine(); System.out.print("进行过反转之后的字符串："); for (int i

vb 字符串转为数字和判断字符串是否是数字字符串【转】: 1 Val 函数返回包含于字符串内的数字，字符串中是一个适当类型的数值。语法 Val(string) 必要的 string 参数可以是任何有效的字符串表达式. 说明 Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &amp;O（八进制）和 &amp;H...

java实现字符串转换成可执行代码: 使用commons的jexl可实现将字符串变成可执行代码的功能，我写了一个类来封装这个功能： Java代码 import java.util.Map; import org.apache.commons.jexl2.Expression; import org.apache.commons.jexl2.JexlContext; import o

vb版的程序: vb版的程序，麻烦高手转换成vc的版本，多谢

vb版程序: 一个vb版的程序，麻烦高手转换成vc的版本

java2op 工具: 官方的JAR转换成Delphi的声明文件，可以delphi中使用jar包

用VB.NET将字节数组转换为字符串: 如果你需要将一个字节数组转换成字符串，可以使用BitConverter.ToString或Covert.ToBase64String方法。下面我提供实例说明如何用上两种方法进行转换。字节数组用法如果你准备恢复用二进制格式保存的文本，在System.Text命名空间中调用适当编码对象的GetString方法。使用System.BitConverter类是将一个字节数组转换

一段VC代码转换成Delphi代码？: VC代码为：rnCString path="c:\\1.jpg";rn CFile myFile;rn byte* data;rn if(myFile.Open(path, CFile::modeRead | CFile::typeBinary))rn rn UINT filelen=myFile.GetLength();rn data = new byte[filelen];rn _variant_t outData;rn UINT dw=myFile.Read(data,filelen);rn if (dw==filelen)rn rn rn theApp.buffer->ByteToVariant(data,filelen,&outData);rn myFile.Close();rn int x0,x1,y1,y0;rn BOOL ok1=theApp.face->FindFace(outData,&x0,&x1,&y0,&y1);rn rn rnrnrn其中 ByteToVariant 函数为：rnrnvoid CImageBuffer::ByteToVariant(byte *bData, long bSize, VARIANT *pOutAarry)rnrn SAFEARRAY* psa;rn SAFEARRAYBOUND rgsabound[1];rn rgsabound[0].lLbound = 0;rn rgsabound[0].cElements =bSize;rn psa = SafeArrayCreate(VT_UI1, 1, rgsabound);rn rn for (long i = 0; i vt = VT_ARRAY | VT_UI1;rn pOutAarry->parray = psa;rn

vb编写的16进制与2进制互转源码: vb编写的16进制与2进制互转源码

Excel 生成pdf (Excel自动转化为PDF): Excel 生成pdf (Excel自动转化为PDF) 用VB编码 Excel 生成pdf (Excel自动转化为PDF)

C#和vb.net代码相互转换，翻译: C#和vb.net代码相互转换 http://converter.telerik.com/

vb.net字符串转为日期型: 如何把字符串转为日期型呢？例如：“20120814”如何转为日期型。关键：先将字符串形成日期型的“形式” 比如“20120814” 形成： “2012-08-14” 或"2012/08/14" 故：举例如下： [vb] view plaincopyprint

一段VB代码，帮我翻译成Delphi代码，谢谢！！: Vb代码如下：rnDim upper As Byte, lower As ByternDim Tmpl As LongrnTmpl = &H802rnCopyMemory lower, Tmpl, 1rnCopyMemory upper, ByVal VarPtr(Tmpl) + 1, 1rnImplVersion = Val(Str$(upper) & "." & Str$(lower)) 'and herern

Delphi 把现有的EXE工程转成DLL工程（EXE文件转成DLL文件）: 第一种方法：具体步骤： 1、生成新的或着打开已经存在的工程文件（DPR）（Project1.dpr）。 2、选择【View】—>【Project Manager】，选中【ProjectGroup】，然后点击【New】按纽新建一个DLL文件； 3、保存DLL文件，修改

日期字符串转换为本地日期格式: //将目标日期字符换转换为本地日期类型var D1:TDateTime; dtFormat: TFormatSettings; begin dtFormat.ShortDateFormat:= 'yyyy-MM-dd'; dtFormat.DateSeparator := '-'; D1:= StrToDate(Edit1.Text, dtFormat)); .

VB 中颜色互相转换的两个小函数(REG和 VB颜): VB颜色和RGB色互相转换头疼了我好一段时间,如今找到解决办法了特别贴出来与大家共享 Type RGB Red As String Green As String Blue As StringEnd TypePublic Function ColorToRGB(ByVal dwColor As Long) As RGB Dim clrHex As String

实数和字符串间的转换: 设计思路：要把一个实数转换成字符，需要用到它的ascii，程序如下： /* cj5.c 实数和字符串之间的转换 */ #include #include main() { char x='A',y='B',z='a',t='b',dot='a'; int i=0,j=0,k=0,m=0,n=0; double fa=0,fb=0,fc=0; printf("plea

中文汉字转汉语拼音vb.net三种方式源代码程序，可直接运行: vb.net语言写的转换拼音代码不多，此程序把中文汉字转换成全拼的汉语拼音，用于处理web应用中，文章标题，类别，等等地方的应用，下载可运行，附加汉字一二级字库，希望对其他同学有帮助

VB，C#代码互转: 完美的将VB源代码转换成C#源代码，也可以将C#源代码转换成VB源代码。

代码查错器: 代码查错器你值得拥有，简单易操作，内存小，好用实在

帮我将一段C#代码翻译成VB代码！: C#代码：rn public string ValidateRight(int rank) rn if(Session["admin"] == null || Session["admin"].ToString() == "")rn return "/webpub/login.aspx";rn if(rank == 0)rn return "OK!";rn string popedom = Session["popedom"].ToString();rn string[] strTemp = popedom.Split('|');rn foreach (string sTemp in strTemp) rn if(sTemp == "")rn continue;rn if(Int32.Parse(sTemp) == rank)rn return "OK!";rnrn return "NO!";rn rnrn翻译成VBSCRIPT吧，因为我要在ASP里调用，谢谢了……

一段vb代码转换成c#代码: 在线等rnrn String ls_c[10] = "○","一","二","三","四","五","六","七","八","九" rn String ls_date, ls_returnStr = "",ls_ch rn Int mm, dd, i rn rn ls_date = String(adt_date, "yyyy年mm月dd日") rn int a rn a= len(ls_date) rn For i = 1 to Len(ls_date) //依次处理ls_date中每个字符 rn ls_ch = Mid(ls_date , i , 1) rn If Asc(ls_ch) < 128 then //非汉字 rn ls_returnStr = ls_returnStr + ls_c[integer(ls_ch)+ 1] //得到对应的中文数字 rn else rn ls_ch = Mid(ls_date , i , 2) rn ls_returnStr = ls_returnStr + ls_ch //取出此汉字 rn i = i + 1 rn end if rn next rn //处理'月' rn mm = Month(date(adt_date)) rn choose case mm rn case 11, 12 rn ls_returnStr = replace(ls_returnStr, 11, 2, "十") rn case 10 rn ls_returnStr = replace(ls_returnStr, 11, 4, "十") rn case else rn ls_returnStr = replace(ls_returnStr, 11, 2, "") rn end choose rn rn //处理'日' rn dd = Day(date(adt_date)) rn i = Pos(ls_returnStr, "月") + 2 rn choose case dd rn case 31, 21 to 29 rn ls_returnStr = replace(ls_returnStr, i + 2, 0, "十") rn case 30, 20 rn ls_returnStr = replace(ls_returnStr, i + 2, 2, "十") rn case 11 to 19 rn ls_returnStr = replace(ls_returnStr, i, 2, "十") rn case 10 rn ls_returnStr = replace(ls_returnStr, i, 4, "十") rn case 1 to 9 rn ls_returnStr = replace(ls_returnStr, i, 2, "") rn case else rn end choose rn rn return ls_returnStr rn

如何实现十进制和十六进制转换Visual Basic6.0源程序,VB6.0源代码: 如何实现十进制和十六进制转换Visual Basic6.0源程序,VB6.0源代码

麻烦高手帮忙将VB转换成DElphi: rnPrivate Sub cmdIM_Click()rn Dim objAPI As RTXClient.RTXAPIrn Dim objIM As Objectrn rn Set objAPI = CreateObject("RTXClient.RTXAPI")rn rn On Error GoTo ProcedureName_Errrn Set objIM = objAPI.GetObject("RTXPlugin.IM")rn rn objIM.Call 1, 1002rn rnProcedureName_Err:rn If Err.Description <> "" Thenrn MsgBox "Error # " & CStr(Err.Number) & " " & Err.Descriptionrn Err.Clear ' Clear the error.rn End Ifrn rn Set objAPI = NothingrnEnd Sub

谁能帮我将DELPHI代码转换成ＶC++6.0代码: 本人不懂ＤＥＬＰＨＩ，　有一个源代码相转成ＶＣ＋＋６．０学习一下．那位能帮我转换成ＶＣ＋＋，　谢谢！rn代码如下：rn[url=http://download.csdn.net/source/2713212][/url]rn

ActiveX控件中全局变量的一种用法: 在一个程序中，用到了好几个相同控件的实例，现在希望能通过某种方法来唯一的标志这些控件实例，以便能为每一个控件提供一个正确的配置文件，这是件很容易的事，但问题是并不希望控件增加什么ID，Name之类的属性，而是希望能在控件内部自行的标志。这是我一个朋友问我的。初看了下，感觉这不太可能吧，后来，想到COleControl中有一个AmbientDisplayName，因此建议给这位朋友了。应该说，在VB

如何将vbs脚本用VB封装为DLL，并在vbs脚本中调用: 近来，做关于wincc的项目，用到将vbs脚本封装成DLL，并在vbs脚本里面调用，故而整理如下。一、如何将vbs脚本封装DLL 1. 在VB6.0中新建ActiveX DLL工程。 2.命名

如何把一段逗号分割的字符串转换成一个数组: 题目：如何把一段逗号分割的字符串转换成一个数组？ 代码如下： [java] view plaincopy package com.msdq.code; import java.util.StringTokenizer; /** * 题目：如何把一段逗号分割的字符串转换成一个数组? *

vb.net与c#相互转换工具: vb.net与c#相互转换工具 http://www.developerfusion.co.uk/utilities/convertvbtocsharp.aspx http://www.dotnetspider.com/convert/vb-to-csharp.aspx http://www.dotnetspider.com/convert/CSharp-To-Vb.a

VB封装DLL实例(一): 正　文: 一、 DLL基本概念（一）概念 DLL即动态链接库（Dynamic Link Library），是由可被其它程序调用的函数集合组成的可执行文件模块。DLL不是应用程序的组成部分，而是运行时链接到应用程序中。（二）主要优点： 1、多个应用程序可以共享一个DLL，而且当多个应用程序调用库的同一个函数时，可执行文件中装入的只是该函数的内存地址，从而节省内存和磁盘空间； 2、使

高分求将一段VB代码转换为DELPHI代码: 这是一段VB截屏的代码，其优点是截出的图体积小，压缩率高。求高手帮忙转换一下。rnrn函数的调用rnrnPrivate Function CaptureClient() As PicturernSet CaptureClient = CaptureWindow(Form1.hWnd, True, Form1.ScaleX(FLASH.Left, Form1.ScaleMode, vbPixels), Form1.ScaleY(FLASH.Top, Form1.ScaleMode, vbPixels), Form1.ScaleX(FLASH.Width, Form1.ScaleMode, vbPixels), Form1.ScaleY(FLASH.Height, Form1.ScaleMode, vbPixels))rnEnd Functionrnrnrnrn-------------------------------------------截屏模块--------------------------------------------rnOption Base 0rnrnPrivate Type PALETTEENTRYrn peRed As Bytern peGreen As Bytern peBlue As Bytern peFlags As ByternEnd TypernrnPrivate Type LOGPALETTErn palVersion As Integerrn palNumEntries As Integerrn palPalEntry(255) As PALETTEENTRY ' Enough for 256 colors.rnEnd TypernrnPrivate Type GUIDrn Data1 As Longrn Data2 As Integerrn Data3 As Integerrn Data4(7) As ByternEnd TypernrnPrivate Const RASTERCAPS As Long = 38rnPrivate Const RC_PALETTE As Long = &H100rnPrivate Const SIZEPALETTE As Long = 104rnrnPrivate Type RECTrn Left As Longrn Top As Longrn Right As Longrn Bottom As LongrnEnd TypernrnPrivate Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Long) As LongrnPrivate Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As LongrnPrivate Declare Function GetDeviceCaps Lib "GDI32" (ByVal hDC As Long, ByVal iCapabilitiy As Long) As LongrnPrivate Declare Function GetSystemPaletteEntries Lib "GDI32" (ByVal hDC As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As LongrnPrivate Declare Function CreatePalette Lib "GDI32" (lpLogPalette As LOGPALETTE) As LongrnPrivate Declare Function SelectObject Lib "GDI32" (ByVal hDC As Long, ByVal hObject As Long) As LongrnPrivate 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 LongrnPrivate Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Long) As LongrnPrivate Declare Function GetForegroundWindow Lib "USER32" () As LongrnPrivate Declare Function SelectPalette Lib "GDI32" (ByVal hDC As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As LongrnPrivate Declare Function RealizePalette Lib "GDI32" (ByVal hDC As Long) As LongrnPrivate Declare Function GetWindowDC Lib "USER32" (ByVal hWnd As Long) As LongrnPrivate Declare Function GetDC Lib "USER32" (ByVal hWnd As Long) As LongrnPrivate Declare Function GetWindowRect Lib "USER32" (ByVal hWnd As Long, lpRect As RECT) As LongrnPrivate Declare Function ReleaseDC Lib "USER32" (ByVal hWnd As Long, ByVal hDC As Long) As LongrnPrivate Declare Function GetDesktopWindow Lib "USER32" () As LongrnrnPrivate Type PicBmprn Size As Longrn UType As Longrn hBmp As Longrn hPal As Longrn Reserved As LongrnEnd TypernrnPrivate Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As LongrnPublic Function CreateBitmapPicture(ByVal hBmp As Long, ByVal hPal As Long) As Picturern Dim r As Longrnrn Dim Pic As PicBmprn ' IPicture requires a reference to "Standard OLE Types."rn Dim IPic As IPicturern Dim IID_IDispatch As GUIDrnrn ' Fill in with IDispatch Interface ID.rn With IID_IDispatchrn .Data1 = &H20400rn .Data4(0) = &HC0rn .Data4(7) = &H46rn End Withrnrn ' Fill Pic with necessary parts.rn With Picrn .Size = Len(Pic) ' Length of structure.rn .UType = vbPicTypeBitmap ' Type of Picture (bitmap).rn .hBmp = hBmp ' Handle to bitmap.rn .hPal = hPal ' Handle to palette (may be null).rn End Withrn rn rn rn ' Create Picture object.rn r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)rn rn rn ' Return the new Picture object.rn Set CreateBitmapPicture = IPicrn rnEnd Functionrnrn'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''rn'rn' CaptureWindowrn' - Captures any portion of a window.rn'rn' hWndSrcrn' - Handle to the window to be captured.rn'rn' Clientrn' - If True CaptureWindow captures from the client area of thern' window.rn' - If False CaptureWindow captures from the entire window.rn'rn' LeftSrc, TopSrc, WidthSrc, HeightSrcrn' - Specify the portion of the window to capture.rn' - Dimensions need to be specified in pixels.rn'rn' Returnsrn' - Returns a Picture object containing a bitmap of the specifiedrn' portion of the window that was captured.rn'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''rn''''''rn'rnrn 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 Picturernrn Dim hDCMemory As Longrn Dim hBmp As Longrn Dim hBmpPrev As Longrn Dim r As Longrn Dim hDCSrc As Longrn Dim hPal As Longrn Dim hPalPrev As Longrn Dim RasterCapsScrn As Longrn Dim HasPaletteScrn As Longrn Dim PaletteSizeScrn As Longrn Dim LogPal As LOGPALETTErnrn ' Depending on the value of Client get the proper device context.rn If Client Thenrn hDCSrc = GetDC(hWndSrc) ' Get device context for client area.rn Elsern hDCSrc = GetWindowDC(hWndSrc) ' Get device context for entirern ' window.rn End Ifrnrn ' Create a memory device context for the copy process.rn hDCMemory = CreateCompatibleDC(hDCSrc)rn ' Create a bitmap and place it in the memory DC.rn hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc)rn hBmpPrev = SelectObject(hDCMemory, hBmp)rnrn ' Get screen properties.rn RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS) ' Rasterrn ' capabilities.rn HasPaletteScrn = RasterCapsScrn And RC_PALETTE ' Palettern ' support.rn PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE) ' Size ofrn ' palette.rnrn ' If the screen has a palette make a copy and realize it.rn If HasPaletteScrn And (PaletteSizeScrn = 256) Thenrn ' Create a copy of the system palette.rn LogPal.palVersion = &H300rn LogPal.palNumEntries = 256rn r = GetSystemPaletteEntries(hDCSrc, 0, 256, LogPal.palPalEntry(0))rn hPal = CreatePalette(LogPal)rn ' Select the new palette into the memory DC and realize it.rn hPalPrev = SelectPalette(hDCMemory, hPal, 0)rn r = RealizePalette(hDCMemory)rn End Ifrnrn ' Copy the on-screen image into the memory DC.rn r = BitBlt(hDCMemory, 0, 0, WidthSrc, HeightSrc, hDCSrc, LeftSrc, TopSrc, vbSrcCopy)rnrn' Remove the new copy of the on-screen image.rn hBmp = SelectObject(hDCMemory, hBmpPrev)rnrn ' If the screen has a palette get back the palette that wasrn ' selected in previously.rn If HasPaletteScrn And (PaletteSizeScrn = 256) Thenrn hPal = SelectPalette(hDCMemory, hPalPrev, 0)rn End Ifrnrn ' Release the device context resources back to the system.rn r = DeleteDC(hDCMemory)rn r = ReleaseDC(hWndSrc, hDCSrc)rnrn ' Call CreateBitmapPicture to create a picture object from thern ' bitmap and palette handles. Then return the resulting picturern ' object.rn Set CaptureWindow = CreateBitmapPicture(hBmp, hPal)rnEnd Functionrnrn'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''rn'rn' CaptureScreenrn' - Captures the entire screen.rn'rn' Returnsrn' - Returns a Picture object containing a bitmap of the screen.rn'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''rn'rnPublic Function CaptureScreen() As Picturern Dim hWndScreen As Longrnrn ' Get a handle to the desktop window.rn hWndScreen = GetDesktopWindow()rnrn ' Call CaptureWindow to capture the entire desktop give the handlern ' and return the resulting Picture object.rnrn Set CaptureScreen = CaptureWindow(hWndScreen, False, 0, 0, Screen.Width \ Screen.TwipsPerPixelX, Screen.Height \ Screen.TwipsPerPixelY)rnEnd Functionrnrn'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''rn'rn' CaptureFormrn' - Captures an entire form including title bar and border.rn'rn' frmSrcrn' - The Form object to capture.rn'rn' Returnsrn' - Returns a Picture object containing a bitmap of the entirern' form.rn'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''rn'rnPublic Function CaptureForm(frmSrc As Form) As Picturern ' Call CaptureWindow to capture the entire form given its windowrn ' handle and then return the resulting Picture object.rn Set CaptureForm = CaptureWindow(frmSrc.hWnd, False, 0, 0, frmSrc.ScaleX(frmSrc.Width, vbTwips, vbPixels), frmSrc.ScaleY(frmSrc.Height, vbTwips, vbPixels))rnEnd Functionrnrnrnrn

如何设置WebBrowser控件的默认内核: 原文： 如何设置WebBrowser控件的默认内核 WebBrowser的默认内核是IE6，本文介绍如何设置WebBrowser控件的默认内核有IE8或其他版本。原标题：如何设置IE8的WebBrowser控件(MSHTML) 的渲染模式 IE8 在渲染引擎做了很大的改动，新增加一个标准模式 (Standard Mode)。不少软件都内嵌了IE的WebBrowser控件（也就是M

文章热词推荐系统项目实例及代码机器学习机器学习课程机器学习教程深度学习视频教程
相关热词将c++代码转换成python c# 如何屏蔽一段代码 c#编写一段代码 c#代码转delphi 人工智能鲁班大师 python大师教程

我们是很有底线的