Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¼òµ¥µÄ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£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

VB ×Ö·ûÎÊÌâ

  TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
   

´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ  TF1.text = & ......

vb ´ò¿ªrtfÎļþ

¿ÉÒÔÓÃrichtextbox £¬Ö÷ÒªÊÇÄÜÏÔʾrtfÎļþÖеĸñʽ£¬ÎÄ×ÖÑÕɫ֮ÀàµÄ£¬Çë½Ì~
RichTextBox1.LoadFile "test.rtf"

RichTextBox1.FileName = App.Path & "\test.rtf"

Ó¦¸ÃÊÇ
RichTex ......

vbÈçºÎÄ£ÄâÊó±êÓÒ¼üµã»÷µ¯³öxp²Ëµ¥

  ÎÒÏëÒªµÄÊÇÕâÑùµÄ£¬ÓÃÊó±ê×ó¼üµã»÷Ò»ÏÂÎÒµÄÒ»¸ö°´Å¥£¬ÔÙÓÃÊó±ê×ó¼üµã»÷Îļþ¼Ð»òÕßÊÇÎļþ»òÕßÊÇ´ÅÅÌ£¬È»ºó¾ÍÏñÊÇÓÃÊó±êÓÒ¼üÖ±½Óµã»÷ÔÚÁËÎļþ£¨Îļþ£©ÉÏÃæÒ»Ñù£¬µ¯³ö²Ëµ¥£¬°üÀ¨´ò¿ª£¬¸´ÖÆ£¬¼ôÌù£¬É¾³ýÖ®ÀàµÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ