ÈçºÎʹÓÃVBÖÆ×÷OCX¿Ø¼þ
Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØλ,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷¡£Í¬Ê±OCX¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ²Ø³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµØÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓã¬Í¬Ê±»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!ÏÂÃæÁгöÖÆ×÷OCX¿Ø¼þµÄ²½Ö裺
Ò»£ºÐ½¨OCX
´ò¿ªVB 5.0Ñ¡Ôñн¨¹¤³ÌÔÚ¶Ô»°¿òÖÐÑ¡ÔñActiveX¿Ø¼þ£¬´ò¿ªºó»á¼ûÒ»¿ÕµÄÎĵµ£¬Õâ¾ÍÊÇ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¿Ø¼þÖÆ×÷·½·¨´ó¸Å¾ÍÐèÒªÒÔÉϼ¸²½¾Í¿ÉÍê³É¡£ÓÐÐËȤµÄÅóÓѲ»·ÁÒ»ÊÔ¡£
Ïà¹ØÎĵµ£º
VBÎı¾¼ÓÃÜ ÌرðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâƪÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆѧÓ빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......
ÔÚAsp.netÖÐʵÏÖÎļþµÄÉÏ´«¹¦ÄÜ£¬ÊǷdz£¼òµ¥µÄÒ»¼þÊÂÇ飬ֻÐèÒªÀûÓÃ΢ÈíÌṩµÄFileUpload¿Ø¼þ¼´¿ÉÇáËÉʵÏÖ¡£
LargeFileUpload.aspx´úÂëÈçÏÂ
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="LargeFileUpload.aspx.vb"
Inherits="LargeFileUpload" %>
<!DOCTYPE html PUBLIC "-//W3C/ ......
Function crypt(Action As String, Key As String, Src As String) As String
'Action
' E encrypts, D decrypts,
'Key is a unique string needed to en/decrypt (either
' hardcode or setup something for the user to enter.
'Src is the string to be en/decrypted.
On Error GoTo errHandl ......
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Reg Demo"
ClientHeight = 6570
ClientLeft = 45
ClientTop = 435
ClientWidth = 7695
LinkTopic = "Form1"
MaxButton = 0 'False
Min ......