Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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  


Ïà¹ØÎĵµ£º

ʹÓÃVB½«Excelµ¼Èëµ½SqlÖÐ

ʹÓÃVB°ÑExcelµ¼Èëµ½SqlÊý¾Ý¿âÖУ¬ÆäʵÓм¸ÖÖ·½·¨¡£
ÏÂÃæÎÒ½éÉܵÄÕâÖÖ·½·¨£¬½ÏΪ¼òµ¥¡£
ÆäʵÕâÖÖ·½·¨µÄ»°£¬ÊÇÖ±½ÓʹÓÃT-SQL²Ù×÷µÄ£¬Òò´Ë£¬µ½ÁËVBÀïÃ棬ֱ½ÓeccuteÕâ¸ö´úÂë¾ÍOKÁ˵ġ£
-----------------------------------------------------ÏÂÃæÊÇÔÚT-sqlÖеÄÓï¾ä
if object_id('NewTable') is not null/*ÅжϱíNewTabl ......

VBÖÐɾ³ýÊý×éÖظ´ÔªËØ

Option Explicit
Function Delete3(Arr As Variant) As Variant
Dim i As Integer
For i = LBound(Arr) To UBound(Arr)
If i > UBound(Arr) Then Exit For
If Arr(i) = 3 Then
Do
Dim j As Integer
For j = i To UBound(Arr) - 1
......

vb class Property Get¡¢Property Let ʹÓÃ

vb class Property Get¡¢Property Let ʹÓÃ
<%
'ÔÚ Class ¿éÖУ¬³ÉԱͨ¹ýÏàÓ¦µÄÉùÃ÷Óï¾ä±»ÉùÃ÷Ϊ Private(˽ÓгÉÔ±£¬Ö»ÄÜÔÚÀàÄÚ²¿µ÷ÓÃ) »ò Public(¹«ÓгÉÔ±£¬¿ÉÒÔÔÚÀàÄÚÍⲿµ÷ÓÃ) ¡£
'±»ÉùÃ÷Ϊ Private µÄ½«Ö»ÔÚ Class ¿éÄÚÊǿɼûµÄ¡£±»ÉùÃ÷Ϊ Public ²»½öÔÚ Class ¿éµÄÄÚ²¿ÊǿɼûµÄ£¬¶Ô Class ¿éÖ®ÍâµÄ´úÂëÒ²Êǿɼûµ ......

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ