UC知道几道VB的很简单的题，请高手回答阿！最后五分全送了，谢谢
来源：百度知道 编辑：UC知道 时间：2024/06/18 18:36:16
1.一个窗体上有一个居中的标签，程序在运行过程中，窗体改变大小时，如何使标签自动居中？
2.请按要求写出VB代码
要求：假设记录集（RecordSet）已经打开，用ADO，记录集名为RS1,记录集中有两个字段分别为ID，Name，请实现查找ID为“11”，Name为“Jimmy”的记录
答案：
3.如何在状态栏或一个标签上显示鼠标单击位置及移动位置？
4.请用代码实现在用户关闭窗体（Form1）之前弹出对话框提示用户是否要退出，用户可以选Yes or No
2.请按要求写出VB代码
要求：假设记录集（RecordSet）已经打开，用ADO，记录集名为RS1,记录集中有两个字段分别为ID，Name，请实现查找ID为“11”，Name为“Jimmy”的记录
答案：
3.如何在状态栏或一个标签上显示鼠标单击位置及移动位置？
4.请用代码实现在用户关闭窗体（Form1）之前弹出对话框提示用户是否要退出，用户可以选Yes or No
第一题：
Private Sub Form_Resize()
Label1.Left = (Me.Width - Label1.Width) / 2
End Sub
第二题：
RS1.open "select * from <表名> where ID='11' and Name='Jimmy'"
第三题：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "x=" & X & " y=" & Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "鼠标单击位置： x=" & X & " y=" & Y
End Sub
第四题：
Private Sub Form_Unload(Cancel As Integer)
x = MsgBox("您是否要退出？", vbQuestion + vbYesNo + vbDefaultButton2)
If x = 7 Then Cancel = 1
End Sub