忙了一段时间的C#，现在又回过头来忙VB6了，没有头绪，只好求助好心的大家：
一、点击了MsgBox的确定以后，想回到Text1上让其成为焦点，代码怎么写？
二、VB6里面的AcceptButton、CancelButton，也就是Enter键确认和Esc键取消是如何实现的？
三、通过Text向ListBox里面添加记录：Text为空的话用MsgBox提示,Text中输入的值与ListBox已有的Item相同的话也用MsgBox提示，否则添加记录。代码谁帮我改一下？

Private Sub Command1_Click()
Dim i As Integer
If Trim(Text1.Text) = "" Then
MsgBox ("不能添加空的城市")
ElseIf List1.ListCount > 1 Then
For i = 0 To List1.ListCount - 1 Step 1
If List1.ItemData(i) = Text1.Text Then '这行该怎么判断呢？
MsgBox ("对不起,该数据已经存在了!")
End If
Next i
Else
List1.AddItem Text1.Text
End If
End Sub

四、VB中分段注释该怎么办？默认情况下Sub End Sub会用横线分割起来，能手动添加吗？

[此贴子已经被作者于2007-8-21 20:50:39编辑过]

一、text1.SetFocus

二、 Command1.Default = True
　　Command2.Cancel = True
三、
If List1.list(i) = Text1.Text Then
MsgBox ("对不起,该数据已经存在了!")
End If

先谢谢版主了，这么晚了，费心了！
后面我又加了个第四条，呵呵！

[此贴子已经被作者于2007-8-20 23:33:01编辑过]

五、有种情况，我想用一个按纽实现，其实也是前面几个问题的汇总。
Command先是显示“修改”，点了以后了，提示在Text上输入数据，并将焦点转到Text上，Command的Caption同时变成“保存”，点了以后修改后的数据提交至数据库。
这种一个按纽两次Click如何实现呢？

Private Sub Command1_Click()
Dim i As Integer
If Trim(Text1.Text) = "" Then
MsgBox ("不能添加空的城市")
ElseIf List1.ListCount > 1 Then
For i = 0 To List1.ListCount - 1 Step 1
If List1.list(i) = Text1.Text Then '这行该怎么判断呢？
MsgBox ("对不起,该数据已经存在了!")
End If
Next i
Else
List1.AddItem Text1.Text '添加数据
End If
End Sub

这段代码的前两个功能“空”“重复”都已经实现了，但“添加”还没有实现，这个循环哪个地方要改一下？

五.

Private Sub Command1_Click()
If Command1.Caption = "修改" Then
'Do Something
Command1.Caption = "保存"
Else
'Do other
End If
End Sub

感谢楼上！
二、 Command1.Default = True
　　Command2.Cancel = True
这个无法实现,还有问题四尚无解。

[此贴子已经被作者于2007-8-21 9:58:35编辑过]

问题四你想实现什么样的效果？文本模拟发上来看看

四、VB中分段注释该怎么办？默认情况下Sub End Sub会用横线分割起来，能手动添加吗？


分段注释 你说的是类似于Cpp的 /*123
222这里还是注释部分哦耶~
22222注释结束*/
这样的吗？

VB里貌似无法实现 只能在每行注释前用单引号

如

Dim a 'a是我姐姐
Dim b 'b是我哥哥
'a是我姐姐
'b是我哥哥……

什么东西。。。自己可以先复习一下。该问的问题就问。。。没必要问的就可以不问