Question

我想在不同的图片中创建一个矩形。

例如：代码在testpicture中，但我想这个rect是在testpicture2中创建的。请问怎么可能？非常感谢你

Answer 1

解决方案......

Private Sub GenerateRuntimeForm（） Dim ctrl As Control 设置frm = New Form1

Set cmdOK = Nothing
Set cmdCancel = Nothing
Set txtInput = Nothing
Set lblDisplay = Nothing

'clear the form
For Each ctrl In frm
    ctrl.Visible = False
Next

Set cmdOK = frm.Controls.Add("VB.CommandButton", "cmdOK")
Set cmdCancel = frm.Controls.Add("VB.CommandButton", "cmdCancel")
Set txtInput = frm.Controls.Add("VB.TextBox", "txtInput")
Set lblDisplay = frm.Controls.Add("VB.Label", "lblDisplay")

With frm
    'Set form's width and height
    .Width = 4000
    .Height = 2500
    .Caption = "Run-Time Generated Form"
End With

'Setup rest of controls 
With lblDisplay
    .Top = 250
    .Left = 250
    .AutoSize = True
    .FontBold = True
    .Caption = IIf(allowNumericOnly, "Enter Your Age:", "Enter Your Last Name:")

End With

With txtInput
    .Top = lblDisplay.Top + lblDisplay.Height + 250
    .Left = 250

    .Height = 295
    If allowNumericOnly Then
        .Width = 500
        .MaxLength = 3
    Else
        .Width = 2500
    End If
End With

With cmdOK
    .Top = txtInput.Top + txtInput.Height + 375
    .Width = 800
    .Left = 1000
    .Height = cmdGenerate(0).Height
    cmdOK.Caption = "&OK"
    .Enabled = False
End With

With cmdCancel
    .Left = cmdOK.Left + cmdOK.Width + 100
    .Top = cmdOK.Top
    .Width = cmdOK.Width
    .Height = cmdOK.Height
    .Caption = "&Cancel"
End With


cmdOK.Visible = True
cmdCancel.Visible = True
lblDisplay.Visible = True
txtInput.Visible = True
frm.Show vbModal

End Sub

visual basic 6：以其他形式创建对象

1 个答案: