¼òµ¥µÄ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 ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÎÒÏëÓÃVB×ö¼à¿ØÏµÍ³£¬½çÃæÈçͼ£º
µã»÷²Ù×÷×éÉϵİ´Å¥ÓÐÏàÓ¦µÄÏÔʾ£¬µ±È»ÏÔʾµÄÄÚÈݲ»Ò»Ñù£¬ÏÔÊ¾ÇøÓòÊÇÖ÷Ì壬ÔÚÖмäÄǿ飺
ÔõôʵÏÖÕâ¸ö¹¦Äܰ¡£¿ÓÃvisibleÊôÐÔ¾ÍÌ«¸´ÔÓÁË£¡
Çë´ó¼Ò½Ì½ÌÎÒ£¡
Ò» ......