¼òµ¥µÄ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 ¸³¸ø±äÁ¿½«°Ñ¸Ã±äÁ¿ÉèÖÃΪÆäÉùÃ÷ÀàÐ͵ÄĬÈÏÖµ¡£Èç¹
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
¿ÉÒÔÓÃrichtextbox £¬Ö÷ÒªÊÇÄÜÏÔʾrtfÎļþÖеĸñʽ£¬ÎÄ×ÖÑÕɫ֮ÀàµÄ£¬Çë½Ì~
RichTextBox1.LoadFile "test.rtf"
RichTextBox1.FileName = App.Path & "\test.rtf"
Ó¦¸ÃÊÇ
RichTex ......
ÎÒÏëÒªµÄÊÇÕâÑùµÄ£¬ÓÃÊó±ê×ó¼üµã»÷Ò»ÏÂÎÒµÄÒ»¸ö°´Å¥£¬ÔÙÓÃÊó±ê×ó¼üµã»÷Îļþ¼Ð»òÕßÊÇÎļþ»òÕßÊÇ´ÅÅÌ£¬È»ºó¾ÍÏñÊÇÓÃÊó±êÓÒ¼üÖ±½Óµã»÷ÔÚÁËÎļþ£¨Îļþ£©ÉÏÃæÒ»Ñù£¬µ¯³ö²Ëµ¥£¬°üÀ¨´ò¿ª£¬¸´ÖÆ£¬¼ôÌù£¬É¾³ýÖ®ÀàµÄ
......