vb.net判断信息框,vbs输入框判断

vb.net 怎样判断某个窗体是否打开

Dim F1 As New Datasystem.Form2 '实例化窗体

For Each na As Form In Application.OpenForms '打开窗体的集合

If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判断程序集的产品名称和窗体名称是否已存在打开的窗体中

If na.WindowState = FormWindowState.Minimized Then '判断窗体是否最小化

na.WindowState = FormWindowState.Normal '还原窗体

End If

na.Activate() '激活窗体

Return '返回

End If

Next

F1.Show() '如果没有打开的窗体中未找到，重新打开窗体

相关问答

Q1: vb.net文本框输入后按回车或tab判断是不是数字，不是就跳出提示框，怎么打，我哪里打错啦

你用的都是vb6的代码，改成：

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus

If IsNumeric(TextBox1.Text) = False Then

MsgBox("输入有非数字字符，请重新输入", vbOKOnly, "友情提示")

TextBox1.Focus()

Return

End If

End Sub

Q2: 请问VB.net怎样判断一个指定的Word文档是否已经打开呢？

把 objWordApp = GetObject("Word.Application")

改成 objWordApp = GetObject("", "Word.Application")，同时最好不要用

On Error Resume Next,改用

Try

Catch ex As Exception

End Try

Q3: VB.net如何判断用户是否按了inputbox对话框的取消按钮？

如果用户单击 Cancel（取消），则InputBox函数返回一个长度为零的字符串 ("")，可以根zhidao据这个情况进行判断，如果BH=""，则用户按内了“取消容”键，但如果用户把输入的内容清空，这时按“确定”和按“取消”一样，都返回一个长度为的字符串。

Q4: vb.net消息框问题

if Messagebox.show( "是否要退出？","提示" Messageboxbutton.YesNo).yes then...end ifif Messagebox.show( "是否要退出？","提示" Messageboxbutton.YesNo).no then...end if

Q5: vb.net中如何用for语句判断出8个复选框是否被选中

For i As Integer = 1 To 8

Dim TC As CheckBox = Me.Controls("ComboBox" i)

If TC.Checked Then

TextBox1.Text = TextBox1.Text "," TC.Checked.ToString()

End If

Next