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

VB¶ÁдINIÎļþ

  '******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ·¾¶±ØÐëÍêÕû,ÎļþÃûÇ°ÃæµÄ¸÷¼¶Ä¿Â¼±ØÐë´æÔÚ,·ñÔòдÈë²»³É¹¦,¸Ãº¯Êý·µ»Ø FALSE Öµ.
'2.ÎļþÃûµÄ·¾¶ÖбØÐëΪ \\ ,ÒòΪÔÚVC++ÖÐ, \\ ²Å±íʾһ¸ö \ .
'3.Ò²¿É½«INIÎļþ·ÅÔÚ³ÌÐòËùÔÚĿ¼,´Ëʱ lpFileName ²ÎÊýΪ: ".\\student.ini".
'4.ʹÓÃÇ°ÇëÏȳõʼ»¯±äÁ¿ProfileName
'******************************************************************************************
'* API º¯ÊýÉùÃ÷ *
'******************************************************************************************
'Ϊ³õʼ»¯ÎļþÖÐÖ¸¶¨µÄÌõÄ¿È¡µÃ×Ö´®
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String _
) As Long
'Ϊ³õʼ»¯ÎļþÖÐÖ¸¶¨µÄÌõÄ¿»ñÈ¡Ò»¸öÕûÊýÖµ
Declare Function GetPrivateProfileInt Lib "kernel32" Alias _
"GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal nDefault As Long, _
ByVal lpFileName As String _
) As Long

'ÔÚ³õʼ»¯ÎļþÖ¸¶¨Ð¡½ÚÄÚÉèÖÃÒ»¸ö×Ö´®
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _


Ïà¹ØÎĵµ£º

ÈçºÎÀûÓÃVB±àдNT·þÎñ³ÌÐò

Ò»¡¢NT·þÎñ³ÌÐò
    ËùνNT·þÎñ£¬Êµ¼ÊÉϾÍÊÇÒ»¸ö¿ÉÒÔÔÚϵͳÆô¶¯Ê±×Ô¶¯ÔÚÒ»¶¨Éí·ÝÏÂÆô¶¯µÄ°éËæϵͳ³¤Ê±¼ä´æÔڵĽø³Ì¡£ÏóFTP server¡¢HTTP server¡¢ÍÑ»ú´òÓ¡µÈ¶¼ÊDzÉÓÃNT·þÎñµÄÐÎʽÌṩµÄ¡£Õâʵ¼ÊÉÏÀàËÆUnixµÄroot daemon½ø³Ì¡£NT·þÎñ¹éÄÉÆðÀ´£¬NT·þÎñÓÖÒÔϼ¸¸öÌØÕ÷£º
    1¡¢¿ÉÒ ......

VB ±í´ïʽÔÚ.net WF 4.0ÖеÄÓ÷¨

ÔÚ×îеÄWindows Workflow Fonudation(WF4, ÏÂÎÄÖн«¼ò³ÆWF4)ÖУ¬WFÖÐÒýÈëÁËVB expression£¬Óû§¿ÉÒÔͨ¹ývb±í´ïʽΪ±äÁ¿¸³Öµ¡£ÓÐÐËȤµÄÅóÓÑ¿ÉÒÔ°²×°VS 2010£¬È»ºóʹÓÃÒ»ÏÂÕâ¸ö¹¦ÄÜ¡£¹ØÓÚÕâ¸ö¹¦ÄܵIJο¼£¬Çë¿´£ºhttp://msdn.microsoft.com/en-us/library/ee342461.aspx   ʲô£¿ ²»ÖªµÀɶÊÇWF£¬Å¶£¬ÐÒ¿÷ÄãÓöµ½ÎÒ£¬ ......

vb×Ö·û´®ÔÚÄÚ´æÖеķֲ¼£¿

¾Ý˵vb6ÖÐ,×Ö ·û´®ÒÔÒÔUNICODE·½Ê½´æ´¢£¬ËùÒÔ
Private Type UDT
lngM1 As Long
lngM2 As Long
strM3 As String * 18
strM4 As String * 8
lngM5 As Long
End Type
Private Sub Command4_Click()
Dim tmp As UDT
With tmp
.lngM1 = 1
.lngM2 = 2
' .str ......

vb Á¬½ÓAccess×Ö·û´®¡¢vbÁ¬½ÓDb2µÄ×Ö·û´®

DB2ConnectionString
b2str = "Provider=MSDASQL.1;Password=a$sk6G7;Persist Security Info=True;User ID=DBA;Data Source=ConDB2SFXXK"
AccessConnectonString
accessstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DMSJK.mdb;Jet OLEDB:database password=" ......

ÈçºÎÓÃVBд°²È«¿Ø¼þ

×ÜÊö
±¾ÎÄÐðÊöÁËÈçºÎÔÚVBÖÐʵÏֿؼþµÄIobjectSafety½Ó¿Ú£¬ÒÔ±êÖ¾¸Ã¿Ø¼þÊǽű¾°²È«ºÍ³õʼ»¯°²È«µÄ¡£VB¿Ø¼þĬÈϵĴ¦Àí·½Ê½ÊÇÔÚ×¢²á±íÖÐ×¢²á×é¼þÀàÀ´±êʶÆ䰲ȫÐÔ£¬µ«ÊµÏÖIobjectSafety½Ó¿ÚÊǸüºÃµÄ·½·¨¡£±¾ÑÔÓï°üÀ¨ÁËʵÏÖ¹ý³ÌÖÐËùÐèµÄËùÓдúÂë¡£
Çë×¢Ò⣬¿Ø¼þÖ»ÓÐȷȷʵʵÊÇ°²È«µÄ£¬²ÅÄܱ»±êʶΪ“°²È«µÄ”¡£±¾ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ