VB ÃæÏò¶ÔÏó
Õ⼸ÌìÒ»Ö±ÔÚ×öÒ»¸öСµÄ¹¤³Ì,×öÒ»¸öÎı¾ÔĶÁÆ÷,ÏÖÔÚ×öµÄÒѾÓÐÈý·ÖÖ®¶þÁË,´ÓÖÐѧϰµ½Á˺ܶà,¶ÔÎÒÃÇÒÔǰѧϰµÄ³É¹ûÓÐÁ˸üÉî¿ÌµÄÀí½â.
VBÊÇÒ»ÃÅÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼Æ,ÎҾʹÓÃæÐÔ¶ÔÏóµÄ½Ç¶È¶ÔËû×öÒ»´Î×ܽá
°ÑVBÖÐËùÓеÄÊý¾Ý,±äÁ¿,¿Ø¼þ¶¼¿´×öÒ»¸ö¶ÔÏó
ÎÒÃÇËùÓеIJÙ×÷¶¼ÊǶԶÔÏóµÄ²Ù×÷,ÈöÔÏóÈ¥Ö´ÐÐijһ¸ö¹¦ÄÜ
´ó¼ÒÏÈ¿´Ò»¸öÀý×Ó
***********************************************************
Dim form as form
For form in forms
Load form
Next form
Dim I as integer
For i=1 to n
Print i
Next i
***********************************************************
ÕâÊÇÒ»¸öºÜÓÐȤµÄ¶Ô±È,Ëû¸æËßÎÒÃÇ,vbÖÐËùÓеÄÀà,±äÁ¿,ËûÃǵı¾ÖÊÊÇÒ»ÑùµÄ,ÄÇЩ±äÁ¿Ö»ÊÇûÓи³ÓèËûÃÇÌØ¶¨µÄ¹¦ÄÜ.
ÄÇôÊÇʲôÔì³ÉËûÃÇÁ½¸öÖ®¼äµÄÇø±ðÄØ?
µÚÒ»: ÔËËã·û::
ÔËËã·û°ÑÒ»¸ö¸ö¹ÂÁ¢µÄ±äÁ¿ÁªÏµÔÚÒ»Æð,ÕâÑùµÄ,ÈÃËûÃÇ×é³É±í´ïʽ,,¾ä×Ó.±ÈÈç:
ËãÊõ
×Ö·û´®
¹ØÏµ:
Âß¼:
a+b
ºÃºÃ” & “ѧϰ”
a<b
A and B
µÚ¶þ: ¿ØÖƽṹ:
Èý´ó¿ØÖƽṹÓÖÈÃÒ»¸ö¸ö¹ÂÁ¢µÄ±í´ïʽ±ä³ÉÁ˺¯Êý,¹ý³Ì
µ«Êǵ±ÎÒÃǺܶà´ÎÖØ¸´µÄÔËÓÃÒ»¸öº¯Êýʱ,ΪÁËÎÒÃDz»È¥Öظ´µÄд´úÂë,¾Í»á°ÑÕâÐ©ÌØÊâµÄº¯ÊýרÃÅд³öÀ´:
Õâ¾ÍÊdz£Óú¯Êý:
Êýѧ,Ëæ»ú
×Ö·û´®
ת»»
ʱ¼äÈÕÆÚ
Îļþ´¦Àí
³ý´ËÖ®Íâ;ÎÒÃÇÒª¸ù¾Ý×Ô¼ºµÄÐèÒª±àд×Ô¼ºµÄº¯Êý,ÒªÊDZðÈËÒѾ±àдºÃµÄÄÃÀ´¾ÍÓÃ:api
×îºó:::::::::::::::::
µ±Ò»¸öÁ¿¾¹ý´ò°ü³ÉΪÁËÀàºó::ÎÒÃǾÍÄÃÀ´Ê¹ÓÃÁË
ʹÓõ±È»ÒòÈ˶øÒì::
Ò²¾ÍÊÇ˵ËäÈ»ÀàÓкܶ๦Äܵ«ÊÇÎÒÃDz»Ò»¶¨¶¼ÒªÓõ½,,Óõ½µÄÒ²²»Ò»¶¨¶¼ÓÃÒ»ÑùµÄ¹¦ÄÜ.
Õâ¾ÍҪͨ¹ýËüµÄÊôÐÔ,,ʼþ,,·½·¨À´¾ßÌåµÄ²Ù×÷Àà
µ«ÊÇ:::::::::::::::::::::
ÕâЩÎÞÂÛÊDZäÁ¿»¹Êdz£Á¿,º¯Êý¶¼ÊÇ´æ´¢ÔÚËæ»ú´æ´¢Æ÷ÖеÄ,,Ò²¾ÍÊÇ˵³ÌÐò½áÊøËûÃǾÍÏûʧÁË,ÄÇôÎÒÃǾÍÐèÒª°ÑËü´æ´¢µ½Ó²ÅÌÖÐ..ΪÁ˳¤ÆÚµÄ±£´æÊý¾Ý::ÎÒÃǾÍÓõ½ÁËÎļþ..
È»ºó¾ÍÊǶÔÎļþµÄ²Ù×÷Ŷ
´ò¿ª,½¨Á¢
¶Á
д
¹Ø±Õ
ÕâЩ¾ÍÊÇVB µÄarchitecture°É..
Ïà¹ØÎĵµ£º
WindowsÖеÄ×ÀÃæÍ¼±êµÄÅÅÁз½Ê½ÊÇ·ñÈÃÄã¸Ðµ½Ñá¾ë¶øÏë°´ÕÕ×Ô¼ºµÄÏë·¨ÅÅÁÐͼ±ê¡£ÊÇ·ñÏë¸Ä±ä×ÀÃæÍ¼±êÎÄ×ֵı³¾°¶ø²»
ʹÔÚͼ±êÎÄ×ÖϳöÏÖÒ»¸ö¸öÄÑ¿´µÄÉ«¿é¡£ÕâÀïÎÒÒª½éÉÜÈçºÎͨ¹ýVBÀ´¶Ô×ÀÃæµÄͼ±ê½øÐг¹µ×µÄ¸Ä±ä¡£
ÆäʵÔÚWindowsϵÄ×ÀÃæÒÔ¼°ÈÎÎñÀ¸µÈ¶¼ÊÇ´°¿Ú¶ÔÏó£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWindows APIº¯ÊýFindWindow ......
Ò»Ö±ÏëдÏÂÊý¾Ý¿â²Ù×÷·½ÃæµÄ£¬Ö»ÊÇûʲôʱ¼ä£¨ºÃÏñÊǽè¿Ú£¬Ó¦¸ÃÊÇÀÁ»òÕßûÐÄÇé°É£¬ºÇºÇ£©¡£×î½ü·¢ÏÖCSDNÉÏ
»¹ÊÇÿÌìÓÐÈËÒªÎÊÕâЩÄÚÈÝ£¬ÎÒÓеÄʱºò¾ÍÀÁµÄ»Ø´ð£¬ºÇºÇ£¬Ö÷Òª²»¶ÏµÄÈ¥ÕÒ´úÂë¸øËûÃÇÀÛ°¡¡£ËùÒÔ»¹ÊÇÌý¸ßÈ˵ģ¬À´
¸öÒ»ÀÍÓÀÒÝ£¬×Ô¼ºÖØÐÂÎÂϰÏ£¬Ò²ºÃ¸øÆäËûÈËһЩ°ïÖú¡£
Õâ¸öÊ ......
'ÕâÀïÊÇÆô¶¯¹ý³Ì[ʼþ»¥³â¾Í²»Ð´ÁË]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'ÕâÀïÊÇÒ»¸öÏß³ÌÀà¡£¡£¡£Ëæ±ãдɶ¡£¡£¡£
ˈ̞:BT
'ÕâÀïÊÇÖ÷´°¿Ú
Dim cBT as BT
Sub form_Load
'Ææ¹ÖµÄÎÊÌâ¾ÍÔÚÕâÀï...
Set cBT=CreateObject("¹¤³ÌÃû.BT")
'ÔÚL ......
×ö¸ömp3²¥·ÅÆ÷£¬ÓÃrealplayºÍWMP×ö³öÀ´µÄ³ÌÐòÄÚ´æÕ¼ÓÃÌ«´ó¡£
Èç¹ûÄã½ö½öÊDz¥·ÅMP3£¬½¨ÒéʹÓÃAPIº¯ÊýmciSendString¡£
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Lo ......
YXOnlineÒѾ½Ó½üβÉù,ΪÁË´¦ÀíһЩ½çÃæµÄÎÊÌâ,²âÊÔÒ»¸öC++µÄDLL
Ò»¸öº¯Êý,ÓÃdeasambling¿´C++µÄ´úÂëÊÇûÓдíÎóµÄ,µ«Êǵ½ÁËVB,Çë¿´
bµÄ·µ»ØÖµÊÇTrue ²»¹ÜC++ºÍVBÏ໥¼üÔ¼¶¨TrueºÍFalse¸÷¶ÔӦΪʲôÊýÖµ
ÕâÀïÒѾÊÇTrueÁË
µ«ÄÇʱÏÔʾTrue = True ÈԾɲ»Ö´ÐеÚÒ»¸öMsgbox
Ö±½ÓÌøµ½Else
¶øÈç¹ûÊ¡ÂÔb = True Ϊ If b Then ......