窗体控件位置设定

财知道

洋务德雷 发表于 2024-3-6 11:00
打不开你的压缩文件

为什么这个代码按CommandButton3_Click()执行不了关闭窗体：
Dim Ar1
Private Sub UserForm_Initialize()
    Dim i As Integer
    Ar1 = Array("cmd1", "cmd2", "cmd3")
    Const numOfControls As Integer = 2
   
    For i = 1 To UBound(Ar1) + 1
        With Me.Controls.Add("Forms.TextBox.1")
            .Name = "txtControl" & i
            .Left = (i - 1) * 50 + 20
            .Top = 20
            .Width = 300
            .Height = 20
        End With
        
        With Me.Controls.Add("Forms.CommandButton.1")
            .Caption = Ar1(i - 1)
            .Left = (i - 1) * 50 + 20
            .Top = 60
            .Width = 80
            .Height = 30
        End With
    Next i
End Sub
'退出
Private Sub CommandButton3_Click()
   Unload Me
End Sub

财知道

大灰狼1976 发表于 2024-3-6 09:53
公司不便下载附件，如果SetFrameLocation的计算逻辑是相同的，直接写到标准模块里就行了。
如果可以的话把 ...

Dim Ar1
Private Sub UserForm_Initialize()
    Dim i As Integer
    Ar1 = Array("cmd1", "cmd2", "cmd3")
    Const numOfControls As Integer = 2
   
    For i = 1 To UBound(Ar1) + 1
        With Me.Controls.Add("Forms.TextBox.1")
            .Name = "txtControl" & i
            .Left = (i - 1) * 50 + 20
            .Top = 20
            .Width = 300
            .Height = 20
        End With
        
        With Me.Controls.Add("Forms.CommandButton.1")
            .Caption = Ar1(i - 1)
            .Left = (i - 1) * 50 + 20
            .Top = 60
            .Width = 80
            .Height = 30
        End With
    Next i
'    Call UserForm4.CommandButton3_Click
End Sub
'退出
Private Sub CommandButton3_Click()
   Unload Me
End Sub
请问下这段代码怎么实现unload me

大灰狼1976

SetFrameLocation放到标准模块里面，增加一个参数，表示当前userfom
'位置参数设定

1. Public Sub SetFrameLocation(UsFm As UserForm, strFrameName As String, sngHeight As Single, sngWidth As Single, sngTop As Single, sngLeft As Single)
   
2.    Dim objFrame As Control
   
3.    On Error GoTo ErrFun
   
4.    Set objFrame = UsFm.Controls(strFrameName)
   
5.    With objFrame
   
6.       .Height = sngHeight
   
7.       .Width = sngWidth
   
8.       .Top = sngTop
   
9.       .Left = sngLeft
   
10.    End With
    
11. ErrFun:
    
12.    Set objFrame = Nothing
    
13. End Sub
    

复制代码

引用示例：

1. Private Sub CommandButton3_Click()
   
2. SetFrameLocation Me, "Frame1", 20, 20, 20, 20
   
3. End Sub

复制代码

大灰狼1976

财知道 发表于 2024-3-7 17:03
Dim Ar1
Private Sub UserForm_Initialize()
    Dim i As Integer

Private Sub CommandButton3_Click()
   Unload Me
End Sub
改成下面就可以在其他窗体内运行它
Public Sub CommandButton3_Click()
   Unload Me
End Sub

财知道

大灰狼1976 发表于 2024-3-7 19:29
Private Sub CommandButton3_Click()
   Unload Me
End Sub

Dim Ar1
Private Sub UserForm_Initialize()
    Dim i As Integer
    Ar1 = Array("cmd1", "cmd2", "cmd3")
    Const numOfControls As Integer = 2
   
    For i = 1 To UBound(Ar1) + 1
        With Me.Controls.Add("Forms.TextBox.1")
            .Name = "txtControl" & i
            .Left = (i - 1) * 50 + 20
            .Top = 20
            .Width = 300
            .Height = 20
        End With
        
        With Me.Controls.Add("Forms.CommandButton.1")
            .Caption = Ar1(i - 1)
            .Left = (i - 1) * 50 + 20
            .Top = 60
            .Width = 80
            .Height = 30
        End With
    Next i
End Sub
'退出
Public Sub CommandButton3_Click()
   Unload Me
End Sub
    不好意思，可能我注释掉的那句 Call UserForm4.CommandButton3_Click让你误解了，这是我没删除。我的本意是：当前窗体创建了三个控件cmd1\cmd2\cmd3，其中cmd3控制unload me，可是我运行完成后，没反映

财知道

大灰狼1976 发表于 2024-3-7 19:27
SetFrameLocation放到标准模块里面，增加一个参数，表示当前userfom
'位置参数设定

完美！

大灰狼1976

财知道 发表于 2024-3-8 08:50
Dim Ar1
Private Sub UserForm_Initialize()
    Dim i As Integer

这个不应该啊，你附件里有这个情况吗，昨天我没看。

财知道

大灰狼1976 发表于 2024-3-8 15:41
这个不应该啊，你附件里有这个情况吗，昨天我没看。

因为控件是代码自已创建的，不是事先插入窗体的，

大灰狼1976

明白了，就是先有事件，后来动态创建的按钮，也可以的，稍微麻烦一点。

大灰狼1976

下面代码全部放到窗体模块内测试。

1. Public WithEvents Cmd1 As msforms.CommandButton
   
2. 
   
3. Private Sub UserForm_Activate()
   
4. Set Cmd1 = Controls.Add("Forms.CommandButton.1", "Cmd1")
   
5. With Cmd1
   
6.   .Width = 60
   
7.   .Height = 25
   
8.   .Caption = "Unload Me"
   
9. End With
   
10. End Sub
    
11. 
    
12. Private Sub Cmd1_Click()
    
13. Unload Me
    
14. End Sub
    

复制代码