Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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  ¸³¸ø±äÁ¿½«°Ñ¸Ã±äÁ¿ÉèÖÃΪÆäÉùÃ÷ÀàÐ͵ÄĬÈÏÖµ¡£Èç¹


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õÊ¼×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vb´ò°ü°²×°Ê±ÌáʾÊäÈëÐòÁкÅ

ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£

·½·¨2£ºÊ¹ÓÃSetu ......

VB Êó±ê·ÅÔÚÇúÏßÉÏ¿ÉÒÔÏÔʾÊýÖµ

VB ÖÐÎÒÓÃMSChart»æÇúÏßͼ£¬ÔõÑù²ÅÄÜʵÏÖ°ÑÊó±êÒÆµ½ÇúÏßÉϾÍÄÜ×Ô¶¯ÏÔʾ¸ÃµãµÄÖµ£¿
Çë´ó¼Ò°ï棡£¡£¡
²ËÄñ¾´ÉÏ¡­¡­
MSChartÃ²ËÆÃ»ÓÐÕâ¸ö¹¦ÄÜ,ʵÔÚ²»Ðо͸ÄÓñðµÄ¿Ø¼þ

ÒýÓÃ
MSChartÃ²ËÆÃ»ÓÐÕâ¸ö¹¦ÄÜ,ʵÔÚ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ