很多的问题，答者有分

Question

4
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Answer 1

第一个不会
第二个就是有个比较笨的方法.就是看看VISIBLE得的属性.
你怎么没有第三就跑到第四啦?
第四就好像上面的一样.
看不懂第五个问题.

Answer 2

4:
gotfocus 事件中：sendkeys "{home}+{end}"5:
comdlg.dll版本

Answer 3

2 如何判断一个窗体是否已被载入:
Private Sub Form_Activate()
 MsgBox "窗体已被载入。"
End Sub

Answer 4

MarsChen(MarsChen)
gotfocus 事件中：sendkeys "{home}+{end}"  只有在按Tab键时，才会被全部选中， 用鼠标就不行。 jzsoft(jzsoft)　的方法就可以。

Answer 5

VSFLEX7是什么控件？是MSHFlexGrid吗？
如果是的话，那么它只是一次性读入数据
取得数据后，就不在和ADO记录集有关系了2、窗体是否在内存不好判断，要么设一个全局变量，当窗体
加载时，改变变量的值=TRUE，卸载时，改变变量的值=FALSE
另一个办法就是用函数FindWindow去找它

Answer 6

回答第四个问题
1.
Private Sub Text1_GotFocus()
     call sendkey("{home}+{end}")
end sub
Private Sub Text1_GotFocus()
     Text1.SelStart = 0
     Text1.SelLength = Len(Text1.Text)
End Sub 

Answer 7

'判断窗体是否载入
Public Function dfIsFormLoad(ByVal strFormName As Variant) As Boolean
On Error GoTo ErrTrap
    Dim i As Integer
    dfIsFormLoad = False
    strFormName = MTpToTp.dfVntToTrimStr(strFormName)
    If strFormName = "" Then Exit Function
    For i = 0 To Forms.Count - 1
        If UCase$(Forms(i).Name) = UCase$(strFormName) Then
            dfIsFormLoad = True
            Exit Function
        Else
            dfIsFormLoad = False
        End If
    Next i
    Exit Function
ErrTrap:
    On Error GoTo 0
End Function

Answer 8

'判断窗体是否载入
Public Function dfIsFormLoad(ByVal strFormName As Variant) As Boolean
On Error GoTo ErrTrap
    Dim i As Integer
    dfIsFormLoad = False
    strFormName = strFormName
    If strFormName = "" Then Exit Function
    For i = 0 To Forms.Count - 1
        If UCase$(Forms(i).Name) = UCase$(strFormName) Then
            dfIsFormLoad = True
            Exit Function
        Else
            dfIsFormLoad = False
        End If
    Next i
    Exit Function
ErrTrap:
    On Error GoTo 0
End Function