ÀûÓÃVB×ÔÖÆOCX¿Ø¼þ
¡¡¡¡Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØÎ»,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷.ͬʱOCX ¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ³£³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµÄÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ×÷OCX¿Ø¼þµÄ²½Ö裺
Ò»£ºÐ½¨OCX ¡¡¡¡´ò¿ªVB 5.0Ñ¡Ôñн¨¹¤³ÌÔÚ¶Ô»°¿òÖÐÑ¡ÔñActiveX ¿Ø¼þ(Èçͼһ(map1.gif))´ò¿ªºó»á¼ûÒ»¿ÕµÄÎĵµÕâ¾ÍÊÇ OCX¿Ø¼þµÄ³õʼ½çÃæ¡£Ïë¿´Ò»¿´¿ÕOCX¿Ø¼þµÄЧ¹ûÂð?Ñ¡Ôñ“Ìí¼Ó¹¤³Ì”Ñ¡Öбê×¼EXE£¬ÕâʱÄã¾Í¿ÉÒÔÏñµ÷ÓÃÆäËü¿Ø¼þÒ»ÑùÔÚ×ó±ßµÄ¹¤¾ßÀ¸ÀïÑ¡Ôñ¸Õ²Åн¨µÄOCX¿Ø¼þͼ±ê·ÅÔÚ±ê×¼µÄEXEÎĵµÖп´Ò»¿´ÓÐʲôЧ¹û!(ʲôҲûÓÐ!) ×ÔÈ»ÒòΪ¸Õ²ÅµÄOCXÎĵµÊǿյÄÂï(·Ï»°Ì«¶à£¬Êý¸ö̵ÓÛÏòÎÒ·ÉÀ´)!
¶þ£º´´½¨½çÃæ
¡¡¡¡Ò»°ãÎÒÃÇÓÃVB´´½¨OCX¿Ø¼þ¶¼ÊÇÔÚÎÒÃǵĿؼþÀïÌí¼ÓÆäËüµÄ¿Ø¼þÀ´×éºÏ³ÉÒ»¸öÍêÕûµÄ¿Ø¼þ£¨Ò²¿ÉÒÔÈÃËüÖ»Íê³ÉijÖÖËã·¨£©±ÈÈ磺Äã¿ÉÒÔÔÚÉÏÃæÌí¼ÓÒ»°´Å¥¡¢±à¼¿òÕâʱÄãÔÙÓõÚÒ»²¿µÄ·½·¨¿´Ò»¿´Ð§¹û£¬ÊDz»ÊǿؼþÉ϶àÁËÒ»¸ö°´Å¥ºÍÒ»¸ö±à¼¿ò¡£
Èý£ºOCXÊôÐÔ
¡¡¡¡Ò»¸öOCX¿Ø¼þÓÐÐí¶àµÄÊôÐÔ£¬±ÈÈç¿Ø¼þ±³¾°ÊÇ·ñ͸Ã÷£¨BackStyle£©£¬¿Ø¼þÊÇ·ñ¿ÉÒÔ»ñµÃ½¹µã (CanGetFocus)µÈ¡£ÕâЩÊôÐÔ¶¼¿ÉÒÔÔڿؼþµÄ“ÊôÐÔ¿ò”ÖÐÕÒµ½¡£
ËÄ£ºÌí¼Óʼþ
¡¡¡¡Ò»¸ö¿Ø¼þÓкܶàʼþÈ磺Click¡¢MouseDown¡¢MouseUp¡¢MouseMoveµÈ¡£Òª´¥·¢ÕâЩʼþ¶¼ÐèÒªÄã¼ÓÈë´úÂë¡£ÔڿؼþµÄÉùÃ÷´¦¼ÓÈëPublic Event Click()¾Í±íÃ÷¸Ã¿Ø¼þÓÐÒ»“Click”ʼþ¡£×Ô¼º±àдµÄ¿Ø¼þÓÐʲôʼþ¾ÍÔÚÉùÃ÷´¦¼Ó¼¸Ìõʼþ¡£¹ØÓÚ´¥·¢Ê¼þÊÇʹÓÓRaiseEvent”Óï¾äÀ´Íê³ÉµÄÈ磺RaiseEvent ʼþÃû£¨²ÎÊý£©¡£ Î壺Óû§ÊôÐÔ
¡¡¡¡Ò»¸ö¿Ø¼þÓ¦ÓÐÐí¶àÊôÐÔ¹©Óû§ÉèÖÃÈ磺¿Ø¼þµÄ±³¾°É«¡¢¿Ø¼þÒªÏÔʾµÄͼÐεȡ£ËüÃÇͨ³£ÓÃProperty GetºÍ Property LetÁ½ÌõÓï¾äÀ´Íê³É¡£Ç°Õß±íʾ¸øÓû§ÏÔʾһ¸öÊôÐÔµÄÖµ£¬ºóÕß±íʾÓû§ÉèÖÃÒ»¸öÊôÐÔµÄÖµ¡£ Áù£º±£´æÊôÐԺͶÁÈ¡ÊôÐÔ
¡¡¡¡µ±ÊôÐÔ±»Óû§¸ü¸ÄºóÐèÒª½«¸ÃÊôÐÔÖµ±£´æ£¬ÒÔ±ã¿Ø¼þÔËÐÐʱ¶ÁÈ¡¸ü¸ÄºóµÄÊôÐÔÖµ¡£ËüÃÇ·Ö±ðÓà ReadPropertyºÍWritePropertyÁ½ÖÖ·½·¨À´Íê³É¡£Ç°Õß±íʾ¶Áȡһ¸öÊôÐÔÖµ£¬ºóÕß±íʾдÈëÒ»¸öÊôÐÔÖµ¡£
¡¡¡¡ºÃÁËÒ»¸ö¼òµ¥µÄOCX¿Ø¼þÖÆ×÷·½·¨´ó¸Å¾ÍÐèÒªÒÔÉϼ¸²½¾Í¿ÉÍê³É¡£ÏÂÃæ±¾È˽«±àдһ¸ö¼òµ¥µÄOCX¿Ø¼þ¹©´ó¼Ò²Î¿¼¡£´Ë¿Ø¼þµÄ¹¦ÄÜÊÇÔڿؼþÖÐÏÔʾһ¸öÔ²£¬µ±Êó±êÒÆµ½¿Ø¼þÉϵÄʱºò¿Ø¼þÉϵÄÔ²±ã»áÔÚÊó
Ïà¹ØÎĵµ£º
ÔÚ¿ª·¢IP-MACɨÃè¼àÊÓÆ÷ʱ£¬ÉèÖÃÁË¿ª»ú×Ô¶¯ÔËÐУ¬µ«Êǵ±WINDOWSÆô¶¯ºó£¬³ÌÐòÔËÐкóÈ´´ò¿ª´°ÌåÁË£¬²»ÊÇ×îС»¯ÔËÐеġ£ÕâÔõô°ìÄØ£¿ÓÚÊÇÏëµ½¼ÓÒ»¸ö²ÎÊý¸ø³ÌÐòÆô¶¯Ê±£¬µ«²»ÖªµÀÔõôʵÏÖ£¬½á¹û·¢ÏÖVBÖÐÓÐcommand£¬ÊÇ¿ÉÒÔ½ÓÊܲÎÊýµÄ¡£Ö±½Ó£ºAAA.EXE xxx,
ÔÚ³ÌÐòÖÐÓÃÒ»¸ö±äÁ¿µÃµ½Õâ¸ö²ÎÊý£¬ÄǾͿÉÒÔÁË¡£×ö·¨£º
1¡¢ÔÚ×¢²á±í×ÔÆô¶ ......
Option Explicit
Function Delete3(Arr As Variant) As Variant
Dim i As Integer
For i = LBound(Arr) To UBound(Arr)
If i > UBound(Arr) Then Exit For
If Arr(i) = 3 Then
Do
Dim j As Integer
For j = i To UBound(Arr) - 1
......
'**************************¶ÁͼƬÎļþ**************************************
Sub GetPicfromDB(cn As ADODB.Connection)
On Error Resume Next
Dim ......
½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
ΪÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......
¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......