而你说的 这种效果只能 用 无边框世告的 pincturebox代替, 并设置 MouseMove 时间 和窗体的 MouseMove 事件
在 pic的事件中设置暗图片, 当鼠标移出pic进入窗体在窗体的时间里设置 pic为亮图片, 图片在ImageList里存放搜差明
Private Sub Command1_Click()Command1.Left = Command1.Left + Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Command2.Top = Command2.Top + Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Command3.Left = Command3.Left + Val(Text1.Text)
Command3.Top = Command3.Top + Val(Text2.Text)
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)