
正文
vb.net怎么右移 vb窗体移动到右上角
提示:扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
你好,请教一下vb.net中想实现标签自动从左到右移动如何实现,我是新手
见下面代码,放置定时器,按钮,标签各一个
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '定时器
If Label1.Right Me.Width Then
Label1.Left += 10'移动距离
Else
Label1.Left = 0
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '开启或者关闭定时器
Timer1.Interval = 1000 '1秒
If Timer1.Enabled = False Then
Timer1.Start() '开定时器
Else
Timer1.Stop() '关定时器
End If
End Sub
End Class
相关问答
Q1: 用VB语言怎么把数字左移?右移?
第一步,先把整形变量数(有正有负)转化为2进制数存放在一个Byte(0 to 1)中
Dim MyB(1) as byte
if N =0 then
Myb(0)= N \ 256 //高位
Myb(1)= N mod 256 //低位
else
tmp=N*(-1)
Myb(0)= tmp \256
Myb(1)= tmp mod 256
Myb(0)= Not(Myb(0) and H80) //将符号位取反
Myb(1)= Not(Myb(1)) +1
//以上两行是先求出正数N的二进制表示方法,然后把最高位置1(这样就是-N的原码了)
//然后把所有位都取反,末尾+1,这样就是-N的补码形式了,在计算机中负数是补码来存放的。
end if
转化好以后就是移位操作了,意味操作代码如下(假定你要移动N位)
For i=1 to N
SaveHi = Myb(0) '保存高位,是为了判断右移时是否向低位字节进1
'以下是右移 ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
Myb(0) = Myb(0) \ 2 '右移不会溢出的
Myb(1)= Myb(1) \ 2
If ((SaveHi And H1) = H1) Then
Myb(1) = Myb(1) Or H80
End If
Next
如果是左移,也是一样:
For i=1 to N
SaveLo = Myb(1) '保存低位,是为了判断左移时是否向高位字节进1
'以下是右移 ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
Myb(0) = (Myb(0) * 2) mod HFF '要取余,不然会溢出
Myb(1) = (Myb(1) * 2) mod HFF
If ((SaveLo And H80) = H1) Then
Myb(0) = Myb(0) Or H01 '高位进一
End If
Next
Q2: vb.net实现控件自由移动
Dim i As Integer
For i = 0 To Me.Width - Button1.Width 'me为容器vb.net怎么右移,典型vb.net怎么右移的是form1
Button1.Left += 1
Windows.Forms.Application.DoEvents()
Next
原理:不断地变化button1vb.net怎么右移的X轴,使其向右移,同样,只要控制好其x,y轴,就可以变化button的变化
如果是做小游戏,建议弄成类吧,把其中的左(右)移或对角其它移动弄成其接口,以便操作。
由于涉及内容太多,不再详述。原理都一样
Q3: vb的命令按钮要实现点一下向右移一位,再点再移,代码应该怎么写啊
1、建立两个命令按钮,分别将名称改为A,B,style设置为1。
2、在属性栏里找到picture,找到本地图片,装上图片,先要将style设置为1。
3、将按钮A中的disabledpicture改为你本地图片。
4、最后运行一下。这是在普通状态下的按钮。
5、点击按钮A时,出现的图片。
vb.net怎么右移的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb窗体移动到右上角、vb.net怎么右移的信息别忘了在本站进行查找喔。







