vb.net窗體是否存在的簡單介紹

VB中如何判斷窗體是否已加載

方法1：調(diào)用API函數(shù)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 "窗體已經(jīng)被加載!", vbOKOnlyEndElseMsgBox "窗體未被加載!", vbOKOnlyEnd If方法2：訪問Forms集合，也是通過Caption判斷 '在Forms集合中進(jìn)行遍歷 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集合中進(jìn)行遍歷 For Each frmEach In Forms If frmEach.Name = frmTest.Name Then blnResult = TrueExit ForEnd IfNext

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長期合作伙伴，公司提供的服務(wù)項(xiàng)目有：域名申請(qǐng)、雅安服務(wù)器托管、營銷軟件、網(wǎng)站建設(shè)、無極網(wǎng)站維護(hù)、網(wǎng)站推廣。

VB.NET 可視化窗體應(yīng)用程序設(shè)計(jì)的時(shí)候窗體在屏幕的位置

StartPosition屬性有如下選項(xiàng)，分別含義如下：

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

CenterScreen 窗體在當(dāng)前顯示窗口中居中，其尺寸在窗體大小中指定。

Manual 窗體的位置由Location屬性確定。

WindowsDefaultBounds 窗體定位在Windows默認(rèn)位置，其邊界也由Windows默認(rèn)決定。

WindowsDefaultLocation 窗體定位在Windows默認(rèn)位置，其尺寸在窗體大小中指定。

CenterScreen的意思并不是屏幕居中(是相對(duì)的),它是在"當(dāng)前顯示窗口"中居中。當(dāng)用Show()方法時(shí)應(yīng)選擇CenterScreen,用ShowDialog()方法時(shí)應(yīng)選擇CenterParent,這樣才能讓要顯示的窗口居中。

vb.net創(chuàng)建沒有窗體的應(yīng)用

軟件bug。vb.net創(chuàng)建是會(huì)有窗體進(jìn)行應(yīng)用的，沒有應(yīng)用就是軟件bug原因，需要用戶將軟件關(guān)閉，點(diǎn)擊系統(tǒng)修復(fù)下載，再打開軟件即可。

vb.net窗體

qufulin750說的對(duì)

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

vb.net 如何判斷網(wǎng)絡(luò)地址上的指定文件是否存在

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

這是封裝在Shell32.DLL系統(tǒng)文件里的一個(gè)函數(shù)，既可以判斷本地文件是否存在，又可以判斷遠(yuǎn)程電腦上的文件是否存在。函數(shù)返回值是個(gè)Long型變量，返回兩個(gè)值0,1。1表示文件存在(True),0表示文件不存在(False)。而且只有一個(gè)參數(shù)szPath,是個(gè)字符串變量，如果要判斷本地的文件是否存在其路徑可寫為：”C:\Windows\Config\SysBook.Txt”)，如果文件在遠(yuǎn)程電腦上，其路徑可寫為（假設(shè)對(duì)方電腦IP為192.168.0.2)

"\\192.168.0.2\d$\javatools\somefile.txt",如果其電腦名為WorkStation可寫為

“\\workstation\javatools\somefile.txt"，當(dāng)然這個(gè)函數(shù)還可以查找網(wǎng)站上的網(wǎng)頁文件如：""

我們可以寫個(gè)簡單的自定義公用函數(shù)來完成這個(gè)功能，在自定義函數(shù)里調(diào)用這個(gè)API函數(shù)

Public Function GetFileExists(ByVal FileName As String) As Boolean

If FileName = "" Then

MsgBox "請(qǐng)輸入文件名", 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

當(dāng)然GetFileExists其中的參數(shù)還可以寫成

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

"\\workstation\javatools\somefile.txt"

""

這個(gè)函數(shù)除了能判斷文件是否存在外，還可以判斷本地或遠(yuǎn)程文件夾

是否存在，我覺得這要比用Dir這個(gè)VB自帶函數(shù)來判斷文件是否存在要好用多了，而且也不需要調(diào)用FileSystemObject組件來操作了。

vb.net 怎樣判斷某個(gè)窗體是否打開

Dim F1 As New Datasystem.Form2 '實(shí)例化窗體

For Each na As Form In Application.OpenForms '打開窗體的集合

If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判斷程序集的產(chǎn)品名稱和窗體名稱是否已存在打開的窗體中

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

na.WindowState = FormWindowState.Normal '還原窗體

End If

na.Activate() '激活窗體

Return '返回

End If

Next

F1.Show() '如果沒有打開的窗體中未找到，重新打開窗體

新聞名稱：vb.net窗體是否存在的簡單介紹
網(wǎng)頁路徑：http://muchs.cn/article20/hcgpco.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營銷型網(wǎng)站建設(shè)、網(wǎng)站收錄、品牌網(wǎng)站建設(shè)、微信小程序、關(guān)鍵詞優(yōu)化、外貿(mào)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)