dim towardleft as boolean 不要放在SUB里声明,放在一开始,就是标为通用的地方,或者用PUBLIC towardleft as boolean也可以的。问题是不要让变量towardleft在form_click()结束后被释放。
解决方案 »
- 我想通过调用API来设置 PIcturebox的 ScaleHeight 应该用那个API呢
- 求一取得汉字拼音缩写的函数!
- 已知一个按钮的句柄,如何用SetWindowLong来改变它的样式?如字体,颜色等?
- 为什么我定义的dll在部件当中看不到
- 请问一个API的用法 GetUserName
- 请帮我猜密 (高分)
- 怎么隐藏右键菜单呢?
- 请教各位高手! 怎样将VB编写的程序生成EXE文件拿到局域网中的其它计算机运行!
- 有没有人做过“用AT命令控制手机发短信”呀?
- 结果变为0,Winsock.GetData Str,vbByte,12?
- 用拨号服务器方式连接SQL2k-A 和 SQL2K-B 时死活连不上啊!!!!急啊!!!!:(
- 怎样用vb实现skin?
command1.left=command1.left-200
towardleft=false
else
command1.left=command1.left+200
towardleft=true end if
end sub
把dim towardleft as boolean提到private sub form_click()上面,
在end if后加上一句towardleft = Not towardleft
不就行了?
private sub form_click()
static towardleft as boolean
if towardleft=true then
command1.left=command1.left-200
else
command1.left=command1.left+200
end if
end sub