重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
首先声明一下API
成都创新互联专业IDC数据服务器托管提供商,专业提供成都服务器托管,服务器租用,达州服务器托管,达州服务器托管,成都多线服务器托管等服务器托管服务。
在你窗口最顶的位置上写上
Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'由于VB支持中文的 我就定义成 取窗口句柄 这个了
'在窗体中添加一个按钮里面放进下面代码就OK了
Private Sub Command1_Click()
Dim 窗口句柄 As Long '声明窗口句柄变量存储
窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文档.txt - 记事本") '取窗口标题的句柄 把得到窗口标题句柄赋予给刚才 窗口句柄 这变量里
If 窗口句柄 = 0 Then '判断窗口句柄是否等于0 如果等于0表示无法找到窗口句柄
MsgBox "无法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄数为:" 窗口句柄
End If
End Sub
将NewForm设置为全局变量就可以了,如果新建窗口比较多,就设置为数组,例如:
Public Class Form1
Dim NewForm(10) As Form
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
NewForm(0) = New Form
NewForm(0).Show()
End Sub
End Class
如果我没理解错:
Form1(下窗体) Form2(上窗体)
且已在Form1中声明了Form2
那不直接就可以在Form2中控制Form1的控件的值咯?
哦,明白了!
你是想不动Form2找到值后就高亮显示出来查询结果?
那还不简单,在Form2里边加上me.Topmast=True让Form2位于顶层
前提是你的Form1里的文本控件可实现选择效果,如RichTextBox,
在Form2中找到结果后写入 Form1.RichTextBox1.Select( start , Length),选则结果文本就可以高亮了,这样就实现了Form2 不关闭,且Form1 显示结果。
您是想问vb.net查找未使用的函数方法吗?vb.net查找未使用的函数方法是:
1、在VS.NET中右键单击主RESX文件,然后从上下文菜单中选择FindUsages。
2、双击解决方案窗口中的每个匹配项,这将打开包含该资源的源代码窗口。
3、在源代码窗口中重命名此资源,它将弹出ReSharper的“重命名资源”对话框。
4、它将重命名资源和自动生成的C#包装器/访问类。
5、对"Usages“窗口中的所有资源重复上述步骤2、3和4。
6、在VisualStudio的资源编辑器中打开RESX文件,并选择所有不带前缀的文件。
7、您最终得到了一个RESX文件,其中有未使用的函数。
我刚写好的,获取任务栏中已运行的程序。
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each p As Process In Process.GetProcesses
If p.MainWindowTitle "" Then ListBox1.Items.Add(p.MainWindowTitle)
Next
End Sub
End Class