VB¶ÔINIÎļþ²Ù×÷
VB¶ÔINIÎļþ²Ù×÷
2009-02-25 00:17
INI ÎļþÊÇʲôÑù×Ó£¿——²»»á°É£¬Õâ¶¼²»ÖªµÀ¡£INI Îļþ¾ÍÊÇ Windows Öг£¼û
µÄÒÔ .ini ΪÀ©Õ¹ÃûµÄÎļþ£¬ÆäÄÚ²¿¸ñʽºÍ¸÷²¿·ÖµÄÃû³ÆÈçÏ£º
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
INI ÎļþÖзÖÈô¸É¸ö¶Î (Section)£¬Ã¿¸ö¶ÎÖÐÓÐÈô¸É¸ö¼ü (Key) Öµ (Value) ¶Ô
¡£Ò»¸ö¼üÖµ¶Ô±£´æÒ»¸öÐÅÏ¢£»¶ÎÔò½«ÊôÐÔÀàËÆµÄһЩ¼üÖµ¶Ô×éÖ¯ÔÚÒ»Æð¡£Í¬Ò»¸ö¶ÎÖв»
ÄܳöÏÖÁ½´ÎÒÔÉÏͬÑùµÄ¼ü£¬µ«²»Í¬µÄ¶ÎÖпÉÒÔ³öÏÖÏàͬµÄ¼ü¡£
ÏÖÔÚÃ÷°×ÁËÂð£¿ÒªÊÇ»¹²»Ã÷°×£¬¾Íµ½ Windows ÀïÕÒÁ½¸ö INI Îļþ¿´¿´£¬Îı¾±à¼
Æ÷¾Í¿ÉÒÔ´ò¿ªµÄ¡£Ã÷°×ÁË INI Îļþ¾ÍÒª¿ªÊ¼Ñ§Ï°ÔõÑùÔÚ VB ÖжÁд INI ÁË¡£
VB ¶Áд INI Îļþ£¬ÄÑÂ𣿲»ÄÑ£¬ÒòΪ Windows ÒѾΪÎÒÃÇ×öºÃÁËÒ»ÇУ¬ÎÒÃÇÖ»
ÐèÒªµ÷ÓÃËüµÄ API º¯Êý¾Í¿ÉÒÔÁË¡£ÎªÁ˶Áд INI Îļþ£¬ÎÒÃÇ¿ÉÄÜÓõ½ÒÔÏ API º¯Êý
£º
GetPrivateProfileInt
GetPrivateProfileString
WritePrivateProfileString
ÆäÖÐ WritePrivateProfileString ÊÇÓÃÀ´Ïò INI ÎļþдÐÅÏ¢µÄ£¬¶ø
GetPrivateProfileInt ºÍ GetPrivateProfileString ÔòÊÇÓÃÀ´´Ó INI ÎļþÖжÁÐÅÏ¢
µÄ£¬Ç°ÕßÓÃÓÚ¶ÁÈ¡ÕûÐÍÊý¾Ý£¬ºóÕßÔòÓÃÓÚ¶ÁÈ¡×Ö·û´®ÐÍÊý¾Ý¡£
ÉÏÊöÈý¸ö API º¯ÊýÔÚ VB ÖеÄÉêÃ÷ºÍ˵Ã÷ÈçÏ£º
Private Declare Function GetPrivateProfileInt Lib "kernel32" _
Alias "GetPrivateProfileIntA" ( _ ' ·µ»ØËù¶ÁÈ¡µÄ³¤ÕûÐÍÖµ
ByVal lpApplicationName As String, _ ' Òª¶ÁÈ¡µÄ¶Î (Section) Ãû³Æ
ByVal lpKeyName As String, _ ' Òª¶ÁÈ¡µÄµÄ¼ü (Key) Ãû³Æ
ByVal nDefault As Long, _ ' Ö¸¶¨Ä¬ÈÏÖµ£¬Èç¹û¶Áȡʱ³ö´í£¬
Ôò·µ»Ø¸ÃÖµ
ByVal lpFileName As String) As Long
Ïà¹ØÎĵµ£º
ÖØÊ°VBÖ®Ò»£¬ÈÕÖ¾±à
PMP ¹Ø¾¢ËÉ
¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB½øÐпª·¢¡£
Ê×ÏÈÊÇΪ×Ô¶¯»¯²âÊÔÈí¼þÔö¼ÓÈÕÖ¾¹¦ÄÜ£¬½«Ã¿ÌìµÄÊý¾Ý¼Ç¼µ½Ò»¸ölogÎļþ¡£ÎÒΪÁË·½±ãʹÓÃÁËFSO¶ÔÏó£¬ ......
´«Í³·½·¨ÊDZéÀúÒ»±é
Èç¹ûlistbox ÏîÄ¿¹ý¶à
Ã÷ÏÔËٶȲ»ÐÐ
ºÃ·½·¨ÊÇͨ¹ýsendmessge·¢ÏûÏ¢¸ølistboxÈÃËû°ÑÑ¡ÖÐÏîĿֱ½Ó´«µ½²ÎÊýÊý×éÖÐ
You can use the SendMessage() API function instead.
As
you probably know, this function lets you send a message to one or more
windows. The declaration statement conforms ......
ÒýÑÔ:
×öÒ»¸ö¿Ø¼þ, ÓÃÓÚ Êý¾Ý²ÉÑùÈçʾ²¨Æ÷, ¿ÉÒÔÌí¼Ó,ɾ³ýÇúÏß, ÉèÖÃÇúÏßµÄÏà¹ØÊôÐÔ: ÏßÐÍ,ÑÕÉ«,µÈ...
¹ý³Ì:
¡¡ÏÈ´´½¨ Ïß Àà, ÔÚÓû§¿Ø¼þÀïʵÏÖ Ïß ¶ÔÏó´´½¨, ²¢ÉùÃ÷Ò»¸ö ¼¯ºÏ, ÓÃÓÚ ´æ·Å½¨Á¢µÄÏß¶ÔÏó.
ÎÊÌâ ......
“×Ô¶¯µã»÷°´Å¥”С¹¤¾ßVBÔ´Âë
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Pri ......
½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
ΪÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......