ÈçºÎ½«VBAÓï¾ä·Òë³ÉdelphiÓï¾ä
Sub aSmpLine()
Sheet1.Shapes.AddLine(100, 100, 180, 150).Name = "Line1"
With [line1].ShapeRange.Line
.Weight = 3
.DashStyle = msoLineSolid
.Style = msoLineThinThin
.Visible = True
.ForeColor.SchemeColor = 10
.BackColor.RGB = RGB(255, 255, 255)
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
End With
MsgBox "Will deleted!"
[line1].Delete
End Sub
Çë°ï潫ÒÔÉÏEXCELµÄVBAÓï¾ä·Òë³ÉDelphiÓï¾ä£¬¼±Óã¬Ð»Ð»£¡
û·¨Ö±½Ó·Ò룬¾ÍÊÇ»Ïß»¼ýÍ·Âð£¬Äã×Ô¼ºÐ´¾ÍÊÇÁË£¬»¹ÓÐʲôºÃ·ÒëµÄ
±¾ÈËÊÇdelphiÐÂÊÖ£¬²»ÖªµÀÔõôд¡£Çë½Ì¸öÎÊÌ⣺sh:=sheet.shapes.addline(288,14.25,720,14.25);ÏßÎÒÊÇ»³öÀ´ÁË£¬µ«ÎÒÒªÈçºÎ¸ÄΪ¼ýÍ·ÄØ£¿ÈçºÎ¶¨ÒåÏߵĴÖÏ¸ÄØ£¿ÏßµÄÑÕÉ«£¿
²»¶®µÄÈË·¹ý£¬delphi ÖеÄOLE²Ù×÷ÏÂEXCEL
ÎÒ×Ô¼º¸ã¶¨ÁË¡£
²Î¿¼´úÂ룺
uses Comobj;
var
vExcelApp: Variant;
begin
vExcelApp := CreateOleObject('Excel.Application');
// ÏÔʾExc
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
ÎÒÔõô²éÁËÄÇô¶à˵ÊÇÄÜÆÆ½âµÄ£®½á¹û¶¼²»ÐУ®ÄãÃÇÓÐûÓÐѽ£®¸øÎÒ¸öÏêϸµÄ½â¾ö·½°¸£®ÏÂÔØÄĸö°æ±¾£®ÆÆ½âÎļþ£¬»¹ÓÐ×¢²áÂë
²»Çå³þ
ÏÂÔØ¹Ù·½¹âÅ̾µÏñ£¬ÓÃdelphidistiller1.85ÆÆ½â
µ½www.2ccc.comÉÏÈ¥ÕÒdelphidis ......