Alle Images auf Userform mit gleichem Codeinhalt

Private Sub img2_Click() Me.img2.PictureSizeMode = 1 'Stretch If Me.img2.Height = 18 Then 'Anfangstand Me.img2.Width = 18 Me.img2.ZOrder msoBringToFront 'in Vordergrund Me.img2.Height = 25 'Vergrößerung Me.img2.Width = 25 Else Me.img2.Height = 18 'Zürück auf Anfangsstand Me.img2.Width = 18 End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub img1_Click() Modify End Sub Private Sub img2_Click() Modify End Sub Private Sub Modify() If Me.ActiveControl.Height = 18 Then 'Anfangstand Me.ActiveControl.Width = 18 Me.ActiveControl.ZOrder msoBringToFront 'in Vordergrund Me.ActiveControl.Height = 25 'Vergrößerung Me.ActiveControl.Width = 25 Else Me.ActiveControl.Height = 18 'Zürück auf Anfangsstand Me.ActiveControl.Width = 18 End If End Sub

Private Sub image1_Click() Modify ("Image1") End Sub Private Sub image2_Click() Modify ("Image2") End Sub Private Sub Modify(Im) Dim Ctrl For Each Ctrl In Me.Controls If Ctrl.Name = Im Then a = Me.Controls(Ctrl.Name).Height If Me.Controls(Ctrl.Name).Height = 18 Then 'Anfangstand Me.Controls(Ctrl.Name).Width = 18 Me.Controls(Ctrl.Name).ZOrder msoBringToFront 'in Vordergrund Me.Controls(Ctrl.Name).Height = 25 'Vergrößerung Me.Controls(Ctrl.Name).Width = 25 Else Me.Controls(Ctrl.Name).Height = 18 'Zürück auf Anfangsstand Me.Controls(Ctrl.Name).Width = 18 End If End If Next End Sub

Private Sub image1_Click() Modify ("Image1") End Sub Private Sub image2_Click() Modify ("Image2") End Sub Private Sub Modify(Im) If Me.Controls(Im).Height = 18 Then 'Anfangstand Me.Controls(Im).Width = 18 Me.Controls(Im).ZOrder msoBringToFront 'in Vordergrund Me.Controls(Im).Height = 25 'Vergrößerung Me.Controls(Im).Width = 25 Else Me.Controls(Im).Height = 18 'Zürück auf Anfangsstand Me.Controls(Im).Width = 18 End If End Sub

Hallo Dieter,
ohne Dir zu nahe treten zu wollen, wundere ich mich des Öfteren über Fragen von Dir. Nun gibt es keine dummen Fragen sagt man und da gehe ich auch ziemlich weit mit. Was mich aber wundert ist, dass Du viele Deiner Fragen überhaupt (noch) stellen musst.
Ich selbst bin seit wenigen Jahren hier im Forum aktiv. Wenn ich Deinen Namen recherchiere, dann finde ich auf der ersten Seite der Suchergebnisse bereits eine Frage aus 2008 von Dir. Du gibst aber heute noch "Basiskenntnisse in VBA" als Lvl an. Nun ist es so, dass Deine Fragen oft auch zu dieser Angabe passen. Das bedeutet aber auch, nach mindestens 11 Jahren(!) stellst Du Fragen, deren Beantwortung einem VBA-Entwickler mit 11 Jahren Erfahrung eigentlich nicht schwer fallen sollten. Wobei jeder den Wald manchmal vor lauter Bäumen nicht sieht. Da nehme ich mich gar nicht aus.
Als Beispiel nehme ich mal direkt Deine Frage aus diesem Thread. Du fährst einen Ansatz über die Namen der Bildobjekte. Da frage ich mich, warum kommst Du nicht selbst auf die Idee, dass es sich bei allen anzusprechenden Objekten um Objekte der gleichen Klasse handelt, die man deshalb z.B. mit For Each durchgehen kann. Nun hat onur Dir einen Ansatz gegeben, bei dem bei Dir ein Fehler auftaucht, den Du aber offenbar nicht selber einordnen kannst.
Ich halte Dich weiß Gott nicht für blöd, habe aber das Gefühl, Du hast viele "Wissensfetzen" in Deinem Kopf angesammelt, die Du nicht in Zusammenhang bringen kannst. Ich habe auch keine Ahnung welchen Hintergrund Du zum Thema Programmieren hast, tippe aber darauf, dass Du das bisher nicht strukturiert gelernt hast.
Deshalb der konstruktiv gemeinte Rat, beschäftige Dich mal grundsätzlich mit Programmierung. In den meisten Sprachen funktionieren die Grundlagen gleich und werden nur unterschiedlich aufgeschrieben. Sie haben also eine andere Syntax, aber die gleiche Semantik.
Falls Du die Muße dazu hast, kannst Du Deine ganzen "Wissensfetzen" ja mal strukturieren, indem Du einmal systematisch lernst, wie Programmierung funktioniert. Zum Beispiel unter folgendem Link (auch wenn da C# verwendet wird, das spielt absolut keine Rolle):
http://entwickler.de/online/development/einfuehrung-programmierung-grundlagen-teil-1-197189.html
Jetzt bist Du hoffentlich nicht sauer oder fühlst Dich angegriffen. Wie gesagt wundert mich Dein Verhalten einfach und jetzt wollte ich Dich an meinen Gedanken teilhaben lassen.
Viele Grüße,
Zwenn

Option Explicit 'Mx: Images Eigenschaften auf PictueSizeMode 1 = Stretch stehen Private Sub img2_Click() Modify "img2" End Sub Private Sub img3_Click() Modify "img3" End Sub Private Sub img4_Click() Modify "img4" End Sub Private Sub img5_Click() Modify "img5" End Sub Private Sub img6_Click() Modify "img6" End Sub Private Sub Modify(Im As String) Dim Ctrl As Control Dim a As Long For Each Ctrl In Me.Controls If Ctrl.Name = Im Then a = Me.Controls(Ctrl.Name).Height If Me.Controls(Ctrl.Name).Height = 18 Then 'Anfangstand Me.Controls(Ctrl.Name).Width = 18 Me.Controls(Ctrl.Name).ZOrder msoBringToFront 'in Vordergrund Me.Controls(Ctrl.Name).Height = 25 'Vergrößerung Me.Controls(Ctrl.Name).Width = 25 Else Me.Controls(Ctrl.Name).Height = 18 'Zürück auf Anfangsstand Me.Controls(Ctrl.Name).Width = 18 End If End If Next End Sub

Option Explicit 'Mx: Images Eigenschaften auf PictueSizeMode 1 = Stretch stehen Private Sub img2_Click() Modify "img2" End Sub Private Sub img3_Click() Modify "img3" End Sub Private Sub img4_Click() Modify "img4" End Sub Private Sub img5_Click() Modify "img5" End Sub Private Sub img6_Click() Modify "img6" End Sub Private Sub Modify(Im As String) Dim Ctrl As Control For Each Ctrl In Me.Controls If Ctrl.Name = Im Then If Me.Controls(Ctrl.Name).Height = 18 Then 'Anfangstand Me.Controls(Ctrl.Name).ZOrder msoBringToFront 'in Vordergrund Me.Controls(Ctrl.Name).Height = 25 'Vergrößerung Me.Controls(Ctrl.Name).Width = 25 Else Me.Controls(Ctrl.Name).Height = 18 'Zürück auf Anfangsstand Me.Controls(Ctrl.Name).Width = 18 End If End If Next End Sub

Private Sub Modify(Im As String) Dim Ctrl As Control Dim a As Long For Each Ctrl In Me.Controls If Ctrl.Name = Im Then a = Me.Controls(Ctrl.Name).Height If Me.Controls(Ctrl.Name).Height = 18 Then 'Anfangstand Me.Controls(Ctrl.Name).PictureSizeMode = 1 'Stretch Me.Controls(Ctrl.Name).Width = 18 Me.Controls(Ctrl.Name).ZOrder msoBringToFront 'in Vordergrund Me.Controls(Ctrl.Name).Height = 25 'Vergrößerung Me.Controls(Ctrl.Name).Width = 25 Else Me.Controls(Ctrl.Name).Height = 18 'Zürück auf Anfangsstand Me.Controls(Ctrl.Name).Width = 18 End If End If Next End Sub

Private Sub img2_Click() Modify "img2" End Sub Private Sub img3_Click() Modify "img3" End Sub Private Sub img4_Click() Modify "img4" End Sub Private Sub img5_Click() Modify "img5" End Sub Private Sub img6_Click() Modify "img6" End Sub Private Sub Modify(Im As String) Dim Ctrl As Control For Each Ctrl In Me.Controls If Ctrl.Name = Im Then If Me.Controls(Ctrl.Name).Height = 18 Then 'Anfangstand Me.Controls(Ctrl.Name).PictureSizeMode = 1 'Stretch Me.Controls(Ctrl.Name).ZOrder msoBringToFront 'in Vordergrund Me.Controls(Ctrl.Name).Height = 25 'Vergrößerung Me.Controls(Ctrl.Name).Width = 25 Else Me.Controls(Ctrl.Name).Height = 18 'Zürück auf Anfangsstand Me.Controls(Ctrl.Name).Width = 18 End If End If Next End Sub

Private Sub Modify(Im) If Me.Controls(Im).Height = 18 Then 'Anfangstand Me.Controls(Im).Width = 18 Me.Controls(Im).ZOrder msoBringToFront 'in Vordergrund Me.Controls(Im).Height = 25 'Vergrößerung Me.Controls(Im).Width = 25 Else Me.Controls(Im).Height = 18 'Zürück auf Anfangsstand Me.Controls(Im).Width = 18 End If End Sub

Private Sub Modify(Im As String) Dim Ctrl As Control For Each Ctrl In Me.Controls If Ctrl.Name = Im Then If Me.Controls(Im).Height = 18 Then 'Anfangstand Me.Controls(Ctrl.Name).PictureSizeMode = 1 'Stretch Me.Controls(Im).Width = 18 Me.Controls(Im).ZOrder msoBringToFront 'in Vordergrund Me.Controls(Im).Height = 25 'Vergrößerung Me.Controls(Im).Width = 25 Else Me.Controls(Im).Height = 18 'Zürück auf Anfangsstand Me.Controls(Im).Width = 18 End If End If Next End Sub

Private Sub Modify(Im As String) If Me.Controls(Im).Height = 18 Then 'Anfangstand Me.Controls(Im).PictureSizeMode = 1 'Stretch Me.Controls(Im).Width = 18 Me.Controls(Im).ZOrder msoBringToFront 'in Vordergrund Me.Controls(Im).Height = 25 'Vergrößerung Me.Controls(Im).Width = 25 Else Me.Controls(Im).Height = 18 'Zürück auf Anfangsstand Me.Controls(Im).Width = 18 End If End Sub

…Dieter,
sondern das späte des Einstiegs in die Welt des Pgmmierens, verbunden mit keinerlei systematischer Erlernung von GrundKenntnissen darin. Das, was andere deines Alters* schon vor Jahrzehnten an Grundlagen erlernten und ihnen heute hilft, auch andere Sprachen mit etwas LernAufwand zu verstehen, versuchst du über Erfragen zu erlernen, wobei du tatsächlich manche Fragen nicht stellen würdest, hättest du die Grundlagen verinnerlicht. Ein Forum ist als VBA-Fernkurs nunmal nicht besonders gut geeignet, obwohl es mitunter auch geht (Bsp: Hajo, der vor ca 18-20 Jahren auch so angefangen haben soll).
Aber auch ganz ohne Pgmmierung tun sich manche dieser Altersgruppe schwer mit EDV, wenn sie vorher nie damit zu tun hatten. Ich kenne mehrere solcher Fälle, weshalb ich das in bedingtem Maße auch verstehe. Aber irgendwann machen's dann doch Übung und Gewöhnung. Nur 11 Jahre sind schon 'ne lange Zeit und mit von Anfang an systematischem Herangehen wären wohl etliche Unsicherheiten längst Vergangenheit. VBA ist keine Magie, sondern einfach nur Anweisungen an quasi einen fleißigen, aber äußerst dummen Lehrling (neudeutsch Azubi) oder begriffsstutzigen Aushelfer, dem man alles ganz genau sagen muss (solche gibt's auch real!).
* Bspw H.W.Herber, auch robert, nur wenige Jahre jünger Andere und auch ich.
Gruß, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit

Beliebteste Forumthreads (12 Monate)

Alle Images auf Userform mit gleichem Codeinhalt

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle Images auf Userform mit gleichem Codeinhalt

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread