自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(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关注的人

提示
确定要删除当前文章?
取消 删除