登录
首页 » VB源码 » 磁性窗体 VB简单实现方法举例

磁性窗体 VB简单实现方法举例

于 2022-01-21 发布 文件大小:323.86 kB
0 137
下载积分: 2 下载次数: 1

代码说明:

VB简单实现磁性窗体,将窗体粘合,子窗体连接的任何窗体都粘合上,获取所有窗体的矩形区域,并重新设置粘合,连接窗体上的矩形。这种窗口多见于一些影音视频播放软件中,比如播放列表快接近播放主窗口时,自动吸附到主窗口上,紧贴主窗口边缘,像是有种磁性一样吸附在一起,本窗口中的三个子窗口,都具有自动吸附的磁性感觉,有兴趣可下载本源码学习测试。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB让窗口标题栏闪烁效果
    VB让窗口标题栏闪烁效果源码,不过我测试没有发现标题栏闪烁,咋回事呢?实现的思路是:声明API函数Flashwindow,然后编写下面的代码:   Call FlashWindow(hwnd, 1)   If Me.Caption = "闪烁的标题栏" Then    Me.Caption = "欢迎使用管理软件! "   Else    Me.Caption = "闪烁的标题栏-www.codesc.net"   End If
    2022-08-08 08:27:55下载
    积分:1
  • VB6.0 Mid判断指定字符串出现的次数
    VB6.0 判断指定字符串出现的次数,判断字符串A在字符串B中出现的次数,使用了VB的Mid函数来判断,如图所示的运行效果,单击按钮即可查看运行结果。代码验证判断部分,采用for循环遍历判断,代码如下:   Dim j As Integer   j = 0   For i = 1 To Len(Text1)    If Mid(Text1, i, Len(Text2)) = Text2 Then    j = j + 1    End If   Next i   Label2.Caption = "出现" & j & "次"
    2022-03-18 12:18:22下载
    积分:1
  • vb IsDate判断字符串是否为日期或时间
    vb 判断字符串是否为日期或时间,在输入框输入任意字符串类型,程序将会判断出该字符串是否是时间字符串,这个判断方法VB员自带有函数,使用IsDate即可实现,下面是使用IsDate的简单用法示例:   If IsDate(Text1) = True Then    Text2.Text = "是日期"   Else    Text2.Text = "不是日期"   End If   您也可以在本页下载完整的源码实例。
    2022-08-18 06:21:54下载
    积分:1
  • VB.NET自制的看图工具软件
    VB.NET自制图片查看器,一个看图工具软件,功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧,另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置,重画图片、绘图画面,颜色填充、窗体界面元素控制等的控制方法。。
    2022-12-25 17:15:03下载
    积分:1
  • VB.NET 超市管理系统
    VB.NET 超市管理系统,数据库基于SQLSERVER,使Label透明显示,进货管理、售货管理、价格管理、进货查询、售货查询、增加用户管理等。这个示范代码主要是演示VB与SQLSERVER数据库之间的各种操作,大部分是一些数据的基础应用。测试前请先附加好数据库,否则会弹出出错提示。
    2022-01-26 05:34:54下载
    积分:1
  • VB 控件随窗体自动调整大小
    VB 控件随窗体自动调整大小,像窗口中的ListBox、Image、FileListBox、VB.Frame控件等,都可以随窗口的大小变化而变化,当用户拖动改变窗口大小时,这些控件的大小也会随之改变,这个功能的实现得益于自定义函数Form_Resize(),用此来控制各个控件的变化,来看代码:   Dim x, y As Long   x = Form1.Width - 200 - Frame1.Width - Image1.Width   y = (Frame1.Height - Drive1.Height - Drive1.Top - 200)   Frame1.Width = Frame1.Width + x / 2   Image1.Left = Frame1.Left + Frame1.Width + 100   Image1.Width = Image1.Width + x / 2   Image1.Height = Me.Height - 600   Frame1.Height = Image1.Height   Dir1.Width = Frame1.Width - 280   File1.Width = Dir1.Width   Drive1.Width = Dir1.Width   Dir1.Height = y / 3   File1.Top = Dir1.Top + Dir1.Height + 100   File1.Height = 2 / 3 * y   此段代码被封装在按钮事件中,请参见源代码文件。
    2023-02-03 17:15:04下载
    积分:1
  • VB 使用鼠标分割窗体的Split实例
    VB6.0 使用鼠标分割窗体,用鼠标切分主窗体,实现SplitForm,可以用鼠标切分的窗体,在一些流行的应用程序中,经常见到窗体上有二个相邻的列表框,可以用鼠标任意拉动中间分割条,改变列表框的大校   演示窗口其实是一个布满了各种导航菜单的窗口,这也是大家学习的一个亮点哦,作为一个信息管理系统的主界面效果还是相当不错的,分隔窗体在很多时候我们也用得上的。
    2022-08-08 21:38:42下载
    积分:1
  • VB 调用API函数设计关于窗体
    VB 调用API函数设计关于窗体,看第一眼,我还以为是调用Windows系统的关于窗口,仔细看,定义了自己的信息,这个例子可看作是VB使用API函数的例子,了解一些用法,关于本例子中的API用法,可看以下代码:   API函数声明:   Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long   Private Sub Form_Load()    Call ShellAbout(hWnd, "源码素材网", " 欢迎访问网站:http://www.codesc.net!", Me.Icon)   调用了ShellAbout显示信息,更多内容请下载源码。
    2022-01-25 16:50:26下载
    积分:1
  • VB NET sqlserver 销售管理系统
    VB NET sqlserver 销售管理系统,销售业务,销售发货,销售退货,回款管理,统计报表,基础信息管理、系统设置、备份和恢复数据、货品基本信息管理、业务员管理等。   版权所有(C) 作者个人自由创作室   VB.NET 销售管理系统 V1.0,SQLSERVER2000数据库。
    2022-03-16 19:52:06下载
    积分:1
  • 超强的音频格式文件处理动态库
    这个代码是一个支持不同音频格式的声音动态库文件,支持声音回放、音频编码、解码。他能解码(所以也能播放)WAV, MP3, OGG Vorbis, WMA, APE和CDA, 以及编码 WAV, MP3, OGG Vorbis, WMA和APE。在音频流回放上使用了 DirectSound 8(所以你需要dx8vb.dll),支持DSP,频谱分析,可视化效果等数据控制。文件夹内的示例说明:1、通吃音乐播放器 Ver 2.0(支持播放所有格式的音频文件,支持显示文件TAG,3种可视化效果(频率、时间、dBFS显示);2、CD提取转换工具 Ver 1.0(提取CD内音轨并转换为所有的支持格式);3、音频格式文件转换器 Ver 1.0(各种音频格式的相互转换);4、简单示例(一个简单的背景回放示例)。需要说明的是其中需要的部分编解码文件需要第三方的支持,以下是下载地址: APE 和 MP3: 源码中已经包含了dx8vb.dll,编译前记得引用。
    2023-04-25 07:40:03下载
    积分:1
  • 696516资源总数
  • 106679会员总数
  • 14今日下载