PublicSubFocusMe(ctlNameAsControl) WithctlName .SelStart=0 .SelLength=Len(ctlName) EndWith EndSub NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols: PrivateSubtxtFocusMe_GotFocus() CallFocusMe(txtFocusMe) EndSub->...

2018-06-17 17:16:30

UDP协议是一种无连接协议，两台计算机之间的数据传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。 由于UDP协议不需要显式的连接，就需要在两个Winsock控件中间发送数据，关键需要完成以下的三步： 1．将RemoteHost属性设置为另...

2018-06-17 17:16:30

源代码： PrivateSubCommand1_Click() Dimback back=mciSendString("CLOSENN",0,0,0) EndSub PrivateSubCommand2_Click() Dimback back=mciSendString("OPEN" App.Path "\TEST.mid" "TYPESEQUENCERALIASNN",0,0,0) back=mciSendString("PLAYNNFROM0",0,0,0) R=mciSendS...

2018-06-17 17:16:29

1．如何让文本框只接受数字？ 答：使用如下代码，在文本框的按键事件中加入： PrivateSubTextl_KeyPress（KeyAsciiAsInteger） IfkeyAscii=33Then IfKeyAscii=vbkey9AndKeyAscii=vbKey0Then Else'把KeyAscii设为0就是取消输入。 KeyAscii=0 MsgBox”不要输入数字...

2018-06-17 17:16:29

应用程序在启动和运行时需要将一些重要的信息保存起来，以便在下次启动和运行时使用。在Windows16位操作系统中，使用系统初始化文件(INI)来存取重要参数。在微软WIN95及最新的WIN98系统中，却是采用注册表来存放应用程序的启动及运行所需的重要参数。 注册表的存取方法...

2018-06-17 17:16:28

PrivateDeclareFunctionCreateDirectoryLib"kernel32"Alias"CreateDirectoryA"(ByVallpPathNameAsString,lpSecurityAttributesAsSECURITY_ATTRIBUTES)AsLong PrivateTypeSECURITY_ATTRIBUTES nLengthAsLong lpSecurityDescriptorAsLong bInheritHandleAsLong EndType S...

2018-06-17 17:16:26

一、在VB中声明API函数有两种方法：如果我们只在某个窗体中使用API函数，我们可以在窗体代码的General部分声明它： 声明的语法是： PrivateDeclareFunction... PrivateDeclareSub..... 这里必须采用Private声明，因为这个API函数只能被一个窗体内的程序所调用。 如果我...

2018-06-17 17:16:27

如果大家用过《Windows优化大师》，肯定会被它的界面所倾倒，其实利用ActiveSkin就可以办到,甚至更爽,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不爽,看看VB是怎么利用别的东东来实现的吧。 首先新建一个EXE工程，再在窗体上拖几个Label控件，看...

2018-06-17 17:16:25

----VisualBasic所附带的报表生成器-CrystalReports，功能强大，能完成大部分报表的制作。但在某些情况下，用CrystalReports却很难作出报表来。例如，根据用户输入不同的过滤(Filter)条件，将产生不同的虚拟表，此时用CrystalReports制作报表就勉为其难了，在这种情况...

2018-06-17 17:16:24

用VB编写入侵监听程序(下) 程序的代码以及说明如下： ‘本程序在VB6.0＋Windows2000下测试通过！ DimtmpstrAsString DimNOW_OUTAsInteger'总共出去连接的有几个Winsock PrivateSubCommand1_Click() ListPorts.AddItemtxtADDPORT.Text EndSub PrivateSubCommand2_Click(...

2018-06-17 17:16:23