VB编程:利用CallByName函数对对象进行操作-23
原创
©著作权归作者所有:来自51CTO博客作者彭世瑜的原创作品,请联系作者获取转载授权,否则将追究法律责任
运行效果
备注:不是界面优化太差,commad2是通过单击事件改变了其位置
程序代码
Private Sub Command1_Click()
Text2.Text = CallByName(Text1, "text", VbGet)
End Sub
Private Sub Command2_Click()
If Command2.Left <> 0 Then
CallByName Command2, Text3, VbMethod, 0, 0
Else
CallByName Command2, Text3, VbMethod, 1000, 200
End If
End Sub
Private Sub Form_Load()
Text3.Text = "move"
CallByName Text4, "mousepointer", VbLet, 15
End Sub
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
利用VB进行病毒编程
利用VB平台进行编程时注意哪些问题呢?
VB 职场 编程 休闲