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

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  


Ïà¹ØÎĵµ£º

.netÖÐÓÃDropDownListÑ¡ÔñÈÕÆÚ£¨vb´úÂ룩

¿´Á˱ðÈËдµÄC#µÄ ×Ô¼º×ªÁËһϠȻºóºóÖØÐ¸ÄÁË¸Ä Ð´³ÉÁËÕâ¸ö
ÁíÍ⻹ÓÐÒ»¸öÎÒдµÄÑéÖ¤ÈÕÆÚÊÇ·ñºÏ·¨µÄ´úÂë ÔÚºóÃæ ¶¼ÊÇvbµÄ c#Ö»»á¿´²»»áд
  'ÅжÏÈòÄê=======================
Private Function CheckLeap(ByVal year As Integer) As Boolean
If (year Mod 4 = 0) AndAlso (year Mod 100 <> ......

ÖØÊ°VBÖ®Ò»£¬ÈÕÖ¾±à

ÖØÊ°VBÖ®Ò»£¬ÈÕÖ¾±à
 
PMP  ¹Ø¾¢ËÉ
 
    ¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB½øÐпª·¢¡£
    Ê×ÏÈÊÇΪ×Ô¶¯»¯²âÊÔÈí¼þÔö¼ÓÈÕÖ¾¹¦ÄÜ£¬½«Ã¿ÌìµÄÊý¾Ý¼Ç¼µ½Ò»¸ölogÎļþ¡£ÎÒΪÁË·½±ãʹÓÃÁËFSO¶ÔÏó£¬ ......

VBÓëMatlab»ìºÏ±à³Ì

VBÓëMatlab»ìºÏ±à³ÌÓжàÖÖ·½Ê½£¬ÕâÀïÌÖÂÛMatlab½«MÎļþ±àÒë³Écom×é¼þ¹²VBµ÷Óõķ½Ê½¡£
Matlab°æ±¾£ºMatlab 7.7. 0.471 R2008b
VB°æ±¾£ºVB 6.0 & VB 2008
Ê×ÏÈдºÃÍê³Éij¸ö¹¦ÄܵÄmÎļþ£¬±ÈÈçÔÚmÎļþÖÐдÈëÈçϺ¯Êý
function [returns,stderr]=GetReturns(prices)
    returns=price2ret(prices)&nbs ......

vbÔÚÊý¾Ý¿âÖд¢´æÍ¼Æ¬²¢ÏÔʾ³öÀ´

 '**************************¶ÁͼƬÎļþ**************************************  
  Sub   GetPicfromDB(cn   As   ADODB.Connection)  
          On   Error   Resume   Next  
          Dim   ......

VB³õ¼¶ÄæÏòÓëÀûÓÃ

½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
    ÎªÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ