¡¾VB½çÃæ¡¿×ÓÀ໯ÖØ»æ·ÂQQ2009½¥±ä°´Å¥(Ä£¿é)
'*************************************************************************
''----------------------------------------------------------------------
'**ϵͳÃû³Æ£º×ÓÀ໯ÖØ»æ·ÂQQ2009½¥±ä°´Å¥
'**Ä£¿éÃèÊö£º
'**Ä£ ¿é Ãû£ºForm1
'**´´ ½¨ ÈË£ºgvu
'**×÷ÕßÍøÕ¾£ºhttp://hi.baidu.com/googlevipuser
'**E-MailµØÖ·: owhao@126.com
'**ÈÕ ÆÚ£º2009-09-01 08:09:12
'**ÐÞ ¸Ä ÈË£º
'**ÈÕ ÆÚ£º
'**Ãè Êö£º
'**°æ ±¾£ºV1.0.0
'*************************************************************************
'
' MSkinButton.Attach Me.hWnd
' MSkinButton.Detach Me.hWnd
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type RECTW
Left As Long
Top As Long
Right As Long
Bottom As Long
Width As Long
Height As Long
End Type
Private Type PAINTSTRUCT
hDC As Long
fErase As Long
rcPaint As RECT
fRestore As Long
fIncUpdate As Long
rgbReserved(32) As Byte
End Type
Private Type TRACKMOUSEEVENTTYPE
cbSize As Long
dwFlags As Long
hwndTrack As Long
dwHoverTime As Long
End Type
Private Type WINDOWPOS
hWnd As Long
hWndInsertAfter As Long
X As Long
Y As Long
cx As Long
cy As Long
Flags As Long
End Type
Private Type NCCALCSIZE_PARAMS
rgrc(0 To 2) As RECT
lppos As Long
End Type
Private Enum DTSTYLE
DT_LEFT = &H0
DT_TOP = &H0
DT_CENTER = &H1
DT_RIGHT = &H2
DT_VCENTER = &H4
DT_BOTTOM = &H8
DT_WORDBREAK = &H10
DT_SINGLELINE = &H20
DT_EXPANDTABS = &H40
DT_TABSTOP = &H80
DT_NOCLIP = &H100
D
Ïà¹ØÎĵµ£º
ʹÓÃVC±àдVBʹÓÃDLL
Ò»¡¢ÔÚº¯Êý¶¨ÒåÇ°±ØÐë¼ÓÉÏextern "c"£¬_stdcall¹Ø¼ü×Ö¡£
extern "C" int _stdcall Sum(int x,int y)
{
return x+y;
}
¶þ¡¢DLLµÄ.defÎļþÖбØÐë¼ÓÉÏÈë¿Úº¯Êý
EXPORTS
sample @1
  ......
¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......
ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ
PMP ¹Ø¾¢ËÉ
¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
¶ÁÈ¡¡¢Ð޸Ķþ½øÖÆÎļþÈÔÊǴ󲿷ֱà³ÌÓïÑԵĻù±¾¿ª·¢¼¼ÄÜ¡£¿ÉÒÔÌá¸ß´¦ÀíÎļþЧÂÊ£¬Ö÷ÒªÓ¦ÓÃÔÚͨÐÅ¡¢½»»»Êý¾ÝµÈ·½Ãæ¡£
'open filena ......
ÌâÄ¿£ºÒ»¼ÒСÐͺ½¿Õ¹«Ë¾¸Õ¸Õ¹ºÂòÁËһ̨¼ÆËã»ú£¬ÒÔʹÓÃеĻúƱ×Ô¶¯Ô¤¶©ÏµÍ³£¬Õâ¼Ò¹«Ë¾ÒªÇóÎÒÃÇ¿ª·¢Õâ¸öÐÂϵͳ¡£ÎÒÃÇÐèÒª±àдһ¸öÓ¦ÓóÌÐò£¬¶ÔÕâ¼Òº½¿Õ¹«Ë¾Î¨Ò»µÄÒ»¼Ü·É»ú£¨ÈÝÁ¿Îª10¸ö×ù룩µÄÿ¸öº½°à·ÖÅä×ùλ¡£Õâ¸öÓ¦ÓóÌÐòÓ¦¸ÃÊäÈëÏÂÃæÕâЩѡÏÇëÊäÈë1Ñ¡ÔñÍ·µÈ²ÕºÍÇëÊäÈë2Ñ¡Ôñ¾¼Ã²Õ¡£Èç¹ûÓû§ÊäÈë1£¬Ó¦ÓóÌÐòÓ¦¸Ã·ÖÅäÒ ......
VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
Âíά·å
(maweifeng@263.net
)
1.
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍÏ°¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1. ......