VB中如何判断窗体是否已加载

方法1：调用API函数FindWindow，通过窗体的Caption属性判断 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long Dim lngAns As Long lngAns = FindWindow(vbNullString, "要查找窗体的CAPTION") lngAns = IsWindow(lngAns) If lngAns 0 Then MsgBox "窗体已经被加载!", vbOKOnlyEndElseMsgBox "窗体未被加载!", vbOKOnlyEnd If方法2：访问Forms集合，也是通过Caption判断 '在Forms集合中进行遍历 For Each frmEach In Forms If frmEach Is frmTest Then '这样判断也可以 blnResult = TrueExit ForEnd If方法3：访问Forms集合，通过name判断 Private Function IsLoad(ByVal frmTest As Form) As Boolean Dim frmEach As Form Dim blnResult As Boolean blnResult = False '在Forms集合中进行遍历 For Each frmEach In Forms If frmEach.Name = frmTest.Name Then blnResult = TrueExit ForEnd IfNext

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名申请、雅安服务器托管、营销软件、网站建设、无极网站维护、网站推广。

VB.NET 可视化窗体应用程序设计的时候窗体在屏幕的位置

StartPosition属性有如下选项，分别含义如下：

CenterParent 窗体在其父窗体中居中。

CenterScreen 窗体在当前显示窗口中居中，其尺寸在窗体大小中指定。

Manual 窗体的位置由Location属性确定。

WindowsDefaultBounds 窗体定位在Windows默认位置，其边界也由Windows默认决定。

WindowsDefaultLocation 窗体定位在Windows默认位置，其尺寸在窗体大小中指定。

CenterScreen的意思并不是屏幕居中(是相对的),它是在"当前显示窗口"中居中。当用Show()方法时应选择CenterScreen,用ShowDialog()方法时应选择CenterParent,这样才能让要显示的窗口居中。

vb.net创建没有窗体的应用

软件bug。vb.net创建是会有窗体进行应用的，没有应用就是软件bug原因，需要用户将软件关闭，点击系统修复下载，再打开软件即可。

vb.net窗体

qufulin750说的对

使用showdialog方法就行了，一般的show方法可以操作主窗体

vb.net 如何判断网络地址上的指定文件是否存在

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

这是封装在Shell32.DLL系统文件里的一个函数，既可以判断本地文件是否存在，又可以判断远程电脑上的文件是否存在。函数返回值是个Long型变量，返回两个值0,1。1表示文件存在(True),0表示文件不存在(False)。而且只有一个参数szPath,是个字符串变量，如果要判断本地的文件是否存在其路径可写为：”C:\Windows\Config\SysBook.Txt”)，如果文件在远程电脑上，其路径可写为（假设对方电脑IP为192.168.0.2)

"\\192.168.0.2\d$\javatools\somefile.txt",如果其电脑名为WorkStation可写为

“\\workstation\javatools\somefile.txt"，当然这个函数还可以查找网站上的网页文件如：""

我们可以写个简单的自定义公用函数来完成这个功能，在自定义函数里调用这个API函数

Public Function GetFileExists(ByVal FileName As String) As Boolean

If FileName = "" Then

MsgBox "请输入文件名", vbInformation, "提示"

Exit Function

Else

GetFileExists = CBool(PathFileExists(FileName))

End If

End Function

在窗体界面上加一按钮,和一文本框

Private Sub Command1_Click()

Dim T As Boolean

T = GetFileExists("F:\it\Develope\Retail\Bill\vssver.scc")

If T = True Then

Text1.Text = "该文件存在"

Else

Text1.Text = "该文件不存在"

End If

End Sub

当然GetFileExists其中的参数还可以写成

"\\192.168.0.2\d$\javatools\somefile.txt"

"\\workstation\javatools\somefile.txt"

""

这个函数除了能判断文件是否存在外，还可以判断本地或远程文件夹

是否存在，我觉得这要比用Dir这个VB自带函数来判断文件是否存在要好用多了，而且也不需要调用FileSystemObject组件来操作了。

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() '如果没有打开的窗体中未找到，重新打开窗体

名称栏目：vb.net窗体是否存在的简单介绍
标题网址：http://kswjz.com/article/hcgpco.html