精华内容
下载资源
问答
  • VB用键盘进行图像控制,边移动边放大或缩小,↑键图像向上移动并逐渐变小 ↓键图像向上移动并逐渐变大 →键图像向右移动并逐渐变小 ←键图像向左移动并逐渐变大,回车键还原。
  • VB 回忆录(一)——左右移动的标签

    千次阅读 2011-08-14 21:07:48
    这是自己做的第一个稍微有点逻辑的程序,当时我们正在学习 VB 这门课程。...当前应该移动的方向。这个思路虽然简单,但的确是当时的我自己想出来的,这个思路对我以后写的代码影响很深。

    这是自己做的第一个稍微有点逻辑的程序,当时我们正在学习VB这门课程。当时我们的VB老师说我是第一个做出来的,还许诺期末考试时给我95分。

     

    新建一个工程,在窗体上放置一个Label和一个Timer,适当调整窗体的布局及控件的大小。设置TimerInterval10。定义一个模块级的Byte变量i

    Dim i As Byte

    TimerTimer事件中写入如下代码。

     

    Private Sub Timer1_Timer()

    If Label1.Left = 0 Then i = 0

    If Label1.Left + Label1.Width = Form1.Width Then i = 1

    Select Case i

    Case 0

    Label1.Left = Label1.Left + 20

    Case 1

    Label1.Left = Label1.Left - 20

    End Select

    End Sub

     

    我们老师在课上讲了我的代码,而且还说我的代码有一个Bug,我也看了看自己的代码。仔细一想还真有问题。就是两个If中的条件不应该使用“=”,而应该是“<”和“>”。

     

    从这断码中可以看出当时的自己还没有代码格式的概念,所以所有的代码都是顶头写的,而且可笑的是我给别人修改代码时,看到没有顶头的就给改成顶头的。

    而且当时也没有命名规范的意识,不过自己当时还是很高兴的。

     

     

    这段代码的主要思路就是用一个模块级变量来表示Label当前应该移动的方向。这个思路虽然简单,但的确是当时的我自己想出来的,这个思路对我以后写的代码影响很深。


    展开全文
  • VB窗体内鼠标到达边缘触发图片、背景的移动,用你的鼠标分别向上、向下、向左、向右移动,观看效果!可发现图片会作出相应的移动,这种效果目前在电子地图中使用广泛,我觉得还是挺实用小技巧,好奇朋友下载研究一番...
  • 基于VB实现的随鼠标移动的图形,鼠标分别向上向下向左向右移动,观看效果!实际上与鼠标拖动图片很相似的功能,在图片上按信左键移动鼠标,就可看到图片也会相应的移动。 运行环境:Windows/VB6
  • vb 点击控件移动窗体

    千次阅读 2012-02-06 18:34:04
    添加模块 代码如下: Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As Any) As Long Public Declare Function...
     
    
    添加模块  代码如下:
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As Any) As Long
    
    Public Declare Function ReleaseCapture Lib "user32" () As Long
    
    Public Sub DoDrag(TheForm As Form)
        If TheForm.WindowState <> vbMaximized Then
            ReleaseCapture
            SendMessage TheForm.hwnd, &HA1, 2, 0&
            
        End If
    End Sub
    
    在该控件的方法调用:
    
    Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
    End Sub
    展开全文
  • 满意答案DimstrAsString=""Dimn,mAsIntegerDima()AsIntegern=InputBox("请输入要产生随机数的个数n")m=InputBox("请输入要移动的位数m")ReDima(n)str="生成数组为"&vbCrLfFori=1Tona(i)=Int(Rnd()*90+10)str=...

    满意答案

    Dim str As String = ""

    Dim n, m As Integer

    Dim a() As Integer

    n = InputBox("请输入要产生随机数的个数n")

    m = InputBox("请输入要移动的位数m")

    ReDim a(n)

    str = "生成数组为" & vbCrLf

    For i = 1 To n

    a(i) = Int(Rnd() * 90 + 10)

    str = str & a(i) & " "

    Next

    Dim b(m), c(n) As Integer

    For i = 1 To m

    b(i) = a(n - m + i)

    Next

    For i = 1 To m

    c(i) = b(i)

    Next

    For i = m + 1 To n

    c(i) = a(i - m)

    Next

    str = str & vbCrLf & "移动后的数组为" & vbCrLf

    For i = 1 To n

    str = str & c(i) & " "

    Next

    TextBox6.Text = str追问: 这个程序没结束吧????

    追答:移动后的数组都输出了,已经结束了

    00分享举报

    展开全文
  • 内容索引:VB源码,其它类别,键盘,图像控制 VB用键盘进行图像控制,边移动边放大或缩小,↑键图像向上移动并逐渐变小 ↓键图像向上移动并逐渐变大 →键图像向右移动并逐渐变小 ←键图像向左移动并逐渐变大,回车键...
  • VB 6.0移动窗体代码

    2008-12-03 13:22:06
    VB中的窗体移动方法. 直接使用就可以了。 大家可以试试啊 !
  • cmdRight, 向右移动;cmdUp, 向上移动;cmdDown, 向下移动;cmdClose, 退出;PictureBox控件的Name为picCoordinate,Top为1020,Left为0,Width为6000,Height为3500。 代码实现VB中的PictureBox控件中绘坐标系,并实现...
  • vb中对字节变量进行位操作的函数 包括左移、右移、置位、复位、位判断操作
  • 3:鼠标向右移动;  2:鼠标向下移动;5:鼠标向上移动  4:单击鼠标左键(连续两下为双击).  7:开始拖动文件.6:单击鼠标右键.  4.拖动文件结束。  2.鼠标方式激活:  当你选择了此方式就想QQ一样.大家都用过...
  • VB俄罗斯方块_源码

    2018-05-21 23:33:35
    VB俄罗斯方块_源码 1、左右光标键控制方块左右移动。 2、上光标键控制方块顺时针旋转。 3、下光标控制方块移动速度。
  • [VB.NET]控制图形移动

    2008-12-02 20:51:00
    控制图形移动 实例说明在本实例中,我们将使用VScrollBar控件和HScrollBar控件来控制图片的移动,我们还可以设置移动的间距大小。程序运行结果如图56-1所示。图56-1 运行结果技术要点<!--google_ad_client = "pub-...
    控制图形移动 
    

    实例说明

    在本实例中,我们将使用VScrollBar控件和HScrollBar控件来控制图片的移动,我们还可以设置移动的间距大小。程序运行结果如图56-1所示。

    图56-1 运行结果

    技术要点

    <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

    l 控制图片移动

    l 直接拖动图片

    l 更改ScrollBar控件的移动间距大小

    实现过程

    ■ 新建项目

    打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"ScrollBarCtl",然后选择保存路径。单击"确认"。

    ■ 添加控件

    向当前窗体上添加一个GroupBox控件,在GroupBox控件上放置六个Label控件和两个ComboBox控件;然后再添加一个Picture控件,一个VScrollBar控件和一个HScrollBar控件和六个Label控件。按照图56-1的运行结果排列好位置。

    ■ 设置属性

    对窗体上的控件进行属性设置。详细情况如表56-1所示。

    表56-1 窗体各控件的属性值

    窗体/控件 属性 值

    PictureBox Picture Human.jpg

    ComboBox1 Items 1,2,3,4,5

    ComboBox1 Itmes 5,10,20,50

    其余控件 Text 跟界面一致

    ■ 添加代码

    由于空间有限,我们仅列出主要代码,其余代码请看光盘。

    ' 水平滚动条移动时,改变图片的位置

    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll

    label11.Text = HScrollBar1.Value.ToString()

    hAbsPos = CSng(HScrollBar1.Value - HScrollBar1.Minimum)

    pictureBox1.Left = HScrollBar1.Right - CInt(hScrollMultiplier * hAbsPos) - pictureBox1.Width

    End Sub

    ' 更改大间距移动的值

    Private Sub comboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboBox1.SelectedIndexChanged

    VScrollBar1.LargeChange = Convert.ToInt16(comboBox1.SelectedItem.ToString())

    HScrollBar1.LargeChange = Convert.ToInt16(comboBox1.SelectedItem.ToString())

    label11.Text = HScrollBar1.Value.ToString()

    label12.Text = VScrollBar1.Value.ToString()

    End Sub

    ' 更改小间距移动的值

    Private Sub comboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboBox2.SelectedIndexChanged

    VScrollBar1.SmallChange = Convert.ToInt16(comboBox2.SelectedItem.ToString())

    HScrollBar1.SmallChange = Convert.ToInt16(comboBox2.SelectedItem.ToString())

    label11.Text = HScrollBar1.Value.ToString()

    label12.Text = VScrollBar1.Value.ToString()

    End Sub

    ' 直接拖动图片

    Private Sub pictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pictureBox1.MouseDown

    dragging = True

    ' (e.x, e.y) 表示光标相对于图片位置的相对坐标。我们需要将这个值保存下来

    oldX = e.X

    oldY = e.Y

    End Sub

    ■ 运行程序

    单击菜单"调试|启动"或单击 图标运行程序。

    小结

    本实例通过使用ScrollBar控件来控制图片的显示,这在我们要显示大图片时是很有必要的。通过对本实例的学习,读者能够掌握ScroollBar控件的基本使用方法。

    展开全文
  • VB6.0仿手机屏幕解锁特效,这个源码例子主要是使用二分法(或N分法)展示了锁屏按钮以及锁屏页的"渐进效果","渐进效果"还可以用于图片轮播哦~Private Sub Step1() '控制锁屏页左渐进移动  If LockPage.Left ...
  • 学习到事件驱动程序,通过Timer创造一个监听类,使得paintComponent函数写出来的小车可以移动,代码如下。在这里插入代码片 主体框架 ![在这里插入图片描述](https://img-blog.csdnimg.cn/20200225113106472.png) *...
  • Vb窗体文字滚动特效示例,可以向多方向滚动,文字在文本框内滚动,并可在鼠标的控制下每次滚动一个单元,比如向左滚动一列、向上滚动一行、向右向下滚动各一列等,研究文字滚动的原理相当不错,初学者可拿出学习参考...
  • ↓键图像向上移动并逐渐变大 →键图像向右移动并逐渐变小 ←键图像向左移动并逐渐变大 回车键还原、利用WinRar压缩和解压文件、获得汉字的拼音简码、判断文件是否被改动等,还有一些不一一列举了,自己下载吧。
  • ↓键图像向上移动并逐渐变大 →键图像向右移动并逐渐变小 ←键图像向左移动并逐渐变大 回车键还原、利用WinRar压缩和解压文件、获得汉字的拼音简码、判断文件是否被改动等,还有一些不一一列举了,自己下载吧。
  • 摘要:VB源码,游戏编程,俄罗斯方块,VB游戏源码 再发一个VB游戏代码---俄罗斯方块,呵呵,相信大家都对这款游戏相当熟悉了,... → 控制方块向右移动;  ↓ 控制方块向下快速移动;  ↑ 控制方块的顺时针方向的翻转。
  • " → 控制方块向右移动; ↓ 控制方块向下快速移动;"↑ 控制方块的顺时针方向的翻转。", 64, "旋转俄罗斯 1.0 键盘操作帮助"  Global Total(10, 20) As Boolean '总体坐标布局 10x20  Global MinX As Integer '...
  • 又一个俄罗斯方块游戏软件,VB源代码,呵呵,相信大家都对这款游戏相当熟悉了,小时候经常玩的益智游戏。在编写的时候,里面有一...→ 控制方块向右移动; ↓ 控制方块向下快速移动; ↑ 控制方块的顺时针方向的翻转。
  • [Right to left] = 0 '由右向左滚动 [Left to right] = 1 '由左向滚动 End Enum Private Type Font Zti As String '字体 Zxing As String '字形 Dxiao As Long '大小 End Type Dim Rolling As Integer '滚动方向:...
  • 数组移动n位

    千次阅读 2019-03-16 11:34:15
    0)个整数,在不允许使用另外数组的前提下,将每个整数循环向右移M(≥0)个位置,即将A中的数据由(A​0​​A​1​​⋯A​N−1​​)变换为(A​N−M​​⋯A​N−1​​A​0​​A​1​​⋯A​N−M−1​​)(最后M个...
  • 利用VB操作Excel

    千次阅读 多人点赞 2019-02-13 09:50:17
    VB操作Excel详解 一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1、在工程中引用MicrosoftExcel 类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel ...
  • VB期末考试试题及答案》由会员分享,可在线阅读,更多相关《VB期末考试试题及答案(5页珍藏版)》请在人人文库网上搜索。1、VB期末考试试题及答案一、 填空题1、VB程序设计的主要特点是 可视化设计 和 事件编程 。2...
  • VB.NET键盘控制焦点移动

    千次阅读 2008-03-28 13:55:00
    VB.NET键盘控制焦点移动作者:佚名 来源:本站整理 发布时间:2005-6-14 8:45:50---键盘控制焦点移动---在数据库的项目中,一定会有输入数据的Form.最令录入人员头痛的就是每填完一个数据后,要再操作鼠标,或者另一...
  • 摘要:VB源码,图形处理,图像缩放,仿Photoshop VB功能超多的图像处理控件程序演示,控件名为ExtendPictureBox.ocx,仿Photoshop滤镜的众多功能,可以实现...ctrl+z+鼠标左键放大,ALT+Z+鼠标左键缩小,向右箭头移动
  • VB程序设计练习题

    千次阅读 多人点赞 2021-05-15 14:03:35
    五、标签左右移动。 六、相邻数加起来为素数。 七、通项分母(累加). 八、判断降序数。 九、产生数组,求最大数。 十、奇偶排序。 总结: 前言 这是我备考技能考的一些VB练习题。(难度稍微有点大哦) 想要...
  • VB字符串处理

    千次阅读 2019-01-24 13:46:20
    (3)部截取Right$(字符串,n):表示截取字符串的后n个字符 如: left$("abcdefg",3)的结果是:"abc" mid$("abcdefg",2,3)的结果是:"bcd" right$("abcdefg",3)的...
  • ) LargeChange:当用户在滚动块的上方、下方(左方、方)单击时Value所增加的值。默认值为1。 SmallChang:当用户在滚动条两端的箭头按钮上单击时Value所增加的值。默认值为1。 事件: Change:在滚动块移动后(即Value...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,345
精华内容 2,938
关键字:

vb向右移动