代码天下

各位vb高手： 本人想实现在文本框上单级击MOUSE右键弹出菜单，但总是 先出现windows的缺省的用于编辑文本的弹出式菜单，不知如何将其去掉？ 回答 Private Sub Text1_MouseDown(Button As Integer,...

移动文件到回收站 声明： Public Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As Long End Type Public Declare Fu...

这个方法简单得不能再简单了。只需一行语句就可搞定。 Name...

在Access97里, 我们可以开一个资料库后, 利用工具--...

利用ShellExecuteEx API函数可以调出文件的属性对话框。源代码如下： Private Type SHELLEXECUTEINFO cbSize As Long fMask As Long hWnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nS...

使用安装向导生成程序， 缺省安装目录是在 Program File 下的， 要修改该缺省安装目录，只要打开已经生成的安装文件 Setup.1st： [Setup] 中的： DefaultDir=$(ProgramFiles)\XXXXXX 把 $(ProgramFiles) 换...

以下的代码把盘中所有的目录都显示在 Listbox 中。需要一个 DriveListBox 和一个 DirListBox。如果 DirListBox 隐藏的话，处理可以快一些。 Dim iLevel As Integer, iMaxSize As Integer Dim i As Integer, j As In...

在VB中，由于随机数生成器是伪随机数，所以根据其原理可以用于文本的加密和解密，根据异或逻辑运算，加密和解密可以是同一个过程。 加密与解密函数代码如下。...

在文本框中快速增加一串字符有一种笨方法，可以让你将串字符插入文本框中文本的指定位置，那就是在插入点处将文本分割成两部分，再将要插入的字符同这两部分的文本拼接起来。...

在打印字符串时自动换行其中 len1 为打印的宽度， Str 为打印的文本。 Do While Len(Str)...