VB 5/6-Tipp 0040: Steuerelemente an Modul übergeben
von ActiveVB
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: | Verwendete API-Aufrufe: keine | Download: |
'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-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
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.