Die Community zu .NET und Classic VB.
Menü

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

 von 

Beschreibung 

Manchmal möchte man Methoden, und Ereignisse Nicht im Formular sondern von einem Modul aus abhandeln. Die ist zum Beispiel sinnvoll, wenn ein und die selbe Prozedur von verschieden Steuerelementen benötigt wird. Das ganze unter Visual Basic ist eigentlich ziemlich einfach und komfortabel.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [5,21 KB]

'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 --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.