VBA代码求助

yuchen_2013 2013-07-16 09:27:16
我是个菜鸟,这些代码是什么意思啊?
Set objResizer = Me.Controls.Add("Forms.label.1", MResizer, True)
With objResizer
With .Font
.Name = "Marlett"
.Charset = 2
.Size = 16
.Bold = True
End With
.BackStyle = fmBackStyleTransparent
.AutoSize = True
.BorderStyle = fmBorderStyleNone
.Caption = "o"
.MousePointer = fmMousePointerSizeNWSE
.ForeColor = RGB(100, 100, 100)
.ZOrder
.Top = Me.InsideHeight - .height
.left = Me.InsideWidth - .width
End With
FormX = Me.width
FormY = Me.height
Frame1.Visible = False
...全文
185 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
LichKingSZ 2013-07-22
  • 打赏
  • 举报
回复
Private WithEvents objResizer As MSForms.Label 这里是声明一个可接收事件的label控件,MSForms是VBA的控件库,与Forms类似 关于"Forms.Command.1",我也不太清楚,不过既然是VBA,你可以在word采用录制宏再看其代码的方法来了解
LichKingSZ 2013-07-18
  • 打赏
  • 举报
回复
Set objResizer = Me.Controls.Add("Forms.label.1", MResizer, True) //创建一个名为objResizer的Label控件 With objResizer With .Font .Name = "Marlett" //使用Marlett字体 .Charset = 2 //使用2号字符集 .Size = 16 //设置字号为16 .Bold = True //设置为粗体 End With .BackStyle = fmBackStyleTransparent //设置控件背景为透明 .AutoSize = True //启用控件自动按内容设置大小 .BorderStyle = fmBorderStyleNone //设置控件为无边框模式 .Caption = "o" //控件显示内容为“o” .MousePointer = fmMousePointerSizeNWSE //设置当鼠标进入控件区域后显示为fmMousePointerSizeNWSE样式 .ForeColor = RGB(100, 100, 100) //设置字体颜色 .ZOrder //设置控件在容器的最上层 .Top = Me.InsideHeight - .height //设置控件的上边距 .left = Me.InsideWidth - .width //设置控件的左边距 End With FormX = Me.width FormY = Me.height Frame1.Visible = False //设置Frame1控件不可见
罪人不釋之枷 2013-07-18
  • 打赏
  • 举报
回复
貌似是在面板上添加新的控件,然後對其進行屬性設置,字體,可調大小,顏色,座標,上下間距等等。 具體的對應什麽意思,你去查查對應的中文屬性吧
yuchen_2013 2013-07-18
  • 打赏
  • 举报
回复
非常感谢,前面有定义 Private WithEvents objResizer As MSForms.Label 这里是动态添加一个控件吗?另外MSForms是不是VBA中的东东,和VB中的Forms有什么区别吗,MSForms.Controls.Add("Forms.label.1", MResizer, True)中的"Forms.Label.1"参数就是这样定义的吗?那添加命令按钮是不是"Forms.Command.1"这个参数的定义我查了好多地方都查不到

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧