Imports System.Net.NetworkInformation 引用顶部Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butto...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TabControl2.Show() TabControl1.Hide() End Sub Privat...
Public Function GetFileName(ByVal FilePathFileName As String) As String 获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J As Integer i = Len(FilePathFileNa...
Private Shared Function SearchMidString(ByVal s As String, ByVal s1 As String, ByVal s2 As String) As String 获取搜索到的数目 Dim n1 As Integer, n2 As Integer n1 = s.In...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.Clipboard.Clear() If Me.RichTextBox1.Tex...