Thema Datum  Von Nutzer Rating
Antwort
05.04.2017 17:14:33 The_Materialist
NotSolved
05.04.2017 22:36:28 Gast98572
NotSolved
06.04.2017 07:04:45 Gast50678
NotSolved
06.04.2017 08:00:35 Gast25697
NotSolved
06.04.2017 15:08:34 Gast26297
NotSolved
Blau lbl as Object vs lbl as Label
 06.04.2017 15:58:34 Gast29604
NotSolved

Ansicht des Beitrags:
Von:
Gast29604		 Datum:
06.04.2017 15:58:34		 Views:
807		 Rating:
     
Antwort:
  Ja
Thema:
lbl as Object vs lbl as Label

Wunderbar! Das Ganze ist jetzt noch übersichtlicher und funktioniert einwandfrei. Hier der zum "nachbasteln"

 

Folgende Userform besteht aus einem CommandButton= Select_btn einer Combobox=SelectionBox, einem Bild=Logo und einem CommandButton=Back_btn. 

Die Klasse ListEntry erzeugt einen Button mit einem Bild (hier ein Minuszeichen) und ein Label. Das Label speichert den Eintrag der in der Combobox ausgewählt wurde mittels des Select Buttons. Klickt man Select wird also der aktuell ausgewählte Eintrag als Listentry.lbl.caption gespeichert. Wenn der Button des Entries gedrückt wird verschwindet der Eintrag, die Einträge werden mit einem aktualisierten Index und Namen versehen. Dazu wird noch ein Modul namens UI verwendet. 

Hier der Code

Klasse: ListEntry

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public WithEvents btn As MSForms.CommandButton
Public Index As Integer
Public WithEvents lbl As MSForms.Label
  
Private Sub btn_Click()
frmMaterial.Height = frmMaterial.Height - 40
frmMaterial.Logo.Top = frmMaterial.Logo.Top - 40
frmMaterial.Backbtn.Top = frmMaterial.Backbtn.Top - 40
frmMaterial.GO_btn.Top = frmMaterial.GO_btn.Top - 40
 
frmMaterial.Controls.Remove ("Deselect" & Index)
frmMaterial.Controls.Remove ("Selection" & Index)
frmMaterial.lstCol.Remove (Index)
 
Call UI.Reindex
Call UI.Respace
 
If frmMaterial.lstCol.Count = 0 Then
      frmMaterial.GO_btn.Enabled = False
End If
End Sub

Userform frmMaterials:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Option Explicit
'This is written by Lucas Raphael Pianegonda @ EMS Chemie. Since the employment contract does not treat copyright, the copyright
'of this code is owned by Lucas Meier. The code can be used and modified by others in or outside the company. However any licencing,
'commerciallization of the code it self and not it's produced outputs can only occure with the explicit permission of Lucas Raphael Pianegonda.
 
'This userform is meant to select different materials to compare
Public SP As Boolean ' Singelpoint
Public MP As Boolean ' Multipoint
Public DS As Boolean ' Datasheets
Public SC As Boolean ' Scatterplots
Public lstCol As New Collection
 
Private Sub GO_btn_Click()
Me.Hide
If Not (frmUI.MP Xor frmUI.SP Xor frmUI.DS Xor frmUI.SC) Then
GoTo Fehler
End If
 
If frmUI.MP Then
      frmFilter.Show
      Me.Hide
ElseIf frmUI.SP Then
      frmFilter.Show
      Me.Hide
ElseIf frmUI.DS Then
      DataSheets.DataSheets_show
      Me.Hide
ElseIf frmUI.SC Then
      MsgBox "Scatterplot was activated, but this makes no sense here."
      Me.Hide
End If
 
Exit Sub
Fehler:
MsgBox "There is not exactly one true trigger there is something wrong. Either all of them are False or more then one are True."
 
End Sub
 
Private Sub UserForm_Initialize()
Set lstCol = New Collection
End Sub
Private Sub Select_btn_Click()
 
Dim Entry As New ListEntry
 
lstCol.Add Entry
 
' 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 Entry.lbl = Me.Controls.Add("Forms.Label.1", "Selection" & lstCol.Count, True)
 
With Entry.lbl.Font
      .name = "Arial"
      .Size = 16
      .Bold = True
End With
Entry.lbl.Caption = "" & SelectionBox.Value
Entry.lbl.Top = Me.SelectionBox.Top + 40 * (lstCol.Count) + 7
Entry.lbl.Left = Me.SelectionBox.Left
Entry.lbl.Width = Me.SelectionBox.Width
Entry.lbl.Height = Me.SelectionBox.Height
 
' Entry Button
Set Entry.btn = Me.Controls.Add("Forms.CommandButton.1", "Deselect" & lstCol.Count, True)
Entry.Index = lstCol.Count
 
With Entry.btn
      .BackColor = &HFFFFFF
      .ForeColor = &H0&
      .Picture = LoadPicture("V:\GR-QKMP\AUFTRAG\Datenbanktool\Datenbanktool_VBA_Project\Sourcedata_and_Modules\Icons\minus.jpg")
      .PicturePosition = 12
End With
 
With Entry.btn.Font
      .name = "Arial"
      .Size = 16
      .Bold = True
End With
 
Entry.btn.Top = Me.Select_btn.Top + 40 * (lstCol.Count)
Entry.btn.Left = Me.Select_btn.Left - Me.Select_btn.Height + Me.Select_btn.Width
Entry.btn.Width = Me.Select_btn.Height
Entry.btn.Height = Me.Select_btn.Height
 
Entry.btn.TakeFocusOnClick = False
 
frmMaterial.GO_btn.Enabled = True
End Sub
Private Sub Backbtn_Click()
frmUI.MP = False
frmUI.SP = False
frmUI.DS = False
frmUI.SC = False
frmMaterial.Hide
frmUI.Show
End Sub
Code UI Modul:
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Public Sub Respace()
Dim Entry As ListEntry
Dim Index As Integer
 
Index = 1
For Each Entry In frmMaterial.lstCol
      Entry.btn.Top = frmMaterial.Select_btn.Top + Index * 40
      Entry.lbl.Top = frmMaterial.SelectionBox.Top + Index * 40
      Index = Index + 1
Next Entry
 
End Sub
Sub Reindex()
Dim Entry As ListEntry
Dim Idx As Integer
Dim lbl As MSForms.Label
 
Idx = 1
For Each Entry In frmMaterial.lstCol
      Entry.Index = Idx
      Entry.btn.name = "Deselect" & Idx
      Entry.lbl.name = "Selection" & Idx
      Idx = Idx + 1
Next Entry
End Sub
 
Background Info: frmUI als Hauptmenü und frmFilter als weiteres Untermenü werden im Code verwendet. Das Hauptmenü hat vier Buttons einer für SinglePoint Daten =SP, einer für Multipoint Daten=MP, eine für Data Sheets =DS und eine für einen Scatterplot =SC. Die jeweiligen Booleans erlauben mir nach dem Aufruf der letzten Filterform festzustellen welcher Button anfangs gedrückt wurde. 
Entry.btn.Top = Me.Select_btn.Top + 40 * (lstCol.Count)
Entry.btn.Left = Me.Select_btn.Left - Me.Select_btn.Height + Me.Select_btn.Width
Entry.btn.Width = Me.Select_btn.Height
Entry.btn.Height = Me.Select_btn.Height
 
Entry.btn.TakeFocusOnClick = False
 
frmMaterial.GO_btn.Enabled = True
End Sub
Private Sub Backbtn_Click()
frmUI.MP = False
frmUI.SP = False
frmUI.DS = False
frmUI.SC = False
frmMaterial.Hide
frmUI.Show
End Sub

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 17:14:33 The_Materialist
NotSolved
05.04.2017 22:36:28 Gast98572
NotSolved
06.04.2017 07:04:45 Gast50678
NotSolved
06.04.2017 08:00:35 Gast25697
NotSolved
06.04.2017 15:08:34 Gast26297
NotSolved
Blau lbl as Object vs lbl as Label
 06.04.2017 15:58:34 Gast29604
NotSolved