ÎÞÒâÖз¢ÏÖVB ForÑ»·µÄÒ»¸öÌصã
ÎÞÒâÖз¢ÏÖVB ForÑ»·µÄÒ»¸öÌص㣺ÔÚÑ»·ÌåÖУ¬Æóͼ¸Ä±äÑ»·ÖÕÖ¹±äÁ¿Ê¹Ö®ÌáÇ°Í˳öÑ»·ÊÇͽÀ͵ġ£
Private Sub Form_Load()
Dim s(0 To 4) As String
Dim N As Integer, i As Integer
s(0) = "²âÊÔ1"
s(1) = "²âÊÔ2"
s(2) = "²âÊÔ3"
s(3) = "²âÊÔ4"
s(4) = "²âÊÔ5"
N = 4
For i = 0 To N
'ÔÚÑ»·ÌåÖУ¬Æóͼ¸Ä±äÑ»·ÖÕÖ¹±äÁ¿Ê¹Ö®ÌáÇ°Í˳öÑ»·ÊÇͽÀ͵ġ£
'Ö»ÓÐ Åжϡ¾Ñ»·±äÁ¿¡¿ÊÇ·ñ´óÓÚ¡¾Ñ»·ÖÕÖ¹±äÁ¿¡¿À´ÌáÇ°Í˳ö²ÅÊÇ¿ÉÐеģ¬È磺If i > N Then Exit For
Debug.Print s(i)
If i = 0 Or i = 3 Then N = N - 1
Next i
MsgBox "i====" & i & " N==" & N
End Sub
Ïà¹ØÎĵµ£º
VBÑÕÉ«ºÍRGBÉ«»¥Ïàת»»Í·ÌÛÁËÎÒºÃÒ»¶Îʱ¼ä,Èç½ñÕÒµ½½â¾ö°ì·¨ÁË
ÌرðÌù³öÀ´Óë´ó¼Ò¹²Ïí
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......
VBʵÏÖVC TabControl¿Ø¼þ
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......
¡¡ÏÖ½ñÊÐÃæÉÏÁ÷ÐеÄһЩӢÓïѧϰÈí¼þ£¬ÔÚ¹ã¸æ´ÊÉϾ³£Ëµ×Ô¼ºÊ¹ÓÃÁ˹ú¼Ê¶¥¼âµÄÈ«³ÌÓïÒôTTS¼¼Êõ£¬ÄܽøÐÐÕû¶ÎÓ¢ÎĵÄÁ÷ÀûÀÊ
¶Á£¬²¢ÄÜ×ÔÓɵ÷½ÚÀʶÁµÄËÙ¶ÈÓëƵÂʵȡ£ÄÇô£¬Õâ¸öÉñÆæµÄTTS¾¿¾¹ÊÇʲô¶«Î÷ÄØ£¿
¡¡¡¡Æäʵ£¬TTSÊÇ΢Èí³öÆ·µÄÒ»Ì×ÎÄ×ÖÀʶÁÒýÇ棨Text-To-Speech Engine)£¬ÕâЩӢÓïÈí¼þ¾ÍÊǵ÷ÓÃËüÀ´½øÐÐÓ¢ÎÄÀʶÁµÄ¡£ÎÒÃÇÔ ......
VBÊý¾Ý¿â²Ù×÷ʵÀý
2008-02-22 05:49
VBÊý¾Ý¿â²Ù×÷¶ÔºÜ¶à³õѧÕßÅóÓѸе½±È½Ï³ÔÁ¦£¬Ä¿Ç°½Ì²ÄÖеÄʵÀý¶ÔÊý¾Ý¿â²Ù×÷¶¼±È½Ïµ¥Ò»£¬ºÜ¶àÅóÓÑÌáÒéÎÒ×öÒ»¸ö°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷ʵÀý£¬ÏÂÃæÕâ¸öʵÀý¾ÍÊÇÒ»¸öÕâÑùµÄÊý¾Ý¿â²Ù×÷ʵÀý¡£
¡¶Êé¿â¹ÜÀíϵͳ¡·ÊÇÒ»¸ö×î¼òµ¥µÄÊý¾Ý¿â²Ù×÷ʵÀý ......
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
&nbs ......