- 博客(2)
- 收藏
- 关注
原创 透明位图
以下在form 需二个PictureBox,一个Image Control, 一个Command Boxvate Sub Command1_Click()Dim dx As Long, dy As LongCall GetInvertMaskPic(Picture1, Image1, RGB(255, 255, 255))注释:请确认相对pen.bmp图的背景颜色是什麽,本例中是
2004-06-11 10:26:00 847 1
原创 调用word
Private Sub Form_Load()Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject("Excel.Application") 创建EXCEL对象Set xlBook = xlApp.Workbooks.Open
2004-05-21 13:49:00 753
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人