Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÔÙ̸ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥

'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºButton.ctl
'* ³ÌÐò¹¦ÄÜ£ºÍ¸Ã÷¸¡¶¯°´Å¤
'* ×÷Õߣºlyserver£¬×îºóÐÞ¸ÄÈÕÆÚ£º2009Äê11ÔÂ
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************** *

Option Explicit
'----------------------------------------------------------------------
' API ÉùÃ÷
'----------------------------------------------------------------------
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function SetRect Lib "user32" (ByRef lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function OffsetRect Lib "user32" (ByRef lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Private Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, ByRef qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
Private Const BDR_RAISED = &H5
Private Const BDR_SUNKEN = &HA
Private Const BDR_RAISEDINNER = &H4
Private Const BDR_SUNKENINNER = &H8
Private Const BDR_RAISEDOUTER = &H1
Private Const BDR_SUNKENOUTER = &H2
Private Const BF_RECT = &HF
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, ByRef lpRect As RECT, ByVal wFormat As Long) As Long
Private Const DT_CENTER = &H1
Private Const DT_VCENTER = &H4
Private Const DT_TOP = &H0


Ïà¹ØÎĵµ£º

VBÈçºÎÉú³ÉWINDOW XP·ç¸ñ½çÃ棡

 ËäÈ»WindowsXPµÄ½çÃæ·Ç³£»ªÀö¡£µ«ÊÇÁîÈËÒź¶µÄÊÇ£¬ÎÒÃÇÓÃVBдµÄ³ÌÐò³ýÁ˲˵¥ºÍ´°¿ÚµÄÍâ¹ÛÊÇXP·ç¸ñÍ⣬ÆäËû¿Ø¼þ»¹ÊÇÒ»Èç¼ÈÍùµÄÊÇÆÕͨ·ç¸ñ¡£ÎÒÏ룬ÓеijÌÐòÔÚXPÏÂÓÐXPµÄ·ç¸ñ£¬VBÒ²Ò»¶¨Óа취ʵÏÖXPµÄ·ç¸ñ¡£ºóÀ´±ÊÕßÔÚÍøÉÏ¿´µ½Ò»Æª½éÉÜXMLµÄÎÄÕ£¬ÓÖÔÚÍøÉÏÕÒµ½ÁËһƪʵÏÖXP·ç¸ñµÄÎÄÕ£¬¾­¹ý×Ô¼ºµÄʵ¼ù£¬ÖÕÓÚÕÒµ½ÁËVB³ÌÐò ......

[VB]»ñÈ¡SYSKEY

ºÜ¾ÃÒÔÇ°µÄÒ»¸ö´úÂëÁË¡£¡£¡£¡£¡£ÄÇʱ»¹³ÁÃÔÓÚÑо¿WindowsXPµÇ¼ÃÜÂëµÄ¼ÆËã·½·¨¡£¡£¡£¡£
ÏÈн¨Ò»¸öVB¹¤³Ì£¬»­Ò»¸öCommandButton£¬¸ÄÃûΪcmdGetSYSKEY£¬»­Ò»¸öTextBox£¬¸ÄÃûΪtxtSYSKEY£¬È»ºóÕ³ÌùÏÂÃæµÄ´úÂ룬ÔËÐм´¿É£¬ÔÚWindowsXP SP2 Build 2600 + VB6.0 SP6ϲâÊÔͨ¹ý£¬»ñµÃµÄSYSKEYÓëCain&Abel v4.9.6Ò»Ö¡£¡£¡£¡£ ......

vb class Property Get¡¢Property Let ʹÓÃ

vb class Property Get¡¢Property Let ʹÓÃ
<%
'ÔÚ Class ¿éÖУ¬³ÉԱͨ¹ýÏàÓ¦µÄÉùÃ÷Óï¾ä±»ÉùÃ÷Ϊ Private(˽ÓгÉÔ±£¬Ö»ÄÜÔÚÀàÄÚ²¿µ÷ÓÃ) »ò Public(¹«ÓгÉÔ±£¬¿ÉÒÔÔÚÀàÄÚÍⲿµ÷ÓÃ) ¡£
'±»ÉùÃ÷Ϊ Private µÄ½«Ö»ÔÚ Class ¿éÄÚÊǿɼûµÄ¡£±»ÉùÃ÷Ϊ Public ²»½öÔÚ Class ¿éµÄÄÚ²¿ÊǿɼûµÄ£¬¶Ô Class ¿éÖ®ÍâµÄ´úÂëÒ²Êǿɼûµ ......

vbÔÚÊý¾Ý¿âÖд¢´æͼƬ²¢ÏÔʾ³öÀ´

 '**************************¶ÁͼƬÎļþ**************************************  
  Sub   GetPicfromDB(cn   As   ADODB.Connection)  
          On   Error   Resume   Next  
          Dim   ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ