189 8069 5689
指导意见：
成都创新互联公司服务项目包括青河网站建设、青河网站制作、青河网页制作以及青河网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，青河网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到青河省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
你好，不要盲目服用，建议结合当地临床医生和自身状态积极对症治疗，不要盲目的用药治疗！祝你健康
使用api
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
.net 为了安全，默认不允许跨线程访问操作控件。只能谁创建了控件，谁操作。
这个textbox只能从主线程访问。
解决方案一般有两个
1. 使用委托机制。委托创建线程去访问
2. 设置Me.CheckForIllegalCrossThreadCalls = False 表示不检测跨线程错误
好像不难吧？
我放进了Button1的Click事件里。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo Errmessages '在做系统操作时加排错标签是个好习惯
Dim TargetName As String = "ibmdict" '存储进程名为文本型，注：进程名不加扩展名
Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '从进程名获取进程
Dim TargetPath As String '存储进程路径为文本型
If TargetKill.Length 1 Then '判断进程名的数量，如果同名进程数量在2个以上，用For循环关闭进程。
For i = 0 To TargetKill.Length - 1
TargetPath = TargetKill(i).MainModule.FileName
TargetKill(i).Kill()
Next
ElseIf TargetKill.Length = 0 Then '判断进程名的数量，没有发现进程直接弹窗。不需要的，可直接删掉该If子句
MsgBox("没有发现进程！")
Exit Sub
ElseIf TargetKill.Length = 1 Then '判断进程名的数量，如果只有一个，就不用For循环
TargetKill(0).Kill()
End If
MsgBox("已终止" TargetKill.Length "个进程") '弹窗提示已终止多少个进程
Errmessages: ‘定义排错标签
If Err.Description Nothing Then ’判断有无错误，如果有，则 ↓
MsgBox(Err.Description) '当出现错误时，弹窗提示
End If
End Sub
可根据需要自行修改，这个备注够完善了吧？不会的再Hi我。
这样的话你就不要直接把子窗口show出来，先在父窗口创建一个子窗口对象的变量，通过实例化该变量达到创建子窗口的目的，然后在下次又要打开子窗口时也可以通过该变量关闭原有的子窗口
示例代码如下(假设Form1为父窗口，Form2为子窗口):
Form1的代码:
Public
Class
Form1
Dim
nform
As
Form2
=
Nothing
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
If
nform
IsNot
Nothing
Then
nform.Close()
nform.Dispose()
End
If
nform
=
New
Form2
nform.Show()
Me.Hide()
End
Sub
End
Class
通过nform变量，你可以很轻易就处理掉原来已经打开但隐藏着的子窗口了