前不久更新了一些系列的下拉菜单按钮的文章,大家纷纷拿出好玩的东西来了。
今天带来的是内蒙实易软件的dropdownbutton改进版,具有多个风格。
This.SetFocus
Wait Window Proper(Program()) Nowait
Lparameters nKeyID &&返回指定的ID值
* MessageBox("你点击了第"+Transform(nKeyID)+"项")
Wait Window "你点击了第 "+Transform(nKeyID)+" 项" Nowait
This.Mask.Visible = .F.
This.MouseLeave()
Wait Window Proper(Program()) Nowait