vb 6.0
xjnzhidao
这个作者很懒,什么都没留下…
展开
-
win7/8/8.1/10 64位正确安装vb6.0的方法
在64位系统中,按照通常的方法安装VB 6.0,会发现安装到最后一步,安装程序会失去响应。并且重启后没有进一步的设置,而且控制面板的添加/删除程序中也没有VB6的影子。运行VB6环境后,所有的第三方控件无法使用。但是按照下面的方法就不会出现以上问题:工具/原料VB6.0安装包thunder://QUFodHRwOi8vZnRwLmNvZGVwdWIuY29t原创 2015-08-13 20:30:07 · 4152 阅读 · 0 评论 -
VB6 获取内存、硬盘、CPU使用率信息
Public Function 内存信息() As String Set objWMI = GetObject("winmgmts:\\" & "." & "\root\cimv2") Set colOS = objWMI.InstancesOf("Win32_OperatingSystem") For Each objOS In colOS 总内存 = Ro原创 2015-08-30 16:06:43 · 2878 阅读 · 0 评论 -
VB6获取本机网络适配器信息(网卡名称、IP地址、子网掩码、默认网关等)
Function PrintAll_NICAdapter_information() Dim NIC_Info As String strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.E原创 2015-08-30 16:09:06 · 4572 阅读 · 0 评论 -
VB6围棋:窗体画线和画圆的应用
Option ExplicitDim qipan(1 To 19, 1 To 19) As Integer '棋盘数组,0:无 1:黑子 2:白子Private Sub Form_Load()Me.AutoRedraw = TrueEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single,原创 2015-08-30 16:11:48 · 2321 阅读 · 0 评论 -
VB6源代码--A*最短路径算法(AStar Shortest Path Finder)
'--------Form1代码--------------Option ExplicitDim Running As BooleanDim Done As BooleanPrivate Sub Game_Loop() Collision_Detection Get_Player_Info Get_Sprite_Info Mons原创 2015-09-28 15:36:52 · 1500 阅读 · 0 评论