¼òµ¥µÄ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 ¸³¸ø±äÁ¿½«°Ñ¸Ã±äÁ¿ÉèÖÃΪÆäÉùÃ÷ÀàÐ͵ÄĬÈÏÖµ¡£Èç¹
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
¿ÉÒÔÓÃrichtextbox £¬Ö÷ÒªÊÇÄÜÏÔʾrtfÎļþÖеĸñʽ£¬ÎÄ×ÖÑÕɫ֮ÀàµÄ£¬Çë½Ì~
RichTextBox1.LoadFile "test.rtf"
RichTextBox1.FileName = App.Path & "\test.rtf"
Ó¦¸ÃÊÇ
RichTex ......
ÎÒÏëÒªµÄÊÇÕâÑùµÄ£¬ÓÃÊó±ê×ó¼üµã»÷Ò»ÏÂÎÒµÄÒ»¸ö°´Å¥£¬ÔÙÓÃÊó±ê×ó¼üµã»÷Îļþ¼Ð»òÕßÊÇÎļþ»òÕßÊÇ´ÅÅÌ£¬È»ºó¾ÍÏñÊÇÓÃÊó±êÓÒ¼üÖ±½Óµã»÷ÔÚÁËÎļþ£¨Îļþ£©ÉÏÃæÒ»Ñù£¬µ¯³ö²Ëµ¥£¬°üÀ¨´ò¿ª£¬¸´ÖÆ£¬¼ôÌù£¬É¾³ýÖ®ÀàµÄ
......