mine.rar - VB6.0 自写的扫雷源码，是不是很熟悉的感觉？以前发过比较多的扫雷游戏的代码了，这个看上去有点专业了，适时显示分数，源代码可读性较高，VB程序源码。,2020-10-27 14:53:34,下载0次
ImgCombo.rar - VB ImgCombo带图像的Combo下拉框，给下拉框的各个下拉项前面添加一个小图标，比如本实例中，列出所有盘符，但是在前面会增加一个硬盘的图标，这样更形象一些，提升软件使用体验，通过本源码，你将会学会这种图标的添加方法。
注：本源码来自国外，早些年的代码，注释是英文。,2020-10-27 14:46:59,下载0次
字形窗口.rar - VB 6.0字形窗口 轮廓字体 遮罩文字特效，
Private Sub Form_Load()
Dim dc As Long, mw As Long
Dim NewFont As Long, OldFont As Long
dc = Me.hdc
NewFont = CreateFont(200, 90, 0, 0, FW_HEAVY, 1, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, _
CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH Or FF_SWISS, "楷体")
BeginPath dc '开始记录窗体轮廓路径
SetBkMode dc, TRANSPARENT '设置背景为透明模式,这是必须有的
OldFont = SelectObject(dc, NewFont)
TextOut dc, 0, 0, "VB6", 3
SelectObject dc, OldFont
EndPath dc '结束记录窗体轮廓路径
mw = PathToRegion(dc) '把所记录的路径转化为窗体轮廓句柄
SetWindowRgn Me.hWnd, mw, True '赋予窗体指定的轮廓形状
End Sub,2020-10-27 14:43:05,下载0次
YY万年历.rar - 一个基于VB 的万年历，万年历日历中显示节日、农历、星座等信息，可前进、后退查看某一天信息。编写时候用到了不少VB类，源码公开，对学习来说相当有参考价值。
Private Sub Image2_Click(Index As Integer)
Select Case Index
Case 0 '减
If WNL_Pic_int = 1 Then WNL_Pic_int = 15 Else WNL_Pic_int = WNL_Pic_int - 1
Me.Picture = LoadPicture(App.Path & "\BackBmpWNL\WNL_" & Format(WNL_Pic_int, "00") & ".jpg")
Case 1 '加
If WNL_Pic_int = 15 Then WNL_Pic_int = 1 Else WNL_Pic_int = WNL_Pic_int + 1
Me.Picture = LoadPicture(App.Path & "\BackBmpWNL\WNL_" & Format(WNL_Pic_int, "00") & ".jpg")
End Select
WriteIniStr "XJ_BHSet.ini", "软件设置", "万年历背景图", WNL_Pic_int,2020-10-27 14:32:43,下载0次
IP地址.rar - VB Socket获取主机名和IP地址，获取主机名是使用了VB中的GetComputerName直接得到，然后对Socket初始化，使用gethostbyname取得主机地址，再获取到IP后进行转化为标准的IP格式。转换过程如下：
RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host.hAddrList, 4
ReDim temp_ip_address(1 To host.hLength)
RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength
For i = 1 To host.hLength
ip_address = ip_address & temp_ip_address(i) & "."
Next i
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
MsgBox "IP:" + ip_address,2020-10-27 14:26:37,下载0次