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

VBÄÚÈçºÎʹÓÃÔ¤±àÒë²ÎÊý

É¢¼¼Êõ·Ö»¹ÕæÂé·³ - -
ÈçÌ⣬VBÄÚÈçºÎʹÓÃÔ¤±àÒë²ÎÊý¡£
ÕâÊǽӵÄÉÏÒ»Ìù°É

#If Ìõ¼þ1 Then 
  Óï¾ä1     
#ElseIf Ìõ¼þ2 Then 
  Óï¾ä2
#Else 
  Óï¾ä3   
#End If
Âú×ãÌõ¼þ1°´Óï¾ä1±àÒ룬Âú×ãÌõ¼þ2°´Óï¾ä2±àÒ룬Äã˵µÄÊÇÕâ¸öÂð£¿

#If...Then...#Else Ö¸Áî
     

Ìõ¼þ±àÒëÒÑÑ¡ÔñµÄ Visual Basic ´úÂë¿é¡£

Óï·¨

#If expression Then

statements

[#ElseIf expression-n Then

[elseifstatements]]

[#Else

[elsestatements]]

#End If

#If...Then...#Else Ö¸ÁîµÄÓï·¨¾ßÓÐÒÔϼ¸¸ö²¿·Ö£º

²¿·Ö ÃèÊö
expression ±ØÒª¡£°üº¬Ò»¸ö»ò¶à¸öÌõ¼þ±àÒë³£Êý¡¢ÎÄ×ÖÓëÔËËã·ûµÄÈκαí´ïʽ£¬ÆäֵΪ True »ò False¡£
statements ±ØÒª¡£Visual Basic ³ÌÐòÐлò±àÒëÖ¸ÁÈç¹û¹ØÁªµÄ±í´ïʽΪ True£¬ÔòÔËÐÐËüÃÇ¡£
expression-n ¿ÉÑ¡¡£ÓÉÒ»»ò¶à¸öÌõ¼þ±àÒë³£Êý¡¢ÎÄ×ÖºÍÔËËã·û×é³ÉµÄÈκÎÒ»¸ö±í´ïʽ£¬ÆäֵΪ True »ò False¡£
elseifstatements ¿ÉÑ¡¡£Ò»¸ö»ò¶à¸ö³ÌÐòÐлò±àÒëÃüÁÈç¹û expression-n Ϊ True£¬ÔòÔËÐÐËüÃÇ¡£
elsestatements ¿ÉÑ¡¡£Ò»¸ö»ò¶à¸ö³ÌÐòÐлò±àÒëÃüÁÈç¹ûÒÔǰµÄexpression »ò expression-n ÖÐûÓÐÒ»¸öΪ True£¬ÔòÔËÐÐËüÃÇ¡£


˵Ã÷

#If...Then...#Else Ö¸ÁîµÄ×÷ÓÃÓë If...Then...Else Óï¾äÏàͬ£¬Æä²îÒìÔÚÓÚ #If¡¢#Else¡¢#ElseIf£¬¼° #End If Ö¸ÁîûÓе¥¶À³ÉÐеÄÐÎʽ£¬Ò²¾ÍÊÇ˵£¬Ô


Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

vb´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

VB SQL3.5Êý¾Ý¿âÐÞ¸Ä

ÎÒÊÇÐÂÊÖÓÃVB2008£¬Êý¾Ý¿âÊÇ×Ô´øµÄSQL3.5. ÓÃdatagridviewÏÔʾijÊý¾Ý±íµÄÊý¾Ý
Êý¾Ý¿âÊÇ  Mydata.sdf    mydatadataset
°ó¶¨Óà bindingsource

1.ÓÃBotton¿Ø¼þ¸ødatagridviewÌí¼ÓÊý ......

vb Á¬½ÓORACLE ´òÓ¡

ÕâÊÇÎÒÔ­À´Á¬½ÓSQLµÄ´òÓ¡µÄ´úÂë
Connection1.Open "Provider=MSDataShape.1;Persist Security Info=True;Data Source=mm;User ID=sa;Password=sa;Initial Catalog=lc-liuh2;Data Provider=SQLOLEDB.1"Ê ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ