• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kleur van een msgbox

Status
Niet open voor verdere reacties.
M

mataio

Gebruiker
Lid geworden
6 apr 2006
Berichten
8
hoi!

telkens er een msgbox verschijnt, heeft deze een grijze achtergrond.
is het mogelijk om iedere msgbox te laten verschijnen met een witte achtergrond?

en als je een excel-bestand opent, hoe kun je er dan voor zorgen dat een macro in dat bestand (bvb met de naam "overeenkomst") onmiddellijk van start gaat?

bedankt!
 
Laatst bewerkt:
mataio zei:
hoi!
telkens er een msgbox verschijnt, heeft deze een grijze achtergrond.
is het mogelijk om iedere msgbox te laten verschijnen met een witte achtergrond?
!
Klik om te vergroten...

Voor zover ik weet niet. De kleur van een msgbox wordt bepaald door de kleur van je windows instellingen.


mataio zei:
en als je een excel-bestand opent, hoe kun je er dan voor zorgen dat een macro in dat bestand (bvb met de naam "overeenkomst") onmiddellijk van start gaat?
!
Klik om te vergroten...

Ga naar EXTRA - MACRO - VISUAL BASIC EDITOR (ALT + F11).
Dubbelklik op ThisWorkbook en selecteer de Event OPEN (rechtsboven in het scherm).
Zet daar de naam van de macro in.

Zie eventueel bijlage.
 
Laatst bewerkt:
mgs box bewerken

Doe het als volgt

klik op bewerken van besturings elementen
klik op de te bewerken knop
er komen witte stippen op de hoeken
klik dan op de rechtemuis knop een rol menu verschijnt
kies dan eigenschappen
er komt een menu
en kijk onder de kop uiterlijk en een van die opties geeft de mogelijkheid om border en kleur te veranderen effe wat stoeien en het werkt je kunt er zelfs een plaatje op plakken Logo of zo
groet Rien
 
hartelijk dank, maar hier gaat het over een msgbox, dat kun je niet op je userform vooraf gaan invoegen en bewerken zoals knoppen en labels

is het mss mogelijk om via 1 van die vele besturingssystemen een soort van msgbox na te bouwen en deze dan te bewerken qua achtergrondkleur en dergelijke?...

mataio

PS de macro automatisch laten starten lukt me al, bedankt!! :D
 
mataio zei:
hoi!
telkens er een msgbox verschijnt, heeft deze een grijze achtergrond.
is het mogelijk om iedere msgbox te laten verschijnen met een witte achtergrond?
bedankt!
Klik om te vergroten...

Het is mogelijk: kijk maar op de site van Ivan F. Maola, een zeer gewaardeerd poster van antwoorden op een 7-tal Excel forums:

http://http://xcelfiles.homestead.com/API_11.html

Zoals Ivan schrijft: "Whilst it maybe easier to perofrm this via the use of a Userform,..."

Samengevat: het IS mogelijk, maar gebruik een eigen Userform.
 
Wigi zei:
Samengevat: het IS mogelijk, maar gebruik een eigen Userform.
Klik om te vergroten...

Daar was Mataio al achter en ik denk dat Mataio dat wel kan. De vraag gaat over een MSGBOX niet om een USERFORM.:rolleyes:

Overigens werkt de link naar Maola niet.:confused:
 
Roncancio zei:
De vraag gaat over een MSGBOX niet om een USERFORM

Overigens werkt de link naar Maola niet.:confused:
Klik om te vergroten...

Sorry, 2 keer http:// geschreven. Heb het nog niet helemaal onder de knie. Ik wou enkel maar de link geven met de bijhorende boodschap dat het wel degelijk mogelijk is (maar dat ik het zelf nog nooit gebruikt heb.)

Groeten
 
bedankt voor die site wigi! :thumb:

http://www.downloadcounter.com/cgi-bin/download.pl?username=ivanm&account=44

heb stukjes code trachten te verwerken in mijn macro
maar in dat bestand van hem worden er 3 modules aangemaakt
en wat er precies allemaal van nodig is, daarvoor ken ik niet genoeg van vba :(

wat ik zou willen bekomen is, als een waarde a groter is dan een waarde b, dat er een msgbox met 3 lijntjes tekst op en daaronder 1 knop met caption "OK" verschijnt, in de titelbalk "fout in de dimensies !", een witte achtergrond en een uitroepteken in een geel driehoekje vooraan de tekst (iets van een MB_ICONSTOP ofzo in da bestand op die site...)

als er op de OK-knop geduwd wordt moeten er 2 labels van kleur veranderen...

wat ik nu heb doet dit alles wel maar de msgbox die te voorschijn komt heeft een grijze achtergrond en geen dergelijk uitroepingsteken in een geel driehoekje voor de tekst

mataio
 
machtig, precies wat ik nodig heb!
maar toch krijg ik steeds een foutmelding...


Option Explicit

Public b As Double
Public d As Double

Private Sub CommandButton1_Click()
Dim prompt As kt_MsgBoxPromptType
Call ktMsgBoxPromptTypeInit(prompt)
Dim rc As Variant

b = TextBox1.Value
d = TextBox2.Value

If b < d Then
rc = ktMsgBox(" de waarde van d > de waarde van b" _
, vbOKOnly, "fout in de dimensies !" _
, Top:=200, Left:=200 _
, BackColor:=vbWhite _
, IconFile:="g:\redshd.gif" _
, FontName:="Times New Roman" _
, FontSize:=9 _
, BackImage:="g:\naamloos.bmp" _
, ImageWidth:=280 _
, ImageHeight:=100)

TextBox1.BackColor = RGB(0, 255, 255)
TextBox2.BackColor = RGB(0, 255, 255)

Else

TextBox1.BackColor = RGB(255, 255, 255)
TextBox2.BackColor = RGB(255, 255, 255)

End If
End sub


ziet er iemand de fout? ben ook maar een leek dus... :confused:
moest je dit trachten te laten werken, veranderen dan de locaties van de iconfile en de backimage naar afbeeldingen op je eigen pc...

we zijn er bijna!

mataio
 
Nog iets gevonden met kleur :


Dialog Boxes don't HAVE to be boring!!!

Pierre
 

Bijlagen

mataio zei:
machtig, precies wat ik nodig heb!
maar toch krijg ik steeds een foutmelding...


Option Explicit

Public b As Double
Public d As Double

Private Sub CommandButton1_Click()
Dim prompt As kt_MsgBoxPromptType
Call ktMsgBoxPromptTypeInit(prompt)
Dim rc As Variant

b = TextBox1.Value
d = TextBox2.Value

If b < d Then
rc = ktMsgBox(" de waarde van d > de waarde van b" _
, vbOKOnly, "fout in de dimensies !" _
, Top:=200, Left:=200 _
, BackColor:=vbWhite _
, IconFile:="g:\redshd.gif" _
, FontName:="Times New Roman" _
, FontSize:=9 _
, BackImage:="g:\naamloos.bmp" _
, ImageWidth:=280 _
, ImageHeight:=100)

TextBox1.BackColor = RGB(0, 255, 255)
TextBox2.BackColor = RGB(0, 255, 255)

Else

TextBox1.BackColor = RGB(255, 255, 255)
TextBox2.BackColor = RGB(255, 255, 255)

End If
End sub


ziet er iemand de fout? ben ook maar een leek dus... :confused:
moest je dit trachten te laten werken, veranderen dan de locaties van de iconfile en de backimage naar afbeeldingen op je eigen pc...

we zijn er bijna!

mataio
Klik om te vergroten...

Wellicht een beetje laat.

Er zijn 3 dingen die je nog moet doen:
1. Je moet het bestand ktMsgboxAddlin.xla invoegen. Het bestand staat in het zip-file.
Hoe invoegen ? Zet het bestand in een directory neer. Ga in Excel naar Extra - Invoegtoepassingen. Kies voor Bladeren en zoek naar het bestand. Klik op Ok.

2. Vink ktMsgboxAddlin.xla aan bij Extra - Invoegtoepassingen.

3. Ga naar Extra - Macro - Visual Basic Editor. Kies voor Extra - Verwijzingen en vink ook daar ktMsgboxAddlin.xla aan.

Dan moet het werken. Bij mij werkt het namelijk wel. Als er problemen zijn, dan hoor ik het wel.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan