pb調ÓÃVB寫µÄDLL·½·¨
1¡¢ÏÈ°ÑVB±àÒëºÃµÄDLLÎļþ·Åµ½ÏµÍ³µÄSYSTEM32Îļþ¼ÐÏÂ
2¡¢ÓÃregsvr32×¢²áÕâ¸öDLLÎļþ
3¡¢Pbϵ÷ÓÃ
oleobject ole_1
ole_1=create oleobject
long ll_ret
ll_ret=ole_1.connecttonewobject( 'add.addstring ')//ÆäÖÐaddΪVBµÄ¹¤³ÌÃû£¬addstringΪVBµÄÀàÄ£¿éÃû
string ls_message,ls_first,ls_second
ls_first= "ÄãºÃ "
ls_second= ",ÎÒÊÇÐêÐêÍÃ! "
ls_message=ole_1.add(ls_first,ls_second) //Õâ¸öaddΪvbÖÐÉùÃ÷µÄº¯Êý
messagebox( ' ',ls_message)
Ïà¹ØÎĵµ£º
Õ⼸ÌìÒ»Ö±ÔÚ×öÒ»¸öСµÄ¹¤³Ì,×öÒ»¸öÎı¾ÔĶÁÆ÷,ÏÖÔÚ×öµÄÒѾÓÐÈý·ÖÖ®¶þÁË,´ÓÖÐѧϰµ½Á˺ܶà,¶ÔÎÒÃÇÒÔǰѧϰµÄ³É¹ûÓÐÁ˸üÉî¿ÌµÄÀí½â.
VBÊÇÒ»ÃÅÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼Æ,ÎҾʹÓÃæÐÔ¶ÔÏóµÄ½Ç¶È¶ÔËû×öÒ»´Î×ܽá
°ÑVBÖÐËùÓеÄÊý¾Ý,±äÁ¿,¿Ø¼þ¶¼¿´×öÒ»¸ö¶ÔÏó
ÎÒÃÇËùÓеIJÙ×÷¶¼ÊǶԶÔÏóµÄ²Ù×÷,ÈöÔÏóÈ¥Ö´ÐÐijһ¸ö¹¦ÄÜ
´ó¼ÒÏÈ¿´Ò»¸öÀý× ......
'¹¤³Ì-->ÒýÓà Ìí¼Ó Microsoft activex data objects 2.5 library
'¹¤³Ì-->²¿¼þ Ìí¼Ó Microsoft flexgrid control 6.0
Dim Cnn As New ADODB.Connection
Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access ......
½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò
ÐèÒªVBAPIº¯Êý£º
FindWindow←Ñ°ÕÒ´°¿ÚÁбíÖеÚÒ»¸ö·ûºÏÖ¸¶¨Ìõ¼þµÄ¶¥¼¶´°¿Ú
GetWindowThreadProcessId←»ñÈ¡ÓëÖ¸¶¨´°¿Ú¹ØÁªÔÚÒ»ÆðµÄÒ»¸ö½ø³ÌºÍÏ̱߳êʶ·û
--------------------------------------------------------------------------------------------------------------- ......
×Ô¼ºÕûÁË4¸öÄ¿±êÓÃÓÚɨÃè¡£ÒÔºó¿ÉÄÜ¿ÉÒÔ×Ô¼ºÌí¼Óɾ³ý£¨Ð´µ½Õâ¶ùºöÈ»¾õµÃC++µÄvector²»ÄÜɾ³ýÔªËØ£¨·´ÕýC++ PrimerÀïĿǰûÕÒµ½£©ÈÃÈ˺ÜÓôÃÆ£©
Form1£¬Ðë¼ÓÒ»¸öTimer1
Dim CAngle As Integer 'Current Angle (Not Class Angle)
Private Sub Form_Load() '³õʼ»¯
CAngle = 0
Me.BackColor = vbBlack
......
ÕâÀïÊÇ ÀûÓÃreplace º¯Êý ÔÚvbÖÐʵÏÖ Ïû³ý¿ÕÐеÄÒ»¸ö³ÌÐò
ÕâÀïµÄÈÝÆ÷ÊÇrichtext
¿ÉÒÔÀ©³äµ½ÆäËûÈÝÆ÷ ºÍÆäËû×Ö·û ÓÃÓÚ±àд²éÕÒÌæ»»¹¦ÄÜ
'--------------------------------------------------------------------------------------------
' Ïû³ý¿ÕÐÐ , ÀûÓÃinstrº¯Êý, ËÑË÷Îı¾ÀïµÄvbcrlf(»Ø³µ + »»ÐÐ), Á½¸ö»Ø³µÌæ»» ......