-
VB.NET邮件发送实例 可发附件
VB.NET编写支持发送附件的邮件发送实例，本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类，这里使用了SmtpClient 类发送电子邮件，可设置允许添加的附件类型，支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式，为了避免程序出错，在本程序刚启动时，帐号、密码框暂时不可用。
- 2022-08-15 21:36:57下载
- 积分：1
-
VB6 获取当前打开窗口数量
VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码：
Private Sub Command1_Click()
Form2.Show
Call Form_Activate
End Sub
Private Sub Form_Activate()
Text1.Text = DoEvents()
End Sub
- 2022-07-19 06:40:19下载
- 积分：1
-
磁性窗体 VB简单实现方法举例
VB简单实现磁性窗体，将窗体粘合，子窗体连接的任何窗体都粘合上，获取所有窗体的矩形区域，并重新设置粘合，连接窗体上的矩形。这种窗口多见于一些影音视频播放软件中，比如播放列表快接近播放主窗口时，自动吸附到主窗口上，紧贴主窗口边缘，像是有种磁性一样吸附在一起，本窗口中的三个子窗口，都具有自动吸附的磁性感觉，有兴趣可下载本源码学习测试。
- 2022-01-21 20:24:46下载
- 积分：1
-
VB将程序图标添加到托盘
VB将程序图标添加到托盘，任务栏的系统托盘上有本程序的图标，并可通过图标的右键菜单，调出程序主窗口、退出关闭程序等功能，是一种比较常见的添加系统托盘的示例。
- 2022-03-24 10:49:35下载
- 积分：1
-
vb6 批量生成证书、房屋等编号
vb6 批量生成证书、房屋等编号，学会了本例子，是个比较实用的技巧，在一些需要批量生成编号的地方，你都可以借鉴本程序，来实现编号生成，在本例中，是批量生成房屋的编号，用户可选择楼层范围、单元范围等参数后，即可快速生成编号。十分方便哦。这个小程序从界面和功能易用上来说，都设计的都好用的。
- 2022-10-19 14:10:03下载
- 积分：1
-
VB6.0 添加、修改、删除数据库指定表
VB6.0 添加、修改、删除数据库指定表，添加、修改、删除作者表，VB6.0 添加、修改、删除数据库指定表。
- 2022-08-15 01:24:59下载
- 积分：1
-
VB MSChart图表控件实例:柱状图的实现
VB 柱状图生成的例子,看看,是不是很实用的图表效果,这种图表也叫做直方图表,这是纵向的,也有横向的柱状图.本柱状图的生成是使用了Vb内置的微软图表控件MSChart控件,因此可看作是此控件的应用范例.
- 2022-04-15 23:55:01下载
- 积分：1
-
vb实现调用其他应用程序的菜单
vb演示如何调用其他应用程序菜单的方法，程序演示了在VB程序中，调用 windows记事本程序的菜单，不过测试发现，本程序在Windows 7中失效了，本代码写于2010年的，有些早了，当时可能只考虑了Windows XP，可能需要对以下代码加以修正，才能适用于windows 7/10环境：
hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单")
If hwnd = 0 Then Exit Sub
hMainMenu = GetMenu(hwnd)
hMenu = GetSubMenu(hMainMenu, 0)
MenuID = GetMenuItemID(hMenu, 3)
AppActivate "无标题 - 记事本菜单"
Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)
- 2022-06-26 16:44:01下载
- 积分：1
-
VB求解数学问题，求两个数最大公约数
VB6.0演示一个求解数学问题，求两个数最大公约数，这是个简单的数学问题，数学基础好，用VB很轻松就编写出本程序了。在运行的窗口中，分别输入两个整数，单击按钮，程序将显示两个数的最大公约数是多少。求解的过程代码描述如下：
If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then
MsgBox "输入的数0或溢出，请重新输入！"
MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < n Then
temp = m: m = n: n = temp
End If
Do
r = m Mod n
m = n
n = r
Loop While r 0
Label3.Caption = "两个正整数m和n的最大公约数为: " & m
End If
- 2022-07-16 14:37:29下载
- 积分：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
