crhimg.dsr

饲料生产控制系统

VERSION 5.00
Begin {BD4B4E61-F7B8-11D0-964D-00A0C9273C2A} CRHImg 
   ClientHeight    =   13665
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   16230
   OleObjectBlob   =   "CRHImg.dsx":0000
End
Attribute VB_Name = "CRHImg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************************
'僔僗僥儉柤丗椦寭嶻嬈壓娭
'僾儘僌儔儉ID丗CRHImg
'僾儘僌儔儉柤丗
'嶌惉幰丗滹奀撿
'嶌惉擔丗2007/08/11
'廋惓擔/廋惓幰丗dava 2007-08-16
'******************************************************************************
'Public strPath As String

'******************************************************************************
' 柤徧丂丂丂: SecPic_Format
' 婡擻丂丂丂: 僼僅乕儉偺弶婜壔
' 嶲悢丂丂丂: pFormattingInfo
' 曉夞丂丂  : 側偟
'******************************************************************************
Private Sub SecPic_Format(ByVal pFormattingInfo As Object)
On Error GoTo Err
    Set PicShow.FormattedPicture = Clipboard.GetData
ResumErr:
    Exit Sub
Err:
    WriteErrLog "CRHImg", "SecPic_Format", "", Err.Number, Err.Description
    Resume ResumErr
    
End Sub