Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 Ö¸ÁîûÓе¥¶À³ÉÐеÄÐÎʽ£¬Ò²¾ÍÊÇ˵£¬Ô


Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õÊ¼×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vb´òÓ¡ÎÊÌâ

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


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


Printer.EndDoc


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

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

¼òµ¥µÄVBÎÊÌâ

³õѧVB£¬Çë¸÷λ´óÏÀ¸øÓèÖ¸µã
Private Shared Function GetWorkflow(ByVal flow As WorkflowFlow) As WorkflowDocument3

      GetWorkflow = Nothing
        If ......

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

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

1.ÓÃBotton¿Ø¼þ¸ødatagridviewÌí¼ÓÊý ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ