Grunsätliches zur Userform

Hallo ins Forum,
ich habe mir mit meinen doch sehr limitierten VBA Kentnissen, mit viel Mühe durch Recherche, Videos, lesen im Internet und Hilfestellugen hier im Forum für die Arbeit eine Userform erstellt die mir, meiner Meinung nach, auch wirklich gut gelungen ist.
Userbild

Dazu hätte ich aber ein paar Fragen.
1. Die UF habe ich zu Hause auf dem Laptop programmiert, wenn ich sie jetzt aber auf dem 2. Bildschirm öffne sind die Listboxen total verschoben und auch die Größe passt nicht mehr. Schiebe ich sie wieder auf den Laptop ist alles ok. Kann ich das irgendwie einstellen?
2. Wenn ich die UF jetzt auf dem Rechner in der Arbeit öffne habe ich das gleiche Problem. Wie verhindert ihr das? Oder muss ich das alles nochmal machen auf dem Rechner in der Arbeit?
3. Beim programmieren der UF hat sich auch immer wieder, selbstständig die Größe der UF geändert. Nach z.B. einfügen von neuen Textboxen etc. musste ich die UF immer wieder neu anpassen und sie größer ziehen. Ist das so oder was mache ich da falsch?
Ich wäre also dankbar wenn ihr mir da Tipps geben könntet wie ich so etwas vermeiden kann oder wie man es besser macht. Vor allen Dingen das Problem mit den verschiedenen Bildschirmen oder Rechnern/Laptops.
Vielen Dank an alle die ihre Erfahrungen teilen
Saludos Luna

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Luna,

Lösche Image1 und füge ein neues Image1 wieder ein. Beim Test der PictureSizeMode war keine Reaktion mehr zwischen den 3 Einstellungen. Es sieht so aus, als ob das ImageControl nicht mehr korrekt funktioniert.
Dann Verwende bei Klickereignissen entweder _Change oder _Click oder _DblClick.
Wenn es unbedingt 2 sein müssen dann in Kombination mit _MouseDown und stelle da Button=1 (linke Maustaste) oder Button=2 (rechte Maustaste):



if Button=1 then

     dein Code...

end if

Damit verhinderst du ungewollte/unnötige Auslösung im Zusammenhang mit Doppelklick.
Den Code kann man auch vereinfachen - mal nur eine Prozedur daraus:



Private Sub ListBox3_Click()

'Set Image1.Picture = Nothing

    With Daten

        .Range("A2").Value = ListBox3.List(ListBox3.ListIndex)

        TextBox1.Text = .Range("B2").Value

        TextBox2.Text = .Range("D2").Value

        TextBox3.Text = .Range("C2").Value

        TextBox4.Text = .Range("E2").Value

        TextBox5.Text = .Range("A2").Value

    End With

    If Dir(Pfad & TextBox1 & ".JPG") > "" Then

        Image1.Picture = LoadPicture(Pfad & TextBox1 & ".JPG")

    Else

        Image1.Picture = LoadPicture(Pfad & "0.JPG")

    End If

        

End Sub

Variablen mit as Single macht auch wenig Sinn bei den heutigen Rechnern. Nimm statt dessen Double - also so:



Dim sngTop%, sngLeft%

        Me.StartUpPosition = 0

        sngLeft = Application.Left + Application.Width / 2 - Me.Width / 2

        sngTop = Application.Top + Application.Height / 2 - Me.Height / 2.1



        Me.Left = sngLeft

        Me.Top = sngTop

Da mir zum Testen die Grafiken fehlen, kann ich Diese als weitere mögliche Fehlerquelle (Auflösungsgröße etc.) nicht ausschließen.

Gruß Uwe

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Grunsätliches zur Userform

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

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread