vb.net计算窗口 vb的窗口

vb.net怎么枚举父窗口下所有子窗口

Dim HanStr As String = ""

For Each Form In Me.MdiChildren

HanStr += Form.Handle.ToString

Next

MsgBox(HanStr)

相关问答

Q1: 求助大神vb.net窗口数值调用

分析：窗体之间的数值传递有3种方案。分别是通过公共变量、接口和事件委托。我给你说说通过接口来在窗体之间传递数据吧。

显示"第一位成绩":从form2传值到form1,显示排序，需要传递一个datatable.

为了方便起见，这两个数据都从datatable里面来。

1、首先定义一个公共接口（新建项）（假设传递的是

Public Interface ITransferText

Sub 数据传输(ByVal tText As datatable)

End Interface

2、在form2和form3中加入代码：

Private 数据发送 As ITransferText

Sub New(ByVal iTrans As ITransferText)

Me.iTransferLink = iTrans

InitializeComponent()

End Sub

‘在form2和form3的一个按钮事件中加入：

数据发送.数据传输(dt)

me.dispose

'当然，你需要在这之前将需要传输的东西装类型为datatabe的变量dt中。

3、在form1中加入代码：

（1）Public Class Form1

Implements ITransferText

（2）、sub…点击后form2显示，通过form2操作生成第一位成绩事件…

Dim newFrm As New Form2(Me)

newFrm.Show()

end sub

、sub…点击后form3显示，通过form3操作生成绩列表，然后传递…

Dim newFrm As New Form3(Me)

newFrm.Show()

end sub

（3）当然你还需要在form1中用个方法实现接口

Sub 数据接收(ByVal dt As datatable) Implements ITransferText.数据传递

这里如果dt只有1行1列就更新你的第一名成绩

如果多行，就再你的form1上显示这个表dt就行了。

end sub

Q2: VB.NET即时窗口快捷键

VB.NET即时窗口用于在设计时调试和计算表达式、执行语句、输出变量值等

快捷键是vb.net计算窗口：CTRL+G 或者按 CTRL+ALT+I

Q3: 用VB.NET做一个简单的计算器，当然是做的越高级越好，不要生成的EXE。连程序一起发过来。采纳追加500分！

计算机光要加减乘除的那种吗？

先在窗口添加一个textbox文本框名字是textbox1vb.net计算窗口，再添加一个标签vb.net计算窗口，属性text：（为一个空格）名字是label1，再加一个textbox文本框，名字是textbox2，加标签，名字是label2，属性text：“=”（引号不算），在后面加一个文本框，名字为textbox3.下一行添加五个按钮，名字分别是Button1（属性text：加），Button2（属性text：减）.……最后一个是，清空，按钮

双击Button1，输入代码：dim a,b,c as single(回车!)a=textbox1.text(!)b=textbox2.text（!）a+b=c(!),textbox3=c(!)

后面分别点击不同的按钮，把“+”改成“-”，“*”“/”行了

双击最后按钮输入textbox1=""(!)textbox2=""(!)textbox3=""就ok了，累死vb.net计算窗口我了呵呵（vb.net计算窗口！）表示回车昂

Q4: VB.NET想用GetWindowRECT获取某窗口的坐标，但测试结果是L,T,R,B显示都是0,0,0,0

很简单，原因有二。第一，VB里long是32位，但是VB.NET里是64位，Dim ksWND As Integer才对。第二，VB在API里默认传址，而VB.NET默认传值，所以API里要添加Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,添加"ByRef" lpRect As RECT) As Integer

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,byref lpRect As RECT) As Integer

Private Structure RECT

Dim Left As Integer

Dim Top As Integer

Dim Right As Integer

Dim Bottom As Integer

End Structure

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim ksWND As integer

Dim ksTitle As String

Dim winS As RECT

If TextBox1.Text "" Then

ksTitle = TextBox1.Text

ksWND = FindWindow(vbNullString, ksTitle)

GetWindowRect(ksWND, winS)

MsgBox("左上角坐标(" winS.Left "," winS.Top ")" vbCrLf "右下角坐标(" winS.Right "," winS.Bottom ")" vbCrLf "窗口高" winS.Bottom - winS.Top "窗口宽" winS.Right - winS.Left)

Else

MsgBox("请填写窗口名称")

End If

End Sub

vb.net计算窗口的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb的窗口、vb.net计算窗口的信息别忘了在本站进行查找喔。