¼òµ¥µÄVBÎÊÌâ
³õѧVB£¬Çë¸÷λ´óÏÀ¸øÓèÖ¸µã
Private Shared Function GetWorkflow(ByVal flow As WorkflowFlow) As WorkflowDocument3
GetWorkflow = Nothing
If (Not flow Is Nothing) And (Not String.IsNullOrEmpty(flow.FileName)) Then
If Not m_oWorkflowDocuments.TryGetValue(flow.FileName, GetWorkflow) Then
Dim oDirectoryResolver As New CFNSDirectoryPathResolver
GetWorkflow = New WorkflowDocument3
GetWorkflow.Load(oDirectoryResolver.ResolveFilePath(flow.FileName).FullName)
InitWorkflow(GetWorkflow)
SyncLock (m_oWorkflowDocuments)
m_oWorkflowDocuments(flow.FileName) = GetWorkflow
End SyncLock
End If
End If
ÇëÎʵڶþ¶Î¡°GetWorkflow = Nothing¡±¾¿¾¹ÊÇʲôÒâË¼ÄØ£¿·½·¨µÄ¿ªÍ·¾Í°Ñ±¾·½·¨ÃûÉèÖÃΪ¿ÕÖÃÓÐʲôÒâÒ壿
Nothing ¹Ø¼ü×Ö±íʾÈκÎÊý¾ÝÀàÐ͵ÄĬÈÏÖµ¡£½« Nothing ¸³¸ø±äÁ¿½«°Ñ¸Ã±äÁ¿ÉèÖÃΪÆäÉùÃ÷ÀàÐ͵ÄĬÈÏÖµ¡£Èç¹
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
ÎÒÏëʹÓÃpicturebox¿Ø¼þ»Í¼
ÎÒµÄsqlÊý¾Ý¿âÖÐÊý¾Ý±íÃû×ÖÊÇudata£¬ÆäÖÐÓÐÁ½ÁУ¬Ò»ÁÐÊÇsdatetime£¬ÁíÒ»ÁÐÊÇdata¡£ÎÒÏëÓÃÆäÖеÄsdatetimeÁеÄÊýÖµ£¨Ê±¼ä£©×÷Ϊºá×ø±ê£¬dataÁеÄÊýÖµ£¨Êý¾Ý£©×÷Ϊ×Ý×ø±ê¡£
ÔÚÒ»¸öР......
ÎÒÏëÒªµÄÊÇÕâÑùµÄ£¬ÓÃÊó±ê×ó¼üµã»÷Ò»ÏÂÎÒµÄÒ»¸ö°´Å¥£¬ÔÙÓÃÊó±ê×ó¼üµã»÷Îļþ¼Ð»òÕßÊÇÎļþ»òÕßÊÇ´ÅÅÌ£¬È»ºó¾ÍÏñÊÇÓÃÊó±êÓÒ¼üÖ±½Óµã»÷ÔÚÁËÎļþ£¨Îļþ£©ÉÏÃæÒ»Ñù£¬µ¯³ö²Ëµ¥£¬°üÀ¨´ò¿ª£¬¸´ÖÆ£¬¼ôÌù£¬É¾³ýÖ®ÀàµÄ
......