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 Ö¸ÁîûÓе¥¶À³ÉÐеÄÐÎʽ£¬Ò²¾ÍÊÇ˵£¬Ô
Ïà¹ØÎÊ´ð£º
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
³õѧVB£¬Çë¸÷λ´óÏÀ¸øÓèÖ¸µã
Private Shared Function GetWorkflow(ByVal flow As WorkflowFlow) As WorkflowDocument3
GetWorkflow = Nothing
If ......
ÎÒÊÇÐÂÊÖÓÃVB2008£¬Êý¾Ý¿âÊÇ×Ô´øµÄSQL3.5. ÓÃdatagridviewÏÔʾijÊý¾Ý±íµÄÊý¾Ý
Êý¾Ý¿âÊÇ Mydata.sdf mydatadataset
°ó¶¨Óà bindingsource
1.ÓÃBotton¿Ø¼þ¸ødatagridviewÌí¼ÓÊý ......