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 Ö¸ÁîûÓе¥¶À³ÉÐеÄÐÎʽ£¬Ò²¾ÍÊÇ˵£¬Ô
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
VB ÖÐÎÒÓÃMSChart»æÇúÏßͼ£¬ÔõÑù²ÅÄÜʵÏÖ°ÑÊó±êÒÆµ½ÇúÏßÉϾÍÄÜ×Ô¶¯ÏÔʾ¸ÃµãµÄÖµ£¿
Çë´ó¼Ò°ï棡£¡£¡
²ËÄñ¾´ÉÏ¡¡
MSChartÃ²ËÆÃ»ÓÐÕâ¸ö¹¦ÄÜ,ʵÔÚ²»Ðо͸ÄÓñðµÄ¿Ø¼þ
ÒýÓÃ
MSChartÃ²ËÆÃ»ÓÐÕâ¸ö¹¦ÄÜ,ʵÔÚ ......