給你個(gè)參考的例子,窗體打開時(shí)可能大小有變化,軟件名可能有變化
十年的彌渡網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。網(wǎng)絡(luò)營(yíng)銷推廣的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整彌渡建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)公司從事“彌渡網(wǎng)站設(shè)計(jì)”,“彌渡網(wǎng)站推廣”以來,每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
先加個(gè)控件ListBox1,運(yùn)行后雙擊ListBox1上程序名
Public Class Form1
Public myProcess() As Process
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myProcesses() As Process = Process.GetProcesses()
Dim jh As New ArrayList
For Each bs As Process In myProcesses
If CInt(bs.MainWindowHandle) 0 Then
ListBox1.Items.Add(bs.ProcessName)
jh.Add(bs)
End If
Next
ReDim myProcess(jh.Count - 1)
jh.CopyTo(myProcess)
End Sub
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Integer, ByVal nCmdShow As Long) As Integer
Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
Dim a As Process = myProcess(ListBox1.SelectedIndex)
Try
Dim dd = ShowWindow(a.MainWindowHandle, H1)
AppActivate(a.Id)
Catch ex As Exception
End Try
End Sub
End Class
最正統(tǒng)的方法是把textbox1的tabindex屬性設(shè)為0(其他控件的tabindex不能是0)
要在load事件里用textbox1.focus()也可以,但要先me.show(),否則不會(huì)起作用。因?yàn)榭丶玫浇裹c(diǎn)需要控件”可見可用“,在formload階段整個(gè)窗體是“不可見"的,需要強(qiáng)制使用me.show()。
一個(gè)時(shí)刻只有一個(gè)窗體能獲得焦點(diǎn)。關(guān)鍵是窗體收到
WM_KILLFOCUS
消息時(shí)的重繪。如果你只是想讓窗體看起來并沒有什么不同,就這樣吧。我用
VB6,所以寫的都是
API,VB.NET
的庫(kù)不是很熟,所以……將就一下吧。
調(diào)用
SetWindowLong,使窗體的消息處理鏈接到新的窗口函數(shù)
NewWndProc,然后在
NewWndProc
里檢測(cè)到
WM_KILLFOCUS
時(shí)就將其移出消息隊(duì)列即可。完畢之后調(diào)用原來的窗口函數(shù)。
不行吧,因?yàn)榈顷懙脑?,?yīng)該點(diǎn)擊登陸按鈕,然后焦點(diǎn)就跑到按鈕上了,我覺得你應(yīng)該判斷哪個(gè)Textbox沒有輸入或是輸入錯(cuò)誤,然后提示這個(gè)輸入錯(cuò)誤,再讓它獲得焦點(diǎn),沒必要像你說的那樣吧。我也新手,一起進(jìn)步~
這樣不好,應(yīng)該使用 Table 鍵,按照 Table 鍵順序來切換。因?yàn)榛剀囃脕泶_定你要按下頁(yè)面的確定按鈕。如果非要使用回車:
Private Sub 文本框按下回車鍵(sender As Object, e As KeyEventArgs) Handles TextBox3.KeyDown, TextBox2.KeyDown, TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
Select Case sender.name
Case "TextBox1"
TextBox2.Focus()
Case "TextBox2"
TextBox3.Focus()
Case "TextBox3"
TextBox1.Focus()
End Select
End If
End Sub
分享名稱:vb.net用戶控件焦點(diǎn) VB中哪個(gè)控件不可以獲得焦點(diǎn)
URL標(biāo)題:http://muchs.cn/article30/hgidso.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供軟件開發(fā)、品牌網(wǎng)站設(shè)計(jì)、建站公司、商城網(wǎng)站、云服務(wù)器、外貿(mào)建站
聲明:本網(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)