控件作为参数传递

控件参数传递

 

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