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
'½çÃæ°üÀ¨ command¡¢command1¡¢command2¡¢command3 ºÍÒ»¸ö text Îı¾¿ò
'command Ϊ“»¥×ª”°´Å¥£¬command1 Ϊ“ת´ó”°´Å¥£¬command2 Ϊ“תС”°´Å¥£¬command3 Ϊ“Çå³ý”°´Å¥
Private Sub Command_Click()
Dim i As Integer, n As Integer
Dim x As S ......
ÔÚVB Öе÷Óö¯Ì¬Á¬½Ó¿â
2001-11-08· · ··yesky
1 2 3 4 5 6 7 8 ÏÂÒ»Ò³
¡¡¡¡×÷ΪһÖÖ¼òµ¥Ò×ÓõÄWindows¿ª·¢»·¾³£¬Visual Basic´ÓÒ»ÍÆ³ö¾ÍÊܵ½Á˹ã´ó±à³ÌÈËÔ±µÄ»¶Ó¡£Ëüʹ ³ÌÐòÔ±²»±ØÔÙÖ±½ÓÃæ¶Ô·×·±¸´ÔÓµÄWindowsÏûÏ¢£¬¶ø¿ÉÒÔ½«¾«Á¦Ö÷Òª¼¯ÖÐÔÚ³ÌÐò¹¦ÄܵÄʵÏÖÉÏ£¬´ó´óÌá¸ßÁ˱ ......
ÎÒÓÃVBÖ´ÐÐDOSÃüÁÉú³ÉÎı¾ÎļþËæ¼´´ò¿ª
µ«ÊÇÓÉÓÚÎı¾ÎļþÉú³ÉÐèÒªÒ»¶Îʱ¼ä£¬
»¹Î´µÈÎļþÉú³ÉÍê±ÏVB¾Í´ò¿ªÁËÕâ¸öÎļþ
ÇëÎÊÈçºÎÈóÌÐòµÈ´ýDOSÃüÁîÖ´ÐÐÍê±ÏÔÙ´ò¿ªÕâ¸öÎı¾Îļþ°¡
×îºÃ»¹ÄܼÓÉÏÒ»¸öµÈ´ýµÄ½ø¶ÈÌõÏÔʾÎı¾ÎļþµÄÉú³É¹ý³Ì
´úÂëÈçÏ£º
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......
×î½ü¸Õѧ»áÔÚVB2008 ÖÐʹÓòÎÊý»¯SQLÓï¾ä£¬ÓÚÊÇÂíÉÏÓõ½´úÂëÖУ¬È´Åöµ½²é²»µ½ÈκÎÊý¾ÝµÄÇé¿ö£¬¾À½áÁ˺ü¸Ì죬»¹ÊÇûÓиãÃ÷°×£¬²îµãÍÂѪ¡£²»µÃÒÑ»¹ÊÇÏÈÔÚ´úÂëÖÐʹÓÃ×Ö·û´®Æ´½ÓµÄSQLÓï¾ä¡£
°üº¬²ÎÊý»¯SQLÓï¾äµÄ´úÂëÈçÏ£º
Dim cmSl As N ......