方法如下:
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供曾都網(wǎng)站建設(shè)、曾都做網(wǎng)站、曾都網(wǎng)站設(shè)計、曾都網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、曾都企業(yè)網(wǎng)站模板建站服務(wù),10年曾都做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
1、打開例1.1創(chuàng)建的工程。
2、選擇窗體Form1并雙擊該窗體,出現(xiàn)窗體的調(diào)事件的過程代碼體。
3、在窗體調(diào)用的過程代碼體中編制如下過程代碼:
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、設(shè)置窗體Form1的SartUpPosition屬性為2-屏幕中心,這樣運行窗體可以發(fā)現(xiàn),屏幕的大小與例1.6中通過屬性設(shè)置的大小是一致的。
最正統(tǒng)的方法是把textbox1的tabindex屬性設(shè)為0(其他控件的tabindex不能是0)
要在load事件里用textbox1.focus()也可以,但要先me.show(),否則不會起作用。因為控件得到焦點需要控件”可見可用“,在formload階段整個窗體是“不可見"的,需要強制使用me.show()。
給你個參考的例子,窗體打開時可能大小有變化,軟件名可能有變化
先加個控件ListBox1,運行后雙擊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