VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 709|回复: 4

[求助] 如何给无边框整出阴影,下面代码问题出在哪呢?

[复制链接]
发表于 2017-11-11 15:57:55 | 显示全部楼层 |阅读模式
我想给无边框的窗体添加阴影的效果,百度了很多,看到一个链接,说既简洁又管用,后面还有很多表示认可的回帖。但在我这儿一试,怎么也不成功,请问问题出在哪呢?
具体见链接:http://tieba.baidu.com/p/3548764874?pn=1&statsInfo=frs_pager,代码如下,在我这儿定义类型就出错,根本无法运行后面的内容。
  1. Private Oshadow As Ashadow
  2. Private Form_Load
  3.     Set Oshadow = New Ashadow
  4.     With Oshadow
  5.     If .Shadow(Me) Then
  6.     .Depth = 7                                                                  '阴影宽度
  7.     .Color = RGB(0, 0, 0)                                                       '阴影颜色
  8.     .Transparency = 50                                                          '阴影色深
  9. End If
  10. End With
  11. End Sub
复制代码

发表于 2017-11-16 12:25:02 | 显示全部楼层
你需要作者发的类模块,原帖有,不认真看

注意第一行
Private Oshadow As Ashadow

Ashadow这个类型VB是没有的,所以会导致 ”在我这儿定义类型就出错“

点评

很好奇你那个有几百个控件的窗体是干嘛的 ;P  发表于 2017-11-16 12:27

评分

参与人数 1威望 +4 人气 +1 收起 理由
bruly + 4 + 1 赞一个

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-11-16 21:23:22 | 显示全部楼层
sailingzyf3.0 发表于 2017-11-16 12:25
你需要作者发的类模块,原帖有,不认真看

注意第一行

严重感谢老师的关注和回复。上次说的上百个控件是我在学着弄一个浏览器。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-11-16 21:57:52 | 显示全部楼层
sailingzyf3.0 发表于 2017-11-16 12:25
你需要作者发的类模块,原帖有,不认真看

注意第一行

严重感谢老师的关注和回复。上次说的上百个控件是我在学着弄一个浏览器。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2017-12-19 00:36

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表