Delphiµ÷ÓÃExcelµÄÆäËü¼¼ÇÉ
1>ÏòÖ¸¶¨µÄÇøÓò»òÐÎ×´Ìí¼Ó³¬Á´½Ó¡£
Óï·¨
±í´ïʽ.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
±í´ïʽ Ò»¸ö´ú±í Hyperlinks ¶ÔÏóµÄ±äÁ¿¡£
²ÎÊý
Ãû³Æ±ØÑ¡/¿ÉÑ¡Êý¾ÝÀàÐÍÃèÊö
Anchor
±ØÑ¡
Object
³¬Á´½ÓµÄλÖ᣿ÉΪ Range »ò Shape ¶ÔÏó¡£
Address
±ØÑ¡
String
³¬Á´½ÓµÄµØÖ·¡£
SubAddress
¿ÉÑ¡
Variant
³¬Á´½ÓµÄ×ÓµØÖ·¡£
ScreenTip
¿ÉÑ¡
Variant
µ±Êó±êÖ¸ÕëÍ£ÁôÔÚ³¬Á´½ÓÉÏʱËùÏÔʾµÄÆÁÄ»Ìáʾ¡£
TextToDisplay
¿ÉÑ¡
Variant
ÒªÏÔʾµÄ³¬Á´½ÓµÄÎı¾¡£
·µ»ØÖµ
Ò»¸ö Hyperlink ¶ÔÏó£¬Ëü´ú±íеij¬Á´½Ó¡£
˵Ã÷
Ö¸¶¨ TextToDisplay ²ÎÊýʱ£¬Îı¾±ØÐëÊÇ×Ö·û´®¡£
ʾÀý
±¾Ê¾ÀýÏòµ¥Ôª¸ñ A5 Ìí¼Ó³¬Á´½Ó¡£
Visual Basic for Applications
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="http://example.microsoft.com", _
ScreenTip:="Microsoft Web Site", _
TextToDisplay:="Microsoft"
End With
±¾Ê¾ÀýÏòµ¥Ôª¸ñ A5 Ìí¼ÓÒ»¸öµç×ÓÓʼþ³¬Á´½Ó¡£
Visual Basic for Applications
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="mailto:someone@example.com?subject=hello", _
ScreenTip:="Write us today", _
TextToDisplay:="Support"
End With
Ïà¹ØÎĵµ£º
Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨
FindWindow(
lpClassName, {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND; {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWin ......
µÚÒ»ÖÖ·½·¨£º
µÚÒ»²½£º ÐÞ¸ÄÊôÐÔ
1¡¢kind -> dtktime Ò²¿ÉÒÔÊÇdtkdate µ«ÊÇÔÚÓÃdtkdateµÄʱºòÐèÒª½«datemodeÊôÐÔÐ޸ijÉdmUpDown
2¡¢parseinput -> true
µÚ¶þ²½£ºÔÚonUserInputʼþÖÐдһ¾ä´úÂë
DateTimePicker1.DateTime:=DateAndTime;
×¢£ºÒÔÉÏ·½·¨ËäÈ»¿ÉÒԴﵽĿµÄ£¬µ ......
ÎÒÔÚÎÄÕ¡¶DelphiͼÏñ´¦Àí -- ͼÏñ¾í»ý¼°¸ß˹ģºý¡·ÖУ¬½éÉÜÁËÀûÓÃͨÓõÄͼÏñ¾í»ý¹ý³Ì¶ÔͼÏñ½øÐиß˹ģºý´¦Àí£¬Æä´¦ÀíЧ¹û»¹²»´í£¬´¦ÀíСÐÍͼÏñʱ¸Ð¾õÒ²»¹ÐУ¬µ«ÊÇ´¦Àí½Ï´óͼÏñʱµÄËÙ¶È»¹ÊÇÏÓÂý£¬ÔÚÎÒµÄP4 2.8G¡¢1GÄÚ´æµÄ»úÆ÷É϶ÔǧÍòÏñËØÍ¼Ïñ½øÐÐQ=3£¬R=5µÄ¸ß˹ģºý´¦Àí£¬²»°üÀ¨Í¼Ïñ×°ÔØºÍǰÆÚÊý ......
http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX ºÍ Web
ÔÚWindows ²Ù×÷ϵͳÏ£¬ÓÐÒ»¸öÖØÒªµÄ»úÖÆ£¬¾ÍÊÇOLE £¬¾ÍÊÇ¿ÉÒÔÈÃij
¸öÓ¦ÓóÌÐò£¨OLE Controller£©·ÃÎÊÆäËüÓ¦ÓóÌÐò£¨OLE Server£©ËùÌṩµÄ
¹¦ÄÜ£¬ÕâÑù×öµÄºÃ´¦ÊÇ£¬Èç¹ûÒѾÓÐÁËÍê³ÉijÏÄܵijÌÐò£¬Äã¾Í²»±ØÔÙΪ
ijÏÄܱàÐ´ÌØ¶¨ ......