Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.04.2017 09:25:37 |
The_Materialist |
|
|
|
05.04.2017 10:49:55 |
Gast43951 |
|
|
|
05.04.2017 11:03:08 |
Gast80747 |
|
|
|
05.04.2017 11:30:18 |
Gast51561 |
|
|
|
05.04.2017 11:50:11 |
Gast37562 |
|
|
|
05.04.2017 12:52:54 |
Gast63773 |
|
|
Dynamische Userform |
05.04.2017 13:04:56 |
Gast60990 |
|
|
|
05.04.2017 13:14:51 |
Gast13532 |
|
|
|
05.04.2017 13:51:18 |
The_Materialist |
|
|
|
05.04.2017 13:51:54 |
Gast29143 |
|
|
|
05.04.2017 15:36:05 |
The_Materialist |
|
|
|
05.04.2017 16:43:41 |
Gast80299 |
|
|
|
05.04.2017 17:07:40 |
Gast31428 |
|
|
Von:
Gast60990 |
Datum:
05.04.2017 13:04:56 |
Views:
614 |
Rating:
|
Antwort:
|
Thema:
Dynamische Userform |
Also heir mein Code für die Klasse Deselect_Button:
Option Explicit
Public WithEvents btn As MSForms.CommandButton
Private Sub btn_Click()
MsgBox "hallo world!"
End Sub
und hier meine Userform:
Private N As Integer
Private Sub Select_btn_Click()
Dim lbl As Object
Dim deselect As Deselect_Button
' Adjust Userform
Me.Height = Me.Height + 40
Me.Logo.Top = Me.Logo.Top + 40
Me.GO_btn.Top = Me.GO_btn.Top + 40
Me.Backbtn.Top = Me.Backbtn.Top + 40
' Text Label
Set lbl = Me.Controls.Add("Forms.Label.1", "Selection" & (N + 1), True)
With lbl.Font
.name = "Arial"
.Size = 16
.Bold = True
End With
lbl.Caption = "" & SelectionBox.Value
lbl.Top = Me.SelectionBox.Top + 40 * (N + 1) + 7
lbl.Left = Me.SelectionBox.Left
lbl.Width = Me.SelectionBox.Width
lbl.Height = Me.SelectionBox.Height
' Deselect Button
Set deselect.btn = Me.Controls.Add("Forms.CommandButton.1") ' DIESE ZEILE GIBT PROBLEME
' FEHLERMELDUNG: Objektvariable oder With-Block nicht festgelegt
With deselect.btn
.BackColor = &HFFFFFF
.ForeColor = &H0&
.Picture = LoadPicture("Beispielpfad\minus.jpg")
.PicturePosition = 12
End With
With deselect.btn.Font
.name = "Arial"
.Size = 16
.Bold = True
End With
deselect.btn.Top = Me.Select_btn.Top + 40 * (N + 1)
deselect.btn.Left = Me.Select_btn.Left - Me.Select_btn.Height + Me.Select_btn.Width
deselect.btn.Width = Me.Select_btn.Height
deselect.btn.Height = Me.Select_btn.Height
N = N + 1
End Sub
Meiner Meinung nach ist das ganze perfekt analog zu deiner Lösung. Siehst du den Fehler?
Grüsse
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.04.2017 09:25:37 |
The_Materialist |
|
|
|
05.04.2017 10:49:55 |
Gast43951 |
|
|
|
05.04.2017 11:03:08 |
Gast80747 |
|
|
|
05.04.2017 11:30:18 |
Gast51561 |
|
|
|
05.04.2017 11:50:11 |
Gast37562 |
|
|
|
05.04.2017 12:52:54 |
Gast63773 |
|
|
Dynamische Userform |
05.04.2017 13:04:56 |
Gast60990 |
|
|
|
05.04.2017 13:14:51 |
Gast13532 |
|
|
|
05.04.2017 13:51:18 |
The_Materialist |
|
|
|
05.04.2017 13:51:54 |
Gast29143 |
|
|
|
05.04.2017 15:36:05 |
The_Materialist |
|
|
|
05.04.2017 16:43:41 |
Gast80299 |
|
|
|
05.04.2017 17:07:40 |
Gast31428 |
|
|