单击ListView某一行，将ListView对应的工作表的行的值返回到该工作表所对应的行

黑仔

StatusBar控件无法和窗体改变大小时改变StatusBar控件的位置与大小

黑仔

zhaogang1960 发表于 2013-11-27 17:49
Ucase(字段名) like '%" & VBA.Ucase(TextBox1) & "'%"

VBA.可以省略，仅说明是VBA函数

StatusBar控件无法和窗体改变大小时改变StatusBar控件的位置与大小
图片在楼上
'==============
    '控件添加状态栏
Private Sub UserForm_Initialize()
    Dim Pal As Panel
    Dim arr1 As Variant
    Dim arr2 As Variant
    Dim i As Integer
    arr1 = Array(0, 6, 5)
    arr2 = Array(328, 60, 38)
    StatusBar1.Width = 430
    For i = 1 To 3
        Set Pal = StatusBar1.Panels.Add()
        With Pal
            .Style = arr1(i - 1)
            .Width = arr2(i - 1)
            .Alignment = i - 1
        End With
    Next
    StatusBar1.Panels(1).Text = "准备就绪!"
End Sub
    '控件添加状态栏
    '==============

ljpassport

黑仔 发表于 2013-12-12 20:26
你说的是无模式窗体吧！

对啊 怎么做的呢