VB6.0无标题窗口如何移动位置

 时间:2024-10-12 11:46:40

1、启动VB6.0,建立标准exe程序

VB6.0无标题窗口如何移动位置

3、这一步要添加几个控件。在 窗体 上添加一个图片控件Picture1.在所添加的 Picture1控件 上再添加一个 Label1标签控件。特别要注意控件的位置。

VB6.0无标题窗口如何移动位置

5、'添加移动窗口的代码,这段可以直接复制进去,但呀稍微注意一下不要重复事竭惮蚕斗件Private Sub Lab髫潋啜缅el1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)LX = XLY = YBM = TrueEnd SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)MX = XMY = YIf BM = True Then Form1.Left = Form1.Left + (MX - LX) Form1.Top = Form1.Top + (MY - LY)End IfEnd SubPrivate Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)BM = FalseEnd Sub

VB6.0无标题窗口如何移动位置

7、补充说明一下,把窗口的BorderStley设置成None,在程序运行后,在任务栏上是不会显示运行的程序的,也就是电脑屏幕下方不会显示所运行的窗体,如果要显示,就要改一下窗口的ShowInTaskbar属性,改为Ture,如图。如果还不明白我的意思,可以对比一下不修改属性和修改属性后的区别

VB6.0无标题窗口如何移动位置

8、代码并不是很复杂,这是利用了Lable标签控件的几个特点,在明白了移动代码的原理之后,也可以不用Picture图片控件的,可以把Lable控件直接画在窗体上,再把Lable控件的大小设置成窗口的大小,这样就不限于只能在标题处移动窗口了。

  • vivo电子书怎么免费抽奖
  • vba 如何打开任何类型的文件
  • 如何使用ConfluenceWiki标签功能
  • excel中如何快速批量修改数据
  • 在word里如何按照姓氏笔画总数排序
  • 热门搜索
    我的世界怎么种树 杨过怎么死的 内外网同时上怎么设置 老公出轨了怎么办 防沉迷怎么解除 信用卡丢失怎么办 怎么控制食欲 爱奇艺怎么退出账号 本人简历怎么写 怎么样练腹肌