以下是实现的代码:
PrivateSubCommand1_Click(IndexAsInteger)
StaticaAsInteger
Ifa<>0ThenCommand1(a-1).Enabled=True'用于恢复按钮可用
Command1(Index).Enabled=False
a=Index 1
EndSub
注:变量a主要是用来存储上一次单击的按钮Index,至于a-1和a 1是为了避免当单击index为0时的按钮时,会出现问题,所以用此法避开了
vbBinaryCompare 0 执行二进制比较F2 {F2}
.sckClient.RemotePort=88917'远程端口,就为server中的设置一样.
EndWith
EndSub
PrivatesubcmdConnect_Click()
SckClient.Connect
Endsub->
至此,单击Connect按钮我们的两个工程已经可以进行通信了,但看不见,你可以在Client中的sckClient_Connect事件中加入代码:debug.print“Connetionsuccessful!”来查看
”参数2:表示“ForWriting:可读,可写->PublicSubFillList(ListControlAsListBox,ParamArrayItems())
DimiAsVariant
WithListControl
.Clear
ForEachiInItems
.AddItemi
Next
EndWith
EndSub
PrivateSubCommand1_Click()
FillListList1,"TiffanyT","MikeS","RochesterNY"
EndSub->->
然后
1.使用软件禁用注册表
比如:(此间文字由系统自动屏蔽)
2.通过.reg文件
把下面的内容保存为lock.reg,双击后,注册表禁用
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableRegistryTools"=dword:00000001
3.在Windows2000/XP/2003中,运行Gpedit.msc,打开“组策略”
3.在这个AdoData控件的RecordSource属性中输入一条将返回一个记
录集的SQL语句
strComputer="."
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_DesktopMonitor",,48)
For Each objItem in colItems
WScript.Echo "ScreenHeight: " & objItem.ScreenHeight
WScript.Echo "ScreenWidth: " & objItem.ScreenWidth
Next
拍摄网红街VisualBasic中的数据控件(datacontrol)能连接众多的数据库源并且操纵简便,用来开发数据库管理应用程序,可以轻而易举地完成以前需要大量编写程序才能完成的任务
传说声明变量是个良好的编程习惯,于是改成
这次居然不报错了。