Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: UF, cmdButtons en arrays/collections  (gelezen 27181 keer)

0 leden en 1 gast bekijken dit topic.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: UF, cmdButtons en arrays/collections
« Reactie #105 Gepost op: 08 juli 2023, 18:08:56 »
Hey BlackDevil,

Citaat
...ontwerp van de UF compleet gewijzigd omdat het mij maar niet lukte om te verwezenlijken wat ik in gedachten had (het is vermoedelijk zelfs gewoon niet realiseerbaar)
Ik heb zo het gevoel dat bijna alles te verwezenlijken is mits a) een beetje tijd en goesting, en b) een niet voor vrije interpretatie vatbare omschrijving van de wensen :)

Je merkt het al, ik heb ook je vorige posts bekeken en zag niet meteen wat je heel precies voor ogen had (waar je overigens zelf al voor vreesde ;)).
Toch een poging: je wou eerst een symbool aanklikken, dat moest 'onthouden' worden, daarna wou je een andere (lees: échte) opdrachtknop aanklikken en die moest iets doen op basis van dat symbool?
Als dat min of meer klopt zie ik niet te veel moeilijkheden.
Het angeltje zit hier in het feit dat je bij aanklikken van een opdrachtknop een procedure uitvoert die eindigt vóór een volgende klik wordt opgepakt door vba. Maar dat hadden we bij andere UF's ook al, en hebben we toen eenvoudig opgelost met een globale variabele.
Andere methode die daarvoor al aan bod is gekomen was om je keuze(s) te stockeren in een textbox.

Gezien het aantal opdrachtknoppen (6), de symbolen dus niet meegerekend, lijkt het mij hier slimmer om enkel de symboolknoppen in een klassemodule op te nemen, dat zal de overzichtelijkheid van de code zeker ten goede komen.
Anderzijds, als je inmiddels al allerlei aanpassingen hebt gedaan komt het ook wel goed, we bekijken dan wel met welke structuur er best wordt verder gebouwd.
Dus: laat maar komen, die volgende versie :D

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.031
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #106 Gepost op: 08 juli 2023, 18:48:00 »
weer ff een aantal berichten ineens moeten bijlezen  ;D

@SoftAid,

Ik vermoedde ergens al dat dat het probleem zou geweest zijn, dat ik gewoon eventjes opnieuw moet opstarten (momenteel nog niet gedaan maar ben er 99% zeker van dat dat de reden is  ;) )
Hoe ik alle elementen ineens van hetzelfde font (of eender welke andere gelijke eigenschap) kan voorzien dat wist ik al hoor, maar kan nooit kwaad het even te vermelden, anderen kunnen er ook wat aan hebben  :).


@Pagadder,

Inderdaad, dat weet ik, dat is ook wat ik poogde, de leestekens had ik reeds in de captions geplaatst waarbij het mijn bedoeling was om dan zodra het lettertype geïnstalleerd was dit gewoon in de eigenschappe te gaan aanpassen.
De reden dat het niet lukte (lees : ik het lettertype in de lijst binnen VBA zelf niet terug vond) was louter omdat ik eerst eens alles moet gaan heropstarten.


@Molly,
Inderdaad, dat was zeer globaal gezien, zowat mijn idee.
En ja, ik was dan ook begonnen met enkel die symbool-knoppen via een klasse-module en al de rest via de echte commandbuttons en/of gewone module subs op te bouwen maar
waar ik tegen aan loop (en daar heb ik wel vaker problemen mee) is dat ik het 'range'-aspect maar nooit goed krijg... ik ben dus altijd verward met waar (gewone sub, via UF, vanuit werkblad-knop, enz) ik welke wijze of structuur moet gebruiken. Ik ben in totaal zo'n 10u bezig geweest en hoe ik het ook formuleerde, ik kreeg steeds foutmeldingen. Vandaar dat ik dacht dat ik het beter opgaf en het over een andere boeg zou gooien.

Maar de aanpassingen in het UF_borduren die ik heb vermeld in mijn vorige reactie was in een volledig aparte test-versie van de versie 4.0 dus aangezien ik toch wel  liever met mijn origineel idee wens verder te werken is het totaal geen probleem om verder te gaan met versie 4.0.

Laat maar weten welke uitleg en/of gegevens exact je van mij nodig hebt om mij op weg te helpen  ;)

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Pagadder

  • Volledig lid
  • **
  • Berichten: 183
Re: UF, cmdButtons en arrays/collections
« Reactie #107 Gepost op: 08 juli 2023, 19:36:43 »
Citaat
Misschien even opslaan en de PC herstarten, want bij het installeren van het font kreeg ik hier een hekseketel.
Deze snap ik nog altijd niet.
Heb bij een paar buren het font laten installeren, een Exceltabblad op borduren gezet en dan 1234567890 enz laten intikken ze krijgen mooi de symbolen,ook voor de rest van de tekens trouwens.

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.031
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #108 Gepost op: 08 juli 2023, 19:52:29 »
Deze snap ik nog altijd niet.
Heb bij een paar buren het font laten installeren, een Exceltabblad op borduren gezet en dan 1234567890 enz laten intikken ze krijgen mooi de symbolen,ook voor de rest van de tekens trouwens.
Inderdaad, in het werkblad zelf kreeg ik het lettertype ook meteen te zien maar NIET in VBA zelf (eigenschappen-venster in de editor), hiervoor heb ik effectief mijn PC moeten heropstarten.
nu heb ik het wel in VBA zelf en ondertussen alle nodige aanpassingen gedaan  ;)
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Pagadder

  • Volledig lid
  • **
  • Berichten: 183
Re: UF, cmdButtons en arrays/collections
« Reactie #109 Gepost op: 08 juli 2023, 19:53:16 »
Citaat
Ik hoopte het lettertype ook binnen de eigenschappen van de uf-elementen in de lijst van "font" terug te vinden
om alzo de echte symbolen op de captions te krijgen maar daar staat het lettertype niet in de lijst
Deze snap ik ook niet,de juiste tekens in de captions zetten(rode letters) en dan het lettertype in je captions op borduren zetten en je krijgt je de symbolen in je knopjes.

Offline Pagadder

  • Volledig lid
  • **
  • Berichten: 183
Re: UF, cmdButtons en arrays/collections
« Reactie #110 Gepost op: 08 juli 2023, 19:58:25 »
Citaat
nu heb ik het wel in VBA zelf en ondertussen alle nodige aanpassingen gedaan
Werken de knopjes nu?

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.193
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: UF, cmdButtons en arrays/collections
« Reactie #111 Gepost op: 08 juli 2023, 20:35:04 »
Deze snap ik nog altijd niet.
Hallo Pagadder,
van het ogenblik dat ik het font installeerde werkte mijn Windows 11 pro niet meer normaal.
Ik gebruik nogal veel F-toetsen en Ctrl + letter of cijfer, bvb om mijn handtekening (met mijn hondje) onder een bericht te plaatsen. Of mijn email-adres, of dat van Oplossing.be enzovoort.  Deze werkten niet meer zoals ze bestemd en toegewezen waren, maar ze sloten bijvoorbeeld een reactie hier af, of ze openden een Windows Service. Niets werkte nog normaal, dus dacht ik: "even Apeldoorn bellen". Daar zij men mij om de PC even terug op te starten, en ja hoor, alles werkte vanaf dan normaal.

F8 =   :) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Pagadder

  • Volledig lid
  • **
  • Berichten: 183
Re: UF, cmdButtons en arrays/collections
« Reactie #112 Gepost op: 08 juli 2023, 20:44:18 »
Citaat
Daar zij men mij om de PC even terug op te starten
Gelukkig maar,ik zou me echt niet kunnen voorstellen dat het aan mijn fontje ligt.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: UF, cmdButtons en arrays/collections
« Reactie #113 Gepost op: 08 juli 2023, 20:54:02 »
Hoi BlackDevil,

Ik heb er versie 4.1 van gemaakt ;)
Daar zit nog niets in van wat het finaal zal moeten worden. Ik heb er alleen enkele zaken in opgenomen van wat ik eerder ter sprake had gebracht, met als belangrijkste reden jou wat meer inzicht te bezorgen in het concept 'klassemodule'. Ik verwacht zelfs dat je het hiermee grotendeels (of helemaal) zelf redt om het af te ronden.

Even kort overlopen?
Om het overzicht niet kwijt te raken heb ik een aparte klassemodule toegevoegd. Daarin worden enkel de 60 commandbuttons opgenomen die de symbolen zullen bevatten (dat viel enorm mee omdat ze van 1 tot 60 waren genummerd :D - zie de lengte van de code)
Die actie gebeurt uiteraard in de initialisatie van het UF.
Omdat je het ondertussen op die manier gewoon bent geraakt heb ik het 'onthouden' van de keuze via een extra globale variabele in Module1 gedaan.
Ik heb ook overal redelijk betekenisvolle benamingen gebruikt.

Tenslotte is (enkel als demonstratie / test) bij de knop 'Volle steek' een msgbox voorzien. Die geeft, omdat er al testend nog geen symbolen opstaan, de naam van de commandbutton. Daar kan je dus werkelijk alle kanten mee uit.

Je zal in deze versie dus heel weinig nieuwe code aantreffen, maar ik veronderstel dat eea wel verhelderend zal zijn ;)

Citaat
waar ik tegen aan loop (en daar heb ik wel vaker problemen mee) is dat ik het 'range'-aspect maar nooit goed krijg... ik ben dus altijd verward met waar (gewone sub, via UF, vanuit werkblad-knop, enz) ik welke wijze of structuur moet gebruiken
Dat is wel een lastige om een algemeen antwoord op te geven, hoor. In veel gevallen heb je de keuze, maar dan is het wel altijd nodig de code correct aan te roepen. Oei, daar heb je niet veel aan, zie ik nu zelf, maar ik ga het toch niet schrappen :D :D

Nu ja, misschien maar eens aan het proberen gaan? Maar uren blijven zoeken hoeft voor mij niet, hé. Ik stimuleer je wel graag om zelf iets te proberen maar het mag binnen de perken blijven ;)

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.031
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #114 Gepost op: 08 juli 2023, 21:12:32 »
Deze snap ik ook niet,de juiste tekens in de captions zetten(rode letters) en dan het lettertype in je captions op borduren zetten en je krijgt je de symbolen in je knopjes.
dat is nu toch net exact hetzelfde dan wat ik had gezegd (meerdere keren zelf al), alleen heb ik het helemaal anders verwoord.
Via de eigenschappen had ik , al op voorhand, dus de gewenste tekst (in dit geval 1 karakter) bij "caption" geplaatst waardoor ik dan op de knop zelf dat karakter te zien kreeg
zodat ik, zodra het lettertype beschikbaar en geïnstalleerd was, ik enkel via multi-select van alle knoppen, via de eigenschappen het juiste lettertype kon selecteren en dan
automatisch de symbolen verschenen op de knoppen.
Iets wat ik al jaar en dag probleemloos doe (is niet mijn eerste projectje met UF's en de vorige waren vaak nog complexer).
Nu was het probleem gewoon dat na het installeren van een nieuw lettertype (zou bij eender welk lettertype dus het geval geweest zijn) dit (zonder reboot) enkel terug te
vinden was in de lijst op het lint van de werkblad-modus. Het is pas nà een reboot van mijn PC dat het ook in de lijst van de eigenschappen in de VBA-modus te zien was.

Dus eens het wél in de lijst stond heb ik probleemloos, zoals ik dat altijd doe, het lettertype voor alle symbool-knoppen en symbool-textboxen kunnen aanpassen.  ;)
Alles in orde dus. Het probleem lag totaal niet bij jouw font (en heb ik ook nooit geïnsinueerd), het lag gewoon aan windows dat wel vaker moet ge-reboot worden nadat er
iets nieuws wordt geïnstalleerd.  :D

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Pagadder

  • Volledig lid
  • **
  • Berichten: 183
Re: UF, cmdButtons en arrays/collections
« Reactie #115 Gepost op: 08 juli 2023, 21:32:01 »
Citaat
En die Lamborghini nu
Black Devil is bijna klaar.
Door de nieuwe font natuurlijk. :D ;D 0:-)



Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.031
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #116 Gepost op: 08 juli 2023, 21:40:04 »
@Molly,

Ik heb de extreem lange code ... (grapje  ;D) ... even bekeken en dan eens getest door ook al symbolen in te laden en dan in de klasse-module gewoon .Name te vervangen door .Caption en dat ziet er dus héél goed uit hé.

Ik zal een versie klaarmaken met alle benodigde UF's (ingeladen met symbool), de werkbladen "raster", "patroon" en "afgewerkt" klaar voor gebruik en dit hier dan aanhangen als versie 4.2 om alzo naar de testfase van de codering voor het borduren te kunnen overstappen.


groetjes,
BlackDevil


Edit : zoals beloofd in bijlage versie 4.2 volledig klaar om onderdeel 'borduren' te coderen en testen  ;)
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: UF, cmdButtons en arrays/collections
« Reactie #117 Gepost op: 09 juli 2023, 14:37:25 »
Hey BlackDevil,

Zou het kunnen dat je een versie 4.2 hebt bezorgd die enkel dient om wat 'borduren'-code te kunnen maken? In het andere geval moet deze versie misschien nog eens onder de scanner ;)
Ik wou namelijk als proefje er eens vanaf het begin mee testen en vond geen werkblad 'raster' meer terwijl dat wel nog in de code staat. En hoe je aan de kleurtjes op werkblad 'kleurptrn' komt vind ik ook niet (of kijk er wegens oververhitting gewoon over ;D)

Als het dus enkel om de code voor de volgende fase gaat (in een vorige post had ik misschien toch voorbarig(?) de hoop en geloof uitgesproken dat je zelf verder zou raken), dan lukt het hier natuurlijk wel mee. Mogelijk heb ik de doelstellingen nog niet door, in dat geval geldt het weer enkel als voorbeeld... Ik heb het dus nog maar een keer zo simpel mogelijk gehouden en de kleurtjes van de knoppen gebruikt om het werkblad mee in te kleuren.
Mijn enige aanpassingen zitten dus onder UF_borduren.

Laat maar weten als deze werkwijze niet (of onvoldoende) duidelijk is!

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.031
  • Geslacht: Vrouw
  • veni vidi vici
Re: UF, cmdButtons en arrays/collections
« Reactie #118 Gepost op: 09 juli 2023, 15:31:01 »
@Molly,

Inderdaad, ik had (vermoedelijk door de vermoeidheid) een versie aangehangen waarbij (met afgewerkt sjabloon) reeds een nieuw borduurproject werd opgeslagen  :-[ mijn excuses.

Ondertussen heb ik (op basis van het bestand van mijn vorig borduurwerk afgelopen jaar) alle benodigde code (qua handelingen en berekeningen althans, structuur mag verbeterd worden) achter de echte opdrachtknoppen van UF_borduren reeds toegevoegd.
MAAR : alweer stoot ik bij mijn laatste opdrachtknop ('sub verwerken()') in het begin van de code op mijn welgekende probleem met de "set range".

In bijlage hang ik 2 exemplaren van de huidige versie 4.3 aan, de ene als blanco sjabloon en de andere als  reeds begonnen borduurwerk.

Nogmaals mijn excuses voor mijn verstrooidheid...


groetjes,
BlackDevil

P.S.: de code om werkblad "raster" te hernoemen naar "kleurptrn" en de symbolen en randen te verwijderen staat onderaan in de sub 'stekenperkleurtellen()' welke achter de werkblad-knop zit op werkblad "stats"
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline Pagadder

  • Volledig lid
  • **
  • Berichten: 183
Re: UF, cmdButtons en arrays/collections
« Reactie #119 Gepost op: 09 juli 2023, 16:00:55 »
Ik heb de laatste bijlage van het bestandje van molly bekeken.
Was benieuwd naar het resultaat van de symbolenkiezer.
Je hebt een lege knop zonder caption,daar heb je het € teken ingezet.(€ wordt niet gebruikt in het font) In het ontwerp van de symbolen kiezer ga je het juiste teken moeten zetten.
Als je het juiste aantal symbolen hebt ingevuld wordt de tekstbox gekleurd,als je er eentje (of meerdere) wist verdwijnt de kleur niet.

 


www.combell.com