添加
兩個TEXT(multiline=true)
一個按鈕
Private Function isChinese(ByVal asciiv) As Boolean a = AscW(asciiv) If Len(Hex$(a)) > 2 Then isChinese = True Else isChinese = False End If End Function Private Sub Command1_Click() text2.text="" '先清空text2 For i = 1 To Len(Text1.Text) DoEvents If isChinese(Mid(Text1.Text, i, 1)) = True Then Text2.Text = Text2.Text & "" Else Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) End If Next MsgBox "替換完畢" End Sub
http://d.download.csdn.net/down/1160480/woldy
一個CommonDialog,一個CommandButton,一個PictureBOX Option Explicit Private Declare Function DrawIcon Lib "user32" (ByVal hdc
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Priv
http://topic.csdn.net/t/20060401/19/4656391.html Private Declare Function
http://topic.csdn.net/t/20050528/12/4041955.html http://download.csdn.net/down/2021631/huleidong Attribute VB_Name =