控件作为参数传递

控件参数传递

 

Option Explicit Private Sub Command1_Click()     Dim i As Integer     List1.Visible = True     List2.Visible = True     List1.ListIndex = 0     List2.ListIndex = 0 End Sub Private Sub Form_Load()     List1.Visible = False     List2.Visible = False      With List1         .AddItem Command1.Name         .AddItem Check1.Name         .AddItem List1.Name         .AddItem List2.Name         .AddItem Label1.Name         .AddItem Data1.Name     End With     With List2         .AddItem "0-默认"         .AddItem "1-箭头"         .AddItem "2-十字线"         .AddItem "3-I型"         .AddItem "4-图标 "         .AddItem "5-四个方向的箭头"         .AddItem "6-右上、左下的双箭头"         .AddItem "7-上下两个方向的双箭头"         .AddItem "8-左上、右下双箭头"         .AddItem "9-左右两个方向的双箭头"         .AddItem "10-向上的箭头"         .AddItem "11-沙漏"         .AddItem "12-禁止记号"         .AddItem "13-箭头和沙漏"         .AddItem "14-箭头和问号"         .AddItem "15-四向尺寸线"            End With   Dim bs As String End Sub Private Sub List1_Click()     List2.ListIndex = 0 End Sub Private Sub List2_Click()      On Error Resume Next     Select Case List1.Text            Case Command1.Name               Jiance Command1            Case Check1.Name               Jiance Check1           Case List1.Name               Jiance List1           Case List2.Name               Jiance List2           Case Label1.Name               Jiance Label1           Case Data1.Name               Jiance Data1     End Select End Sub Private Sub Jiance(xx As Control)     Select Case List2.Text                   Case "0-默认"                        xx.MousePointer = 0                   Case "1-箭头"                        xx.MousePointer = 1                   Case "2-十字线"                        xx.MousePointer = 2                   Case "3-I型"                        xx.MousePointer = 3                   Case "4-图标 "                        xx.MousePointer = 4                   Case "5-四个方向的箭头"                        xx.MousePointer = 5                   Case "6-右上、左下的双箭头"                        xx.MousePointer = 6                   Case "7-上下两个方向的双箭头"                        xx.MousePointer = 7                   Case "8-左上、右下双箭头"                        xx.MousePointer = 8                   Case "9-左右两个方向的双箭头"                        xx.MousePointer = 9                   Case "10-向上的箭头"                        xx.MousePointer = 10                   Case "11-沙漏"                        xx.MousePointer = 11                   Case "12-禁止记号"                        xx.MousePointer = 12                   Case "13-箭头和沙漏"                        xx.MousePointer = 13                   Case "14-箭头和问号"                        xx.MousePointer = 14                   Case "15-四向尺寸线"                        xx.MousePointer = 15             End Select End Sub

 '---------------------------------------------------------------------------------------------

 

Private Sub Command1_Click()
    example Picture1
End Sub

Public Function example(obj As VB.PictureBox) As Boolean
    MsgBox obj.Name
End Function

VBScript code

Option Explicit

Private Sub Command1_Click()

        TransPit Picture1

End Sub

 Private Sub Form_Load()

      Picture1.Picture = LoadPicture("c:\tt1.bmp")

 End Sub

 '图片控件作为参数传输

Private Function TransPit(Pit As PictureBox) As Boolean

        Set Picture2.Picture = Pit.Picture

End Function

 

VBScript code

 

'上面例子是picture1传输到picture2

 

'这个例子是image1传输到picture1

 

Option Explicit

 Private Sub Command1_Click()

      TransPit Image1

End Sub

 Private Sub Form_Load()

      Image1.Picture = LoadPicture("c:\tt1.bmp")

 End Sub

 '图片控件作为参数传输

Private Function TransPit(Pit As Image) As Boolean

        Set Picture1.Picture = Pit.Picture

End Function