189 8069 5689
这样不好，应该使用 Table 键，按照 Table 键顺序来切换。因为回车往往用来确定你要按下页面的确定按钮。如果非要使用回车：
创新互联建站长期为上千余家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为弥勒企业提供专业的成都做网站、成都网站建设、成都外贸网站建设，弥勒网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。
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
首先将按钮控件command1的style属性选为1(否则不能显示图片)
dim flag as boolean
Private Sub Form_Load()
Command1.Picture = LoadPicture(App.Path "\关闭时候的图片.jpg")
end sub
Private Sub Command1_Click()
if flag=true then
flag=false
command1.Picture = LoadPicture(App.Path "\关闭时候的图片")
else
flag=true
command1.Picture = LoadPicture(App.Path "\打开状态的图片")
endif
End Sub
这是6.0的方法：
用
先在每个窗体上画一个“下一步”按钮
然后用
窗体名称.Show的方法
切换窗体
例如:
Form1.show
就可以激活Form1窗体
全局变量建议定义在模块(Moudle)中
建立模块的方法是单击菜单
【工程】|【添加模块】命令添加
然后用
Public 变量 As 类型
语句来定义全局变量
Public关键字也可以用Global代替
两者的作用一样
补充:比如流程是这样的（VB6.0版)
Form1-Form2-Form3-FormEnd
在每个窗体上画一个Command按钮
命名为cmdNext
然后在cmdNext_Click事件中添加代码：
Form1:
Private Sub cmdNext_Click()
Form2.show
unload me
end Sub
Form2:
Private Sub cmdNext_Click()
Form3.show
unload me
end Sub
Form3:
Private Sub cmdNext_Click()
FormEnd.show
unload me
end Sub
FormEnd:
Private Sub cmdNext_Click()
END
end Sub
其他的自己加上就行了
这是一个根据窗口标题用枚举法模糊查找一个匹配的窗口句柄，并将该句柄指向的窗口呼出前台。为了能100%选择记事本窗体，应尽量提供完整的窗口标题，并确保窗口标题的唯一性，否则程序只会将第最后一个匹配的窗口呼出。
以下代码运行后点击按钮即将标题含有“记事本”的窗口转到当前状态。我都加了注释，你可以根据需要来修改：
'新建一个工程 _
'创建一个textbox：text1
'创建一个按钮：command1
'粘贴以下代码：
Private Sub Form_Load()
Text1 = "记事本"
End Sub
Private Sub Command1_Click()
If Text1 = "" Then Exit Sub
LHWND = 0 '枚举前为0，预防找不到时查错
EnumWindows AddressOf EnumWindowsProc, 0 '枚举第一个匹配的句柄
ShowWindow LHWND, SW_RESTORE '窗口被最小化时的呼出
SetForegroundWindow LHWND '设置为活动状态
If LHWND = 0 Then MsgBox "找不到匹配窗口标题的句柄！"
End Sub
添加一个模块粘贴以下代码：
添加一个模块粘贴以下代码：
添加一个模块粘贴以下代码：
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_RESTORE = 9
Public LHWND As Long
Public Function EnumWindowsProc(ByVal lngHwnd As Long, ByVal lParam As Long) As Boolean
Dim s As String * 255
GetWindowText lngHwnd, s, 255 '获得窗口标题文字
If InStr(s, Form1.Text1) 0 Then '判断是否匹配要查找的窗口的标题
LHWND = lngHwnd '得到匹配的窗口的句柄
End If
EnumWindowsProc = True
End Function