[分享]控件总在可视范围内显示

tianlin

有用，谢谢。

jilijun

感谢山菊花老师分享！！

lee_onion

为什么我会提示找不到工程或库？

hfq926

原帖由 山菊花 于 2007-2-5 01:11 发表
为朋友写代码，其中一个功能是控件总在可视范围内显示。现把这部分代码单独做成一个文件，与朋友们共享。404688
[此贴子已经被作者于2008-9-5 16:14:33编辑过]

1.請問山版主我要所有的工作表都具有此功能如何修改代碼?
2.如何更改視窗的大小?

3.新建一個文件將代碼貼到同樣位置!運行時就一句出現錯誤: Shapes("xinxi").Visible = True '顯示資訊視窗
原碼:Public nTime As Date
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Set Target = Target.Cells(1)
    If Target.Row = 1 Then Shapes("xinxi").Visible = False: Exit Sub
    Dim cTxt As String, nRow As Integer
    Dim Temp As String
    cTxt = ""
    nRow = Target.Row
    For i = 1 To 10
        Temp = Cells(nRow, i)
        Temp = IIf(Left(Temp, 1) = ".", "0", "") & Temp
        cTxt = cTxt & Chr(13) & " " & Temp
    Next
    Label2.Caption = cTxt '更新資訊視窗中的文字
   
    With Shapes("xinxi")
   
        '動態改變控制項的垂直位置
        If Target.Offset(1, 0).Top - Cells(ActiveWindow.ScrollRow, 1).Top + 130 > ActiveWindow.UsableHeight Then
            .Top = Cells(ActiveWindow.ScrollRow, 1).Top + ActiveWindow.UsableHeight - 130
        Else
            .Top = Target.Offset(1, 0).Top
        End If
        
        '動態改變控制項的水準位置
        If Target.Offset(0, 1).Left - Cells(1, ActiveWindow.ScrollColumn).Left + 270 > ActiveWindow.Width Then
            .Left = Target.Left - 270
        Else
            .Left = Target.Offset(0, 1).Left
        End If

    End With
   
    nTime = Timer
    Shapes("xinxi").Visible = True '顯示資訊視窗
    Call XinxiVisible
End Sub



Sub XinxiVisible()
    Do While Timer - nTime < 10 '顯示10秒
        DoEvents
    Loop
    Shapes("xinxi").Visible = False '隱藏資訊視窗
End Sub

[ 本帖最后由 hfq926 于 2009-1-18 17:07 编辑 ]

hfq926

自己頂一下!

qczvba

看似复杂的程序，被总版主给化解了。佩服。无语。还是佩服。谢谢分享。

hanter007

有意思,学习一下.

tsek

斑竹又强大又有爱，顶！

GUANCHZH

感谢分享！

cunfu2010

感谢版主的分享，非常实用。有个问题：控件是如何实现的，没有弄明白？