VB 5/6-Tipp 0040: Steuerelemente an Modul übergeben

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Textfeld "Text2"
' Steuerelement: Textfeld "Text1"
' Steuerelement: Schaltfläche "Command3"
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Private Sub Command1_Click()
  Call AlleControlCaptions(Command1)
End Sub

Private Sub Command2_Click()
  Call AlleControlCaptions(Command2)
End Sub

Private Sub Command3_Click()
  Call AlleControlCaptions(Command3)
End Sub

Private Sub Form_Load()
  Call AlleFormCaptions(Form1)
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, _
                             X As Single, Y As Single)
  Call Mouse_Move_Im_Label1(Label1, Button, Shift, X, Y, Label2)
End Sub

Private Sub Text1_Change()
  Call CopyTextBox(Form1)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'--------- Anfang Modul "Module1" alias Module1.bas ---------

Option Explicit

Public Sub AlleControlCaptions(C As Control)
  If C.Caption = "Hier klicken" Then
    C.Caption = "Ich war im Modul"
  Else
    C.Caption = "Hier klicken"
  End If
End Sub

Public Sub AlleFormCaptions(F As Form)
  F.Caption = "Dieser Titel wurde im Modul eingefügt"
End Sub

Public Sub CopyTextBox(F As Form)
  F.Text2.Text = F.Text1.Text
End Sub

Public Sub Mouse_Move_Im_Label1(L1 As Label, Button As _
                                Integer, Shift As Integer, _
                                X As Single, Y As Single, _
                                L2 As Label)
                                
  L2.Caption = "Mausposition X=" & X & "    Y=" & Y
End Sub
'---------- Ende Modul "Module1" alias Module1.bas ----------
'-------------- Ende Projektdatei Project1.vbp --------------