精华内容
下载资源
问答
  • VB拖动按钮_源码

    2018-06-10 22:10:41
    Visual Basic 6.0 编写的拖动按钮源码,可以使用鼠标键拖动按钮到窗口的任何位置。
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • 希望窗体的控件移动,这里有几种移动的方法的源代码。希望对大家有帮助!
  • VB 单选按钮、复选按钮和框架控件

    千次阅读 2020-12-11 12:32:37
    单选按钮Option和复选按钮Check都是用于实现选择操作的控件,前者可实现单选,后者可实现多选。框架Frame控件可以用来对窗体上的控件进行分组。在同一框架下的单选按钮有且只能被选中一项,而复选按钮则可以选择多项...

    单选按钮Option和复选按钮Check都是用于实现选择操作的控件,前者可实现单选,后者可实现多选。框架Frame控件可以用来对窗体上的控件进行分组。在同一框架下的单选按钮有且只能被选中一项,而复选按钮则可以选择多项,也可以一项都不选择。下面来介绍这3个控件的常用属性和基本用法。

    单选按钮Option

    单选按钮的常用属性
    对于通用属性而言,前面的课程已经介绍过了,再次就不进行介绍了,其用法都是一样的,例如Name、Caption等属性都属于所有控件的通用属性,这类通用属性以后的控件都不在重复介绍。

    Value属性
    返回或设置单选按钮的状态,属性值为True时,表示被用户选中,属性值为False时,表示未被选中。语法如下

    Option1.Value = True '将单选按钮置为被选中状态
    变量名称V=Option1.Value '将单选按钮状态vb.net教程值返回给变量V

    复选按钮Check

    复选按钮Check的常用属性

    Value属性
    返回或设置单选按钮的状态,属性值为1时,表示被用户选中,属性值为0时,表示未被选中,属性值为2时表示禁止用户选择,语法如下

    Check1.Value = 1 '将复选按钮设置为选中状态
    变量名称V=Check1.Value '将复选按钮状态值返回给变量V

    框架Frame
    框架是一种容器,是除了窗体外还可以作为容器的另一个控件。可以利用框架将控件进行分组,要对控件进行分组,必须先绘制出框架,然后在框架中绘制控件。如果需要将已有的控件放到框架内,可以利用剪切命令,将已有控件粘贴到框架内。

    这3个控件的属性、方法和事件都相对简单,最重要的属性就是Value属性了,这里需要注意的是,单选按钮Value属性值是boolean类型的,只有True和False两个值,而复选框的Value属性值是整数型的,可以取0、1、2三个值。下面通过一个实例来练习一下这三个控件吧。

    实战操作题
    目标:设计一个可以设置文本框文本格式的应用。效果如下图:

    步骤一:
    新建一个工程,并按照下图绘制控件。

    分别是,3个框架,框架内分别是单选框3个,单选框3个和复选框3个,以及文本框一个。

    在这里插入图片描述

    为了达到美观的效果,控件之间的位置要对齐,手动对齐麻烦的话,这里可以通过工具栏的窗体编辑器工具,自动调整控件的位置。以左边对齐为例,其方法为:先选中两个控件,然后单击工具栏中的左对齐按钮,即可自动对齐。需要注意的是,先被选中的控件将会向后被选中的控件移动,以完成对齐指令。

    在这里插入图片描述

    步骤二:
    修改控件的Caption属性,可以在属性窗口设置,也可以在代码区中设置。这里在属性窗口设置即可。

    在这里插入图片描述

    步骤三:
    进入代码区,按照下图设置代码。需要逐一编写每个单选框和复选框的单击事件。

    在这里插入图片描述

    在这里插入图片描述

    重要提示:在输入代码时,输入一个对象名称后再输入点号"."后,会自动弹出可以使用的属性和方法。但是对于对象名称和vb中的常量等,因为不需要输入点号,所以无法自动弹出提示,对于初学者而言,很多符号难以记住,这就带来了学习编程的困难。实际上这时,我们可以按快捷键Ctrl+J即可呼出提示框,例如要输入vbGreen,可以输入vbg然后按下Ctrl+J的快捷键,即可在弹出的提示框中选择vbGreen了。怎么样,有了这一招后,是不是对编程又提升了信心?

    在这里插入图片描述

    步骤四:
    运行程序,测试应用程序,选中字体大小、背景颜色和字形,即可改变文本框内的文本格式。

    在这里插入图片描述

    这里,代码区用到了很多事件过程,实际上,在后面的课程我们会学习到控件的数组,即index属性。利用控件数组功能,可以非常简洁的完成本节课程案例。

    好啦,本节课程关于单选按钮和复选框以及框架就全部学习完啦,希望能够对小伙伴有帮助。我们下节课程再见吧。

    展开全文
  • VB模拟鼠标左键单击和移动,单击按钮后,鼠标会移动到正中间,产生向上或向下滚动鼠标滚轮事件,如果鼠标在其他应用程序窗口之上,获取鼠标下窗口的鼠标句柄,并且代码中有一个键盘函数很实用哦。
  • vb贪食蛇源代码

    2012-04-21 16:52:54
    vb小游戏定义蛇的运动速度枚举值 Private Enum tpsSpeed QUICKLY = 0 SLOWLY = 1 End Enum '定义蛇的运动方向枚举值 Private Enum tpsDirection D_UP = 38 D_DOWN = 40 D_LEFT = 37 D_RIGHT = 39 End Enum '...
  • vb.net按钮添加鼠标提示文字

    千次阅读 2018-10-23 09:18:48
    方法1 步骤1 添加 ToolTip控件到窗体 步骤2 为需要提示控件添加鼠标...添加代码 Private Sub SaveDebug_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SaveD...

    方法1

    步骤1

    添加 ToolTip控件到窗体

    步骤2

    为需要提示控件添加鼠标事件。这里我选择放入  .MouseMove 事件

    步骤3

    添加代码

     Private Sub SaveDebug_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SaveDebug.MouseMove
    
            ToolTip1.ShowAlways = True
            ToolTip1.SetToolTip(SaveDebug, "存储到ini文件")
        End Sub

    方法2

    步骤1

    添加ToolTip控件

    步骤2

    在BUTTON的属性里有TOOLTIP,输入要提示的内容就行了(如果不添加控件到窗体就不会有这个属性)

     

     

    参考链接

    展开全文
  • VB中如何把开始和暂停放在同一个按钮

    千次阅读 热门讨论 2017-06-23 12:20:10
    在之前验百例的时候,师傅问我,一个暂停的,一个开始的如果做成一个按钮,是不是就方便而且美观很多,我觉得很有道理,而且还非常高大上,但是,这几天因为很多事情把这件事放下了,今天终于有时间,静下心来,好好...
             在之前验百例的时候,师傅问我,一个暂停的,一个开始的如果做成一个按钮,是不是就方便而且美观很多,我觉得很有道理,而且还非常高大上,但是,这几天因为很多事情把这件事放下了,今天终于有时间,静下心来,好好琢磨琢磨这个问题。

    Private Sub Form_Load()
    Label1.Left = 0 'Label离左边的距离为0
    Timer1.Enabled = False '时间控件在这个过程很重要
    End Sub

    Private Sub Timer1_Timer()
    Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)  

    '随机产生颜色,也可以用QBcolor(Rnd*15)
    If Label1.Left < Me.Width Then
    Label1.Left = Label1.Left + 60   'Label向左移动

    Else
    Label1.Left = 0
    End If
    End Sub
    Private Sub Command1_click() '这就是可以用一个按钮解决问题的过程啦在VB中如何把开始和暂停放在同一个按钮里 - 14期 张文慧 - 张文慧 廊坊师范学院信息技术提高班十四期
    If Command1.Caption = "开始" Then
    Timer1.Enabled = True
    Command1.Caption = "暂停"
    Else
    Timer1.Enabled = False
    Command1.Caption = "开始"
    End If
    End Sub


    哈哈哈!做出exe好像不能在这里发表,太遗憾了,看一下成品,说不定,大家对它更感兴趣了呢! 在VB中如何把开始和暂停放在同一个按钮里 - 14期 张文慧 - 张文慧 廊坊师范学院信息技术提高班十四期
    展开全文
  • vb随机移动鼠标

    2019-09-26 11:18:28
    新建一工程,放一个按钮command1,放一个时钟timer1,拷贝下列代码运行,按按钮一下会发现鼠标随机移动,碰到边界会反弹,再按按钮一下(或回车键)会停止。'*****************************拷贝下列代码*************...

    新建一工程,放一个按钮command1,放一个时钟timer1,拷贝下列代码运行,按按钮一下会发现鼠标随机移动,碰到边界会反弹,再按按钮一下(或回车键)会停止。
    '*****************************拷贝下列代码*****************************************

    Private Type POINTAPI
            x As Long
            y As Long
    End Type
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
    
    Dim rndX As Integer, rndY As Integer  '定义随机移动方向和速率
    
    Private Sub Command1_Click()
      If rndX <> 0 And rndY <> 0 Then
        rndX = 0
        rndY = 0
        Exit Sub
      End If
      While rndX = 0
        rndX = Rnd * 20 - 10
      Wend
      While rndY = 0
        rndY = Rnd * 20 - 10
      Wend
    End Sub
    
    Private Sub Form_Load()
      Timer1.Interval = 10
    End Sub
    
    Private Sub Timer1_Timer()
      Dim pos As POINTAPI, x As Long, y As Long
      If rndX = 0 And rndY = 0 Then
        Rnd
        Exit Sub
      End If
      GetCursorPos pos
      x = pos.x + rndX
      y = pos.y + rndY
      If x < 20 Then
        x = 20
        rndX = rndX * (-1)
      End If
      If x >= Screen.Width / 15 - 60 Then
        x = Screen.Width / 15 - 60
        rndX = rndX * (-1)
      End If
      If y < 20 Then
        y = 20
        rndY = rndY * (-1)
      End If
      If y >= Screen.Height / 15 - 100 Then
        y = Screen.Height / 15 - 100
        rndY = rndY * (-1)
      End If
      SetCursorPos x, y
    End Sub

     

    转自:http://bbs.bccn.net/thread-407793-1-1.html

    转载于:https://www.cnblogs.com/luotingliang/p/7251030.html

    展开全文
  • VB 回忆录(一)——左右移动的标签

    千次阅读 2011-08-14 21:07:48
    从这断码可以看出当时的自己还没有代码格式的概念,所以所有的代码都是顶头写的,而且可笑的是我给别人修改代码时,看到没有顶头的就给改成顶头的。 而且当时也没有命名规范的意识,不过自己当时还是很高兴的...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
  • VB编程大赛:求圆弧相交点代码 这是一个求两圆弧相交点的程序。界面有图区,操作及显示区。操作分为两个步骤: 1· 创建圆弧" 。 点击“创建圆槐按钮,可进入创建圆弧工作状态。进入创建圆弧工作状态以后,光标...
  • '新建一个标准模块,放入以下代码: Option Explicit Private Declare Function GetActiveWindow Lib “user32” () As Long '获取窗体焦点 Private Declare Function GetWindowLong Lib “user32” Alias ...
  • (本文适合VB初学者) 打开VB——新建标准EXE项目 完成这些最基本的之后点确定 我是打算写一个双人五子棋软件 所以界面程序需要全屏/自由大小 在这里我先做一个可接受大小的窗体 这样就可以安排...
  • VB.NET实现文本的复制粘贴(调用剪贴板),详细请参照Demo,希望对您有帮助!
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    中间语言代码不是CPU可执行的机器码,在程序运行时,必须由通用语言运行环境(Common Language Runtime,CLR)的既时编译器(JUST IN Time,JIT)将中间语言代码翻译为CPU可执行的机器码,由CPU执行。CLR为C#语言中间...
  • VB中,可用API函数来实现托盘功能,但比较复杂,不太好操作。  相对而言采用一种非常简单易行的方法:控件法,才是最适合最方便的。下面要使用已被微软封装好的控件:csystray1(名称可自定)。  说到控件,大家...
  • VB 精典实用源代码

    2011-03-09 10:33:44
    查找方法:按ctrl+f,输入要查找的问题关键字即可每...////////////////////////////////////////////////////////////////////////////////////如何用VB建立快捷方式Private Declare Function fCreateShellLink Li...
  • [图片说明](https://img-ask.csdn.net/upload/201901/18/1547812952_528800.jpg)如图片所示,当我输入的内容超过第12行时,再输入下面的内容看不到了,要拉滚动条才行,怎样现实滚动条随单元格移动,这样超过12行的...
  • VB6模拟按钮的实现

    千次阅读 2011-04-23 11:45:00
    Image 自绘按钮 StdPicture ScaleX ScaleY
  • VB在运行时改变窗体的一些属性,在运行时可以改变窗体标题、是否显示最大化、最小化以及工具栏窗口,是否在最前端显示,是否允许移动,或者是在任务栏显示,是否能够控制菜单与按钮。还可以设置两项行为:是否是...
  •  只要是Explorer窗口发生变化的事情都可以记录...(如重命名/移动/创建/删除任何一 个文件或文件夹,改变一个文件的关联,插入/取出光盘,增加/删除一个网络共享,等等...)所有的shell notifications 将会在这里列表.....
  • vb 运行后拖动控件

    2019-09-25 11:57:25
    VB不用API在EXE运行时自由移动窗口上的控件代码: Dim moving As Boolean, X1 As Integer, Y1 As Integer Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '鼠标...
  • 界面编程,滑块 一个比较简单的VB滑块应用源码,演示了如何在VisualBasic6.0窗口应用程序加入一个滑块的功能,用鼠标拖动滑块,模拟出了滑块所起到的作用,在文本框输入0——100的数字,点击“移动按钮后,...
  • vb3.0 升级vb6.0 I'm currently working for a company where I have to upgrade over 50 VB6 programs to VB.NET 2008. So far I'm about half way through, and I've learned quite a few tric...
  • VB中对EXCEL的各种操作

    万次阅读 多人点赞 2017-02-08 15:20:15
    VB操作excel方法汇总 Private Sub Command3_Click()    Dim i As Long  Dim j As Long  Dim objExl As Excel.Application '声明对象变量  Me.Mouse...
  • 本源码向你展示了制作悬浮窗口的方法和完整的实例代码,这个悬浮的窗口显示于其它窗口的最顶层,不被遮挡,窗口按钮可调用出对应的操作菜单,和现在的搜狐输入法窗口十分相似,本源码是VB6代码,非VB.NET。...
  • vb捕获键盘按键和鼠标坐标位置,监测鼠标的位置和鼠标按键的名称,如窗体所示,随意移动鼠标,即可适时显示出鼠标坐标,若敲击键盘,则会获取到哪一个键被按下,两个功能的代码写在按钮事件,获取鼠标XY坐标位置:...
  • VB源码,图形处理,图像缩放 一个很好用的高级的图片浏览缩放控件,支持浮动图片缩放按钮、鼠标拖动、滚动条移动等功能,适时显示鼠标定位点在图片上的位置,基本上图片预览的功能都具备了,直接添加到工程使用,...

空空如也

空空如也

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

vb中移动按钮的代码