-
VB SetWindowRgn创建椭圆形窗口
VB创建一个个性化的椭圆形窗口界面，使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性，可以使程序更具吸引力。见惯了方方正正的矩形窗体，椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体，运行程序，窗体为椭圆形，单击窗体，即可退出程序。
- 2022-10-27 20:55:03下载
- 积分：1
-
VB 记录鼠标行为，判断左键右键
VB 记录鼠标行为，记录用户是单击了鼠标右键或是左键，监控鼠标被单击了哪个键，核心的代码如下：
If GetAsyncKeyState(VK_LBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标左键 "
ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then
Text1.Text = Text1.Text + " 鼠标右键 "
End If
- 2022-02-28 11:29:47下载
- 积分：1
-
VB 6.0 动态改变图表的比例
VB 6.0 动态改变图表的比例,改变图表的视图比例,默认是0.7,点击确认按钮后,图表会变大显示,减小数字,图表会紧接着变小.看了下代码,里面就是一行代码搞定:
MSChart1.RowLabel = ""
不过这个功能还是很实用的,当视图内容比较多的时候,图表显示的比较小,用这个功能可将图表放大显示.
MSChart主要用来生成一些简单的图表，包括饼图、曲线图、柱状图等，较复杂的图表就需要借助三方控件了。
- 2022-03-07 00:11:30下载
- 积分：1
-
vb 将数字格式化为金额
vb 将数字格式化为金额，这个更像是一个自动计算程序，根据用户输入的单位、数量、价格等参数，自动计算出金额，这才是程序要表达的功能，相差代码：
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
If Index = 3 Then Text1(3) = Format(Text1(3), "0.00")
End Sub
- 2023-01-25 23:50:04下载
- 积分：1
-
一个使用Winsock控件的VB典型范例
一个使用Winsock控件的VB典型范例，架构为CS结构，由服务端和客户端组成，两者都运行后，可互通消息。调试步骤：
1）打开服务器端的“工程1.dsw”工程
2）点击运行按钮。
1）打开客户端的“工程1.dsw”工程
2）点击运行按钮。
3）此时服务器端和客户端已经建立连接
4）在服务器和客户端分别输入任何内容，另一端将会收到该内容并显示出来。
说明：必须先运行服务器端工程，再运行客户端工程。
- 2022-03-17 18:04:14下载
- 积分：1
-
VB 使用鼠标分割窗体的Split实例源码
VB6.0 使用鼠标分割窗体，用鼠标切分主窗体，实现SplitForm，可以用鼠标切分的窗体，在一些流行的应用程序中，经常见到窗体上有二个相邻的列表框，可以用鼠标任意拉动中间分割条，改变列表框的大校
演示窗口其实是一个布满了各种导航菜单的窗口，这也是大家学习的一个亮点哦，作为一个信息管理系统的主界面效果还是相当不错的，分隔窗体在很多时候我们也用得上的。
- 2022-08-08 21:38:42下载
- 积分：1
-
vb.net 故意引发错误演示全局异常捕获处理
本程序主要是演示vb.net全局错误异常消息的捕获处理，程序运行后故意引发错误，并弹出消息处理框，类似于在VB.NET调试器中显示的错误消息，指出错误原因、错误位置和具体代码，方便程序员对错误及时纠正处理，程序运行效果如图所示。
- 2022-09-01 05:15:03下载
- 积分：1
-
VB6.0 屏幕滚动字幕（文字滚动）
VB6 屏幕滚动字幕，这个文字滚动区域被控制在屏幕的右下角，由右向左开始滚动，中间的高度可以调节，通过调节Me.Top = Screen.Height - Me.Height - 800参数，来改变文字滚动区域距离屏幕顶部的距离，文字滚动的实现是基于计时器和循环来实现，下面的代码可为你提供本效果的实现思路：
Label1.Caption = "这里定义需要滚动的文字内容： 用VB制作的文字滚动效果！"
Me.Left = Screen.Width
Me.Top = Screen.Height - Me.Height - 800
BeginPath Me.hWnd
SetBkMode Me.hWnd, TRANSPARENT
EndPath Me.hWnd
rgn = PathToRegion(Me.hWnd)
SetWindowRgn Me.hWnd, rgn, True
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Left = Me.Left - 100
If Me.Left < Label1.Width * (-1) Then
Timer1.Enabled = False
Me.Left = Screen.Width
Timer1.Enabled = True
End If
End Sub
- 2022-05-21 14:58:30下载
- 积分：1
-
vb RTrim()去除字符串行尾空格
vb 演示如何去除字符串结尾空格，把输入框中的含有空格的字符串，全部过滤掉空格，这个源码似乎有上结简单了，使用RTrim()，一行代码即可搞定：
Private Sub Command1_Click()
Text2.Text = RTrim(Text1)
End Sub
主要是使用了RTrim()函数，这个函数不只是过滤行尾空格，也会将字符串中间空格过滤掉。
- 2022-10-07 20:30:03下载
- 积分：1
-
窗体分割 窗口分栏程序- vB版
窗体分割 窗口分栏程序- vB版，这个可将窗口分为上下部分、左右部分，可分成二栏、三栏，通过程序左侧的参数设置面板，决定程序窗口要经过怎么的切割。本源码同样来自于国外源代码网站。代码注释英文，这里就不帖代码，你可以单击页面底部的“下载源码”按钮，下载本窗口切割实例的完整源码。
- 2022-09-05 06:00:03下载
- 积分：1
