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°ÑExcelµ¼Èëµ½SqlÊý¾Ý¿âÖУ¬ÆäʵÓм¸ÖÖ·½·¨¡£
ÏÂÃæÎÒ½éÉܵÄÕâÖÖ·½·¨£¬½ÏΪ¼òµ¥¡£
ÆäʵÕâÖÖ·½·¨µÄ»°£¬ÊÇÖ±½ÓʹÓÃT-SQL²Ù×÷µÄ£¬Òò´Ë£¬µ½ÁËVBÀïÃæ£¬Ö±½ÓeccuteÕâ¸ö´úÂë¾ÍOKÁ˵ġ£
-----------------------------------------------------ÏÂÃæÊÇÔÚT-sqlÖеÄÓï¾ä
if object_id('NewTable') is not null/*ÅжϱíNewTabl ......
Welcome to Microsoft Developer Support, Languages team blog! You will find a lot of language related troubleshooting resources here.
Troubleshooting PInvoke Related Issues
I am back with some more PInvoke Stuff. Recently I was working on a PInvoke issue which I found interesting ......
²»ÄÜÖ±½ÓʹÓÃCopyMemoryStr£¬Ó¦¸Ã½«×Ö·û´®×ªÎªbyteÊý×飬ȻºóʹÓÃCopyMemory
Property Get item() As String
If h = 0 Then ErrRaise ERROR_INVALID_DATA
'BugAssert p <> pNull
Dim c As Long, ptr0 As Long
Dim ab() As Byte
& ......
½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
ΪÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......