忙了一段时间的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编辑过]

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

[此贴子已经被作者于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

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

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

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

是的,就是想实现 /* */这样的分段注释效果,在VB中好像的确做不到。