[导入韵律活动的教学程序设计]教学活动的程序合理与否是教育目标能否有效实现的重要保障因素，也是幼儿能否在学习中教长时间的保持身心愉快的重要保障。在韵律活动教学情境中，最根本的处理原则就是动静交替...+阅读

Private Declare Function GetObject Lib ＂gdi32 ＂

Private Declare Function GetBitmapBits Lib ＂gdi32 ＂

Private Declare Function SetBitmapBits Lib ＂gdi32 ＂

Dim PicBits() As Byte, PicInfo As BITMAP, Cnt As Long

Private Sub Command1_Click()

Set Picture1.Picture = Clipboard.GetData(vbCFBitmap)

GetObject Picture1.Picture, Len(PicInfo), PicInfo

Debug.Print PicInfo.bmWidth * PicInfo.bmHeight * 3

ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * 3) As Byte

GetBitmapBits Picture1.Picture, UBound(PicBits), PicBits(1)

For Cnt = 1 To UBound(PicBits)

PicBits(Cnt) = 255 - PicBits(Cnt)

Next Cnt

SetBitmapBits Picture1.Picture, UBound(PicBits), PicBits(1)

Picture1.Refresh

End Sub

以下为关联文档：

韵律活动的教学程序设计教学活动的程序合理与否是教育目标能否有效实现的重要保障因素，也是儿童能否在学习中较长时间地保持身心愉快的重要保障。其实，在这个问题上，最根本的处理原则就是动静交替。当...