Auteur Topic: VBA UF en symbolen (gelezen 4275 keer)

BlackDevil · « **Gepost op:** 07 september 2022, 17:29:19 »

Goedenavond allen,

Ik heb nog eens een vraagje...

In mijn bestand heb ik een werkblad met symbolen uit het lettertype "Segoe UI Symbol" om een aantal zaken te indentificeren.
Nu zou ik graag een UF maken met enkele knoppen waarop enkel dat symbool staat ipv gewone tekst.

Is dit überhaupt mogelijk? En zoja, hoe los ik dit op?

Alvast dank op voorhand.

groetjes,
BlackDevil

MollyVH · « **Reactie #1 Gepost op:** 08 september 2022, 08:59:13 »

Hallo BlackDevil,

Ik zou dit vooral onder spielerei zetten, maar net daar voel ik wel voldoende sympathie voor

Ben dus ook van nul moeten beginnen, en zo op het eerste zicht gaat dat inderdaad niet, dus maar mijn toevlucht gezocht in een beetje valsspelen

En nu mag jij uitpuzzelen hoe dat te 'dupliceren'.

Groetjes,
Molly

BlackDevil · « **Reactie #2 Gepost op:** 08 september 2022, 10:04:22 »

Hey MollyVH,

Hartelijk dank voor je reactie en oplossing.

Ik vermoed dat je eerst van het symbool een afbeelding hebt gemaakt welke je dan vervolgens aan de commandbutton heb toegevoegd als 'picture'.
Ik was ook eerst in die richting aan het denken maar vond dit nogal omslachtig. Vooral omdat het de bedoeling is het bestand voor andere gelijkaardige
projecten te gaan gebruiken met mogelijks bijkomende en/of nieuwe symbolen.
Wat ik eigenlijk zocht was een manier om de symbolen over te nemen uit het werkblad (het werkblad wijzigt per project en dan zouden de symbolen op de UF automatisch mee wijzigen).
Ik weet dat normaliter elk symbool zijn eigen ChrW-code zou moeten hebben dus heb een lijstje met al deze codes (gegenereerd via een macro die ik op het internet terugvond).

Dus hoop ik nu op één of ander manier op mijn werkblad met symbolen een extra kolom te kunnen maken met daarin het corresponderende code-nr welke dan opgezocht werd in die code-lijst.
Ben dus nu zowat aan het uitvissen hoe ik dat allemaal gedaan kan krijgen

.

groetjes,
BlackDevil

Haije · « **Reactie #3 Gepost op:** 08 september 2022, 10:07:00 »

Kun je eens een bestand met dat lijstje posten?

BlackDevil · « **Reactie #4 Gepost op:** 08 september 2022, 11:25:24 »

voor de geïnteresseerden, mijn lijstje met ChrW-codes (1 tem 65000) in bijlage

.

groetjes,
BlackDevil

Warme bakkertje · « **Reactie #5 Gepost op:** 08 september 2022, 12:54:41 »

Is dit waar je heen wil?

Over welke tekens spreken we?

MollyVH · « **Reactie #6 Gepost op:** 08 september 2022, 13:21:22 »

Hallo BlackDevil,

Ik was er net ook nog even mee aan het spelen. Waarom is mij (nog ?) niet duidelijk, maar het schijnt voor sommige tekens wel en voor andere niet te werken.
Op de bijlage heb ik er willekeurig enkele uit je lijst behouden waarmee het in elk geval wel werkt.

@ Warme bakkertje,
Ik vermoed dat je in dezelfde richting dacht?

Groetjes,
Molly

BlackDevil · « **Reactie #7 Gepost op:** 08 september 2022, 14:30:58 »

Hey warme bakkertje en MollyVH,

@warme bakkertje, inderdaad, ik wil gewoon een aantal knoppen maken met daarop enkel het symbool.

@beide,

Ik heb het net hééééél simpel opgelost gekregen (ging het blijkbaar veel té ver zoeken) door gewoon in
de programmacode van het UF voor de CommanButton1.Caption te verwijzen naar de cel waarin het
symbool staat en dan geeft hij dat symbool gewoon weer op de button.

Het volgende wat ik nu moet zien uit te vissen is of en hoe ik het aantal te plaatsen buttons kan laten
bepalen volgens het aantal symbolen dat er vermeld worden op het werkblad (dit aantal varieert bij
elk nieuw project).

Aan beide ontzettend dank voor de hulp en tips.

groetjes,
BlackDevil

Warme bakkertje · « **Reactie #8 Gepost op:** 09 september 2022, 09:08:55 »

Bij deze.

BlackDevil · « **Reactie #9 Gepost op:** 09 september 2022, 10:09:49 »

@warme bakkertje,

Hartelijk dank voor dit codeblokje $_/-\o_$ .
Dit zou mij (met mijn basiskennis) werkelijk talloze uren gekost hebben om nog maar in de buurt te komen

.
Nu enkel nog aanpassen aan mijn bestand en ik kan verder naar de volgende stap.
Weer veel bijgeleerd hiermee

groetjes,
BlackDevil

BlackDevil

@warme bakkertje,

Toch nog een klein vraagje.
Aangezien mijn huidige project 29 symbolen bevat en sommige projecten vaak nog veel meer symbolen zullen hebben
wou ik vragen hoe/waar ik de code kan aanpassen om na een bepaald aantal buttons (5 of 10 al naargelang het totale aantal)
naar rechts op te schuiven en opnieuw bovenaan te starten zodat het UF breder wordt ipv alsmaar langer.
De breedte van de buttons heb ik zelf reeds aangepast naar "30".

Alvast dank.

groetjes,
BlackDevil

BlackDevil

***UPDATE***

Heb het zelf al gevonden

heb gewoon dit toegevoegd aan de 'loop' :

Code: [Selecteer]

If I Mod 5 = 0 Then
    lngLeft = Btn.Left + Btn.Width + 3
    lngTop = 5
End If

groetjes,
BlackDevil

BlackDevil

Hier ben ik nog eens met een vraagje

.

Normaliter als je bij het klikken van de commandbutton code wil laten draaien dan plaats je deze
achter de 'Private Sub CommandButton_Click()'.
Maar gezien hier de commandbuttons pas aangemaakt worden nadat het UF geïnitialiseerd is kan ik
op die manier de nodige code niet achter de CommandButton plaatsen.

De handelingen achter elke commandbutton zijn wel quasi hetzelfde.
Hoe kan ik er nu voor zorgen dat bij een klik, op één der automatisch aangemaakte commandbuttons,
de nodige code wordt doorlopen om de juiste handelingen uit te voeren?

Alvast dank op voorhand.

groetjes,
BlackDevil

Warme bakkertje

Aangezien je zegt 29 of zelfs meer zou ik het toch houden op rijen van 10 knoppen +

je moet ook rekening houden met de hoogte en breedte van je UF.

Code: [Selecteer]

Private Sub UserForm_Initialize()
    Dim Btn As MSForms.CommandButton
    Dim numrows As Long, I As Long
    Dim lngLeft As Long, lngTop As Long

    lngLeft = 10: lngTop = 5
    numrows = Application.CountA(Blad1.Columns(2))
    With UserForm2
        For I = 1 To numrows
            Set Btn = .Controls.Add("Forms.CommandButton.1")
            Btn.Caption = Blad1.Cells(I, 2)
            Btn.Left = lngLeft
            Btn.Top = lngTop
            lngTop = Btn.Top + Btn.Height + 3
            If I Mod 10 = 0 Then
                lngMax = lngTop + BtnHeight
                lngTop = 5
            lngLeft = lngLeft + Btn.Width + 3
        End If
        Next I
        lngTop = IIf(lngMax > lngTop, lngMax, lngTop)
        .Height = lngTop + Btn.Height + 10
        .Width = lngLeft + Btn.Width + 20
    End With
End Sub

BlackDevil

@warme bakkertje,

Bedankt voor je reactie.

Maar gezien de knoppen 'maar' 30 breed zijn en het de bedoeling is dat de UF modeless blijft terwijl ik op een ander werkblad werk
is het wel beter om het bij 5 te houden. Dat het UF extra breed word stoort dan niet in mijn werkveld maar wel indien het langer wordt.

Ik moet nog enkel uitzoeken hoe ik nu achter elke knop de nodige code moet schrijven.

groetjes,
BlackDevil

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: VBA UF en symbolen (gelezen 4275 keer)

BlackDevil

VBA UF en symbolen

MollyVH

Re: VBA UF en symbolen

BlackDevil

Re: VBA UF en symbolen

Haije

Re: VBA UF en symbolen

BlackDevil

Re: VBA UF en symbolen

Warme bakkertje

Re: VBA UF en symbolen

MollyVH

Re: VBA UF en symbolen

BlackDevil

Re: VBA UF en symbolen

Warme bakkertje

Re: VBA UF en symbolen

BlackDevil

Re: VBA UF en symbolen

BlackDevil

Re: VBA UF en symbolen

BlackDevil

Re: VBA UF en symbolen

BlackDevil

Re: VBA UF en symbolen

Warme bakkertje

Re: VBA UF en symbolen

BlackDevil

Re: VBA UF en symbolen