VBÓëWindows API ¼äµÄºô½Ð¼¼ÇÉ
Ò»°ã»áʹÓÃWINDOW APIµÄÇé¿ö£¬ÊµÔÚÊÇÒòΪVB±¾Éí²»ÌṩijЩ¹¦ÄÜ£¬µ«ÊÇ£¬³ÌʽËù
ÐèÓÖ²»µÃ²»È»£¬ÀýÈ磺¶ÁÈ¡RegistryÄÚµÄ×Ê
ÁÏ£¬VBÖ»ÌṩSaveSetting¡¢Getsetting µÈ
ϵÁеÄÖ¸Áµ«ÊÇËüÖ»ÄܶÁÈ¡Ìض¨µØÇøµÄÖµ£¬Òª¶Á¡¢É¾¡¢¸ü¶¯ÆäËûÇøÓòµÄֵʱ£¬¾ÍÎÞ
·¨
ʹÓá£ÔÙÈ磺×Ðϸ¿´Ò»¿´Combo BoxµÄEvents£¬ÆäÖÐûÓÐMouseMove£¬µ«ÕâÊÇÎÒÃǾ³£ÓÃ
ÉϵÄÒ»¸öEvent£¬ÄǸÃÈç
ºÎÄØ£¿Êǵģ¬ÄÇÖ»ÓÐ͸¹ýWinodow API¡£¶øVBºô½ÐWindow APIÒ»
°ã²»¶¼Ê¹ÓÃAPI¼ìÊÓÔ±£¬Ö±½Ó½«Ïà¶ÔÓ¦µÄAPI COPYµ½
ÎÒÃǵijÌʽÖоͺã¬ÄÇ»¹ÓÃʲ÷á¼¼
ÇÉÂð£¿Æäʵ²»È»£¬ÒòΪVB×ÊÁϸñʽµÄÎÊÌ⣬ÓÖ¼ÓÉÏVB±¾ÉíûÓÐÖ¸±ê£¬ÔÚÐí¶àµØ·½ÐèÒªÒ»
ЩС¼¼ÇɲÅÄܽâ¾ö£¬
¶øÇÒÎÒÃǾ³£ÒòÓ¦²»Í¬µÄÐèÇ󣬽«API ¼ìÊÓÔ±µÄÐû¸æCOPY¹ýÀ´ááÔÙ
×öһЩÐ޸ģ¬×îÖØÒªµÄ£¬Èç¹ûÓÐÒ»¸ö.DLLµµ£¬Ëü²»ÔÚAPI ¼ìÊÓÔ±Öж¨
Ò壬ÄÇʱ£¬¾ÍÖ»ÓÐ
×Ô¼ºÏë°ì·¨À²¡£
Ò»¡¢ ÕûÊý²ÎÊý
Windows API32
λԪVB
============================== =============================
Int, INT ByVal Long
UNIT, DWORD ByVal Long
BOOL ByVal Long ture
ʱΪ1
WPARAM, LPARAM, LRESULT ByVal Long
Handle(Èç
HKEY) ByVal Long
WORD, ATOM, SHORT &nb
Ïà¹ØÎĵµ£º
'ÔÚÒýÓÃÀïÌí¼ÓADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=ÃÜÂë;Persist Security Info=True;User ID=ÓÃ" & _
"»§;Initial Catalog=Êý¾Ý¿âÃû;Data Source=·þÎñÆ÷Ãû"
  ......
GetAllSettings£¨appname£¬section£©
GetSetting£¨appname£¬section£¬key[£¬default]£© £º¶Áȡע²á±íÐÅÏ¢
SaveSetting appname£¬section£¬key£¬setting£ºÏò×¢²á±íÖÐдÈëÒ»¸ö×¢²áÐÅÏ¢
deletesetting appname£¬section£¬key£¬setting£ºÉ¾³ý×¢²á±íÐÅÏ¢
·appname£ºÓ¦ÓóÌÐòÃû£¬×Ö·û´®ÀàÐÍ£¬Óû§Ö¸¶¨
·sec ......
×Ô¶¨ÒåÊý¾Ý¿âÁ´½ÓÀà(Access)ÊÇÁ´½ÓAccessÊý¾Ý¿âʱʹÓõÄÀà¡£
²¹×㣺Application.StartupPath.ToStringÊÇÖ¸¶¨Éú³É.EXEÎļþµÄ·¾¶£¬°ÑÊý¾Ý¿âºÍÖ´ÐÐÎļþ´æ·Åµ½Ò»Æðʱ£¬²»¹Ü°²×°ºóÔÚʲô·¾¶¶¼ÎÞÐèÌض¨Ö¸¶¨¡£
Imports System.Data.OleDb
#Region "È«¾Ö±äÁ¿"
Private mTimeo ......
VBʵÏÖSQL ServerÊý¾Ý¿â±¸·Ý/»Ö¸´
http://blog.csdn.net/cncco/archive/2006/05/15/729356.aspx
’**Ä£ ¿é Ãû£ºfBackupDatabase_a
’**Ãè Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
’**µ÷ ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿âÃû"
’**²ÎÊý˵Ã÷£ ......
×ö¸ömp3²¥·ÅÆ÷£¬ÓÃrealplayºÍWMP×ö³öÀ´µÄ³ÌÐòÄÚ´æÕ¼ÓÃÌ«´ó¡£
Èç¹ûÄã½ö½öÊDz¥·ÅMP3£¬½¨ÒéʹÓÃAPIº¯ÊýmciSendString¡£
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Lo ......