常用编程原码收集（一）VB6防止程序重复打开的代码IfApp.PrevInstance=TrueThenEnd文本框中怎么调用或删除某个字符串之前或之后的内容PrivateSubCommand1_Click()DimsAsStrings="科杰"ar=Split(Text1.Text,s)Text2.Text=ar(0)'ar(0)就是科杰前的字符,ar(1)就是科杰后的字符EndSubvb全选TEXTBOX的内容PrivateSubText1_Click()Text1.SelStart=0Text1.SelLength=Len(Text1)EndSubVB6中既不想显示标题栏,又让程序在任务栏显示的方法frombordersyle设为0时没有标题栏，但任务栏上也没了显示而设为其它又有标题栏，怎么办？只要再重新把窗体属性ShowInTaskbar改回true就行了一个textbox，一点击它就将里面的内容复制到剪切板中PrivateSubText1_Click()IfText1.Text<>""ThenClipboard.ClearClipboard.SetTextText1.Text'复制Text2.Text=Clipboard.GetText()EndIfEndSub用什么代码可以读取远程位置文件中的内容首先程序运行时先判断www.abc.com下是否有一个file.txt文件（实际位置www.abc.com/file.txt）如果有程序窗体中一个文本框显示出这个文件中的内容Text1=Inet1.OpenURL("http://www.pc354.com/file.txt")IfInet1.StillExecutingThenDoEventsEndIf用VB6怎么读取某个文件中的内容并用文本框显示出来一个窗体中有一个文本框有一个文件c:\abc\file.txtfile.txt中写着一段话（如“感谢朋友的帮助”）现在要实现的效果就是窗体运行时文本框中即显示出file.txt中的内容来'SetPropertyMultiLineofText1toTruePrivateSubForm_Load()DimBuffer()AsByteOpen"F:\Backup\ghm_working_data\SKILL\文件系统\SetFileTime.txt"ForBinaryAs#1ReDimBuffer(LOF(1)-1)Get#1,,BufferClose#1Text1=StrConv(Buffer,vbUnicode)EndSubvb6中验证一个文件是否存在的代码ifdir("d:\a.exe")=""thenmsgbox"没有文件"elsemsgbox"有文件"endif---------iflen(dir("d:\a.exe"))<=0thenmsgbox"没有文件"elsemsgbox"有文件"endif一个textbox，一个按钮，用什么代码一点击这个按钮就将textbox中的内容自动保存为file.txtopen"c:\file.txt"foroutputas#1print#1,text1.textclose#1文件件名扩展名随便定将一个文件从一个位置复制到另一个位置的代码比如在同执行程序同目录中有一个abc.exe，在执行这个程序时将这个abc.exe复制到系统system32目录中怎么编？FileCopyApp.Path+"\"+"abc.exe",SYSDIR－－》FileCopyApp.Path+"\"+"abc.exe",SYSDIR&"\abc.exe"源码：如何让一个App永远保持在最上层请在声明区中加入以下声明PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongConstSWP_NOMOVE=&H2'不更动目前视窗位置ConstSWP_NOSIZE=&H1'不更动目前视窗大小ConstHWND_TOPMOST=-1'设定为最上层ConstHWND_NOTOPMOST=-2'取消最上层设定ConstFLAGS=SWP_NOMOVEOrSWP_NOSIZE'将APP视窗设定成永远保持在最上层SetWindowPosMe.hwnd,HWND_TOPMOST,0,0,0,0,FLAGS'取消最上层设定SetWindowPosMe.hwnd,HWND_NOTOPMOST,0,0,0,0,FLAGS设定一个可以随时调用的功能（比如有两个按