-
635235756
基于VB实现的QQ空间音乐搜索、试听工具.有需要的下。(Based on VB realize the QQ space music search, audio-visual tools. In need.)
- 2013-08-14 13:52:09下载
- 积分：1
-
Cad-adding
Cad中数字求和,简单实用型，可以看到累计的数(cad adding )
- 2011-01-24 11:14:44下载
- 积分：1
-
Solution1
用vb.net做的大富翁，a Console Application that models the game of Monopoly.Houses • Hotels • Rolling doubles • Players will not be allowed to sell properties once purchased. • Players may mortgage a property but it will remain mortgaged for the rest of the game. • No one will ever go to jail.(vb.net do with the millionaires, a Console Application models that the game of Monopoly.Houses Hotels## 8226 8226 8226 Rolling doubles# Players will not be allowed to sell properties once purchased.# 8226 Players may mortgage a property but it will remain mortgaged for the rest of the game.# 8226 No one will ever go to jail.)
- 2005-04-23 07:33:09下载
- 积分：1
-
CheckListCtrl
通过一个例子说明checklistctrl控件的使用方法(checklistctrl sample)
- 2017-10-31 12:19:01下载
- 积分：1
-
库存管理系统-单机版
Visual Basic VB 库存管理系统-单机版(Inventory Management System)
- 2020-06-16 14:40:01下载
- 积分：1
-
8976564675
VB显示最近打开的文件记录,有需要的就下载吧。(VB show records of recently opened files, there is a need to download it.)
- 2013-08-23 18:28:23下载
- 积分：1
-
AT24C02（消费+充值）
通过按键在数码管进行简单的充值和消费。比如数码管的数值是100，按一个按键消费10，那么按另一个按键是充值10元，(Through the button in the digital tube for simple recharge and consumption. For example, the number of digital tube is 100, the consumption of 10 by one button is 10 yuan by another key.)
- 2018-05-27 17:16:25下载
- 积分：1
-
RevSubStr
长度为N（N很大）的字符串，求最长回文串(Length N (N large) strings, find the longest palindrome string)
- 2013-09-29 11:52:47下载
- 积分：1
-
CV+MFC
说明： opencv 功能测试用例, 图像操作，(opencv function test)
- 2020-04-04 20:39:01下载
- 积分：1
-
N-sheets
以G列分成多个工作表(以宏运行VBA)
(Sub aa()
Dim a As Integer, b As Integer, c As Integer, sh As Worksheet
For a = 2 To [g65536].End(3).Row
If Cells(a, 7) <> Cells(a- 1, 7) Then
b = a
End If
c = Range("g:g").Find(Cells(a, 7), , , , , xlPrevious).Row
Set sh = Sheets.Add(, Sheets(Sheets.Count))
sh.Name = Sheets("sheet1").Cells(a, 7).Value
With Sheets("Sheet1")
Sheets("Sheet1").Range(.Cells(b, 1), .Cells(c, 10)).Copy Destination:=sh.[a2]
Sheets("Sheet1").Range("a1:j1").Copy Destination:=sh.[a1]
a = c
End With
Sheets("Sheet1").Select
Next
End Sub
)
- 2013-05-03 08:50:54下载
- 积分：1
