VB常用编程原码收集

在VB6编程中，开发者经常会遇到各种操作，如防止程序重复打开、处理字符串、控制界面显示、读写文件以及文件操作等。以下是一些相关的知识点和示例代码： 1. **防止程序重复打开**： 当VB6应用程序已经运行时，如果再次尝试打开，通常希望阻止这种情况。可以检查`App.PrevInstance`属性来实现这一功能： ```vb If App.PrevInstance = True Then End End If ``` 2. **字符串操作**： - 分割字符串：使用`Split()`函数可以方便地获取字符串前后的内容。 ```vb Private Sub Command1_Click() Dim s As String s = "科杰" Dim ar() As String ar = Split(Text1.Text, s) Text2.Text = ar(0) ' 科杰前的字符 Text3.Text = ar(1) ' 科杰后的字符 End Sub ``` - 全选TextBox内容： ```vb Private Sub Text1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1) End Sub ``` 3. **控制窗口样式**： - 隐藏标题栏但显示在任务栏：设置`BorderStyle`属性为0以隐藏标题栏，然后设置`ShowInTaskbar`属性为True。 ```vb Form1.BorderStyle = 0 ' 隐藏标题栏 Form1.ShowInTaskbar = True ' 显示在任务栏 ``` 4. **复制TextBox内容到剪贴板**： ```vb Private Sub Text1_Click() If Text1.Text <> " " Then Clipboard.Clear Clipboard.SetText Text1.Text ' 复制 Text2.Text = Clipboard.GetText() ' 获取剪贴板内容 End If End Sub ``` 5. **读取远程文件内容**： 使用`Inet1.OpenURL()`方法可读取HTTP URL上的文件内容： ```vb Dim fileContent As String fileContent = Inet1.OpenURL("http://www.pc354.com/file.txt") Text1.Text = fileContent ``` 6. **读取本地文件内容**： 使用`Open`、`Get`和`Close`语句读取文件内容： ```vb Private Sub Form_Load() Dim Buffer() As Byte Open "F:\Backup\ghm_working_data\SKILL\文件系统\SetFileTime.txt" For Binary As #1 ReDim Buffer(LOF(1) - 1) Get #1, , Buffer Close #1 Text1.Text = StrConv(Buffer, vbUnicode) End Sub ``` 7. **验证文件是否存在**： `Dir()`函数可用于检查文件是否存在： ```vb If Dir("d:\a.exe") = "" Then MsgBox "没有文件" Else MsgBox "有文件" End If ``` 8. **保存TextBox内容为文件**： 可以通过`Open`、`Print`和`Close`语句将TextBox内容写入文件： ```vb Private Sub SaveToFile_Click() Open "c:\file.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub ``` 9. **复制文件**： 使用`FileCopy`语句可以将文件从一个位置复制到另一个位置： ```vb FileCopy App.Path & "\abc.exe", SysDir & "\abc.exe" ``` 以上是VB6编程中常见的操作，它们可以帮助开发者实现各种功能，包括界面交互、文件操作和字符串处理。在实际编程中，可以根据需求进行适当的调整和组合。