Sun, 01 Feb 2009 00:32:00 GMThttp://blog.csdn.net/SupermanKing/http://blog.csdn.net/SupermanKing/archive/2009/02/01/3856022.aspxhttp://blog.csdn.net/SupermanKing/comments/3856022.aspx0http://blog.csdn.net/SupermanKing/comments/commentRss/3856022.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3856022<br />Visual Basic CodePrivateFunction NMoneyToSMoney ( NMoney AsVariant )   AsString<br />      IfIsNumeric ( NMoney )     =   FalseThen<br />            NMoneyToSMoney   =   "不是数字类型"<br />            ExitFunction<br />      EndIf<br />      Dim BasicDWString As String, BasicDW (   )   AsString<br />      Dim MoneyDWString As String, MoneyDW (   )   AsString<br />      Dim MoneyStr As String, ReturnStr As String, TempStr AsString<br />      BasicDWString   =   "分,角,圆,拾,佰,仟,万,拾,佰,仟,亿,拾,佰,仟,万亿,兆,<img src ="http://blog.csdn.net/SupermanKing/aggbug/3856022.aspx" width = "1" height = "1" />Sun, 01 Feb 2009 08:32:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2009/02/01/3856022.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2009/02/01/3856022.aspxSupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/12/16/3526090.aspxhttp://blog.csdn.net/SupermanKing/comments/3526090.aspx0http://blog.csdn.net/SupermanKing/comments/commentRss/3526090.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3526090<br />Visual Basic Code'API声明<br />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 AsLong )   AsLong<br /><br />PrivateSub Command1_Click (   )  <br />      BitBlt 目标图.hDC,   ( 目标图.Width / 2 - 掩码图.Width / 2 )   / 15,0, 掩码图.Width / 15, 掩码图.Height / 15, 掩码图.hDC, 0,0, vbSrcAnd<br />      BitBlt 目标图.hDC,   ( 目标图.Width / 2 - 掩码<img src ="http://blog.csdn.net/SupermanKing/aggbug/3526090.aspx" width = "1" height = "1" />Tue, 16 Dec 2008 08:19:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/12/16/3526090.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2008/12/16/3526090.aspxSupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/11/02/3207341.aspxhttp://blog.csdn.net/SupermanKing/comments/3207341.aspx0http://blog.csdn.net/SupermanKing/comments/commentRss/3207341.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3207341Visual C++ Code#include <br />#include "StdAfx.h"<br />#include <br />#include <br />#pragma comment(lib,"VFW32.LIB")<br /><br />HWND AVIhWnd = 0;<br />HWND hWnd = 0;<br />HDC hDC = 0;<br />HDC ScenehDC = 0;<br />DWORD AVIWidth = 640;<br />DWORD AVIHeight = 480;<br />DWORD DCColorBits = 32;<br />BYTE BmpByte[1920*480];<br /><br />BITMAPINFO DCitmap;<br />HBITMAP SceneBitmap;<br />HGDIOBJ AboriginaalObject;<br />LPCSTR szClassName;<br />LPCSTR szWindowTitle;<br /><br />long<img src ="http://blog.csdn.net/SupermanKing/aggbug/3207341.aspx" width = "1" height = "1" />Mon, 03 Nov 2008 03:09:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/11/02/3207341.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2008/11/02/3207341.aspxSupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082934.aspxhttp://blog.csdn.net/SupermanKing/comments/3082934.aspx0http://blog.csdn.net/SupermanKing/comments/commentRss/3082934.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3082934Visual C++ Code#include "stdafx.h"#include "stdio.h"#include "windows.h"#include "string.h"#import "C:\Program Files\Common Files\System\ado\msado20.tlb" no_namespace rename("EOF", "adoEOF")HRESULT ComInit();int APIENTRY WinMain(HINSTANCE hInstance,                     HINSTANCE hPrevInstance,                     LPSTR     lpCmdLine,                     int       nCmdShow){    _ConnectionPtr pCn;    _RecordsetPtr pRs;<img src ="http://blog.csdn.net/SupermanKing/aggbug/3082934.aspx" width = "1" height = "1" />Thu, 16 Oct 2008 10:59:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082934.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082934.aspxSupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082913.aspxhttp://blog.csdn.net/SupermanKing/comments/3082913.aspx0http://blog.csdn.net/SupermanKing/comments/commentRss/3082913.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3082913Visual C++ Code//这里是DLL入口#import "C:\WINDOWS\system32\msxml.dll"#import "C:\WINDOWS\system32\msxml2.dll"usingnamespace MSXML2;HRESULT ComInit();#include "stdio.h"int APIENTRY WinMain(HINSTANCE hInstance,                     HINSTANCE hPrevInstance,                     LPSTR     lpCmdLine,                     int       nCmdShow){    ComInit();   //调用下面初始化COM的函数    IXMLHTTPRequestPtr xmlrequest;        //定义变量    xmlreque<img src ="http://blog.csdn.net/SupermanKing/aggbug/3082913.aspx" width = "1" height = "1" />Thu, 16 Oct 2008 10:53:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082913.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082913.aspxSupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082860.aspxhttp://blog.csdn.net/SupermanKing/comments/3082860.aspx0http://blog.csdn.net/SupermanKing/comments/commentRss/3082860.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3082860本例采用雅虎的在线翻译功能为基础，提供中英，中日的在线翻译效果，希望对想了解XMLHTTP对象和UTF-8编码的VB爱好者有所帮助。界面效果如下：以下是窗口的程序代码：Visual Basic CodeOptionExplicitPrivate Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage AsLong, ByVal dwFlags AsLong, ByVal lpMultiByteStr AsLong, ByVal cchMultiByte AsLong, ByVal lpWideCharStr AsLong, ByVal cchWideChar AsLong) AsLongPrivate Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage AsLong, ByVal dwFlags AsLong, ByVal l<img src ="http://blog.csdn.net/SupermanKing/aggbug/3082860.aspx" width = "1" height = "1" />Thu, 16 Oct 2008 10:37:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082860.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082860.aspxSupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082809.aspxhttp://blog.csdn.net/SupermanKing/comments/3082809.aspx0http://blog.csdn.net/SupermanKing/comments/commentRss/3082809.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3082809VB调用VC的DLL大家应该不陌生，而VC如何调用VB编写的DLL这个问题对于搞VB开发的人来说可能却就是个问题。为了广大的VB爱好者向VC进军，我就从VB开发者的角度来说说在VC中调用VB编写的COM组件的方法。我举个例子。 先说说VB开发一个COM组件。 用VB新建一个ActiveX DLL 工程， 然后修改工程名称为 MyVB 再修改默认的类名为 DEMO 然后再向类中添加一个函数作为测试用，如： Visual Basic CodePrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"   ( ByVal lpBuffer As String, nSize AsLong )   AsLong'取得当前系统登陆的用户名称PublicFunction GetMyName (   )   AsString        Dim UserName AsString<img src ="http://blog.csdn.net/SupermanKing/aggbug/3082809.aspx" width = "1" height = "1" />Thu, 16 Oct 2008 10:25:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082809.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2008/10/16/3082809.aspxSupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/09/28/2992218.aspxhttp://blog.csdn.net/SupermanKing/comments/2992218.aspx0http://blog.csdn.net/SupermanKing/comments/commentRss/2992218.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2992218这么久了都没放出过什么比较好的程序出来，让大家失望了。前段时间无聊搞了个类，今天拿出来和大家分享一下。主要是实现在VB中动态调用API函数的类，才疏学浅，见笑了。<img src ="http://blog.csdn.net/SupermanKing/aggbug/2992218.aspx" width = "1" height = "1" />Sun, 28 Sep 2008 22:35:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/09/28/2992218.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2008/09/28/2992218.aspxSupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/09/22/2959044.aspxhttp://blog.csdn.net/SupermanKing/comments/2959044.aspx5http://blog.csdn.net/SupermanKing/comments/commentRss/2959044.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2959044Visual Basic CodePrivateSub Form_Load (   )        Text1.Tag   =   0      Text1_LostFocusEndSubPrivateSub Text1_GotFocus (   )        Text1.Text   =   Text1.Tag      Text1.SelStart   =   0      Text1.SelLength   =   Len ( Text1.Text )  EndSubPrivateSub Text1_KeyPress ( KeyAscii AsInteger )        If KeyAscii > =   Asc ( "0" )   And KeyAscii <img src ="http://blog.csdn.net/SupermanKing/aggbug/2959044.aspx" width = "1" height = "1" />Mon, 22 Sep 2008 10:39:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/09/22/2959044.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2008/09/22/2959044.aspxSupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/09/20/2956211.aspxhttp://blog.csdn.net/SupermanKing/comments/2956211.aspx0http://blog.csdn.net/SupermanKing/comments/commentRss/2956211.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2956211Visual Basic Code<img src ="http://blog.csdn.net/SupermanKing/aggbug/2956211.aspx" width = "1" height = "1" />Sun, 21 Sep 2008 02:44:00 +0800SupermanKinghttp://blog.csdn.net/SupermanKing/archive/2008/09/20/2956211.aspx#Feedbackhttp://blog.csdn.net/SupermanKing/archive/2008/09/20/2956211.aspxSupermanKing