十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
给你个参考的例子,窗体打开时可能大小有变化,软件名可能有变化
专注于为中小企业提供网站制作、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业绿春免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了千余家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
先加个控件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
方法如下:
1、打开例1.1创建的工程。
2、选择窗体Form1并双击该窗体,出现窗体的调事件的过程代码体。
3、在窗体调用的过程代码体中编制如下过程代码:
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、设置窗体Form1的SartUpPosition属性为2-屏幕中心,这样运行窗体可以发现,屏幕的大小与例1.6中通过属性设置的大小是一致的。
方法和详细的操作步骤如下:
1、第一步,打开VB软件,然后在表单上添加两个文本框,见下图,转到下面的步骤。
2、第二步,完成上述步骤后,分别设置两个文本框的属性,然后清除文本框的内容,见下图,转到下面的步骤。
3、第三步,完成上述步骤后,添加两个命令按钮,见下图,转到下面的步骤。
4、第四步,完成上述步骤后,分别设置两个文本框的属性,并分别命名为“左”和“右”,见下图,转到下面的步骤。
5、第五步,完成上述步骤后,双击名为“左”的命令按钮以编辑其代码,见下图,转到下面的步骤。
6、第六步,完成上述步骤后,双击名为“右”的命令按钮以编辑其代码,见下图,转到下面的步骤。
7、第七步,完成上述步骤后,运行程序,单击命令按钮,然后在文本框中观察焦点变化,见下图。这样,就解决了这个问题了。
最正统的方法是把textbox1的tabindex属性设为0(其他控件的tabindex不能是0)
要在load事件里用textbox1.focus()也可以,但要先me.show(),否则不会起作用。因为控件得到焦点需要控件”可见可用“,在formload阶段整个窗体是“不可见"的,需要强制使用me.show()。