Er zijn 25 reacties in dit onderwerp

[Dummy1912]

Goedennacht allemaal,

ik zit met een vraagje en hoop jullie mij kunnen helpen.
ik vindt niets op google.


hoe kan ik deze achtergrond kleur vervangen door de achterkleur van de richtextbox zelf.

Code:

Clipboard.SetImage(Image.FromFile("c:\demo.png"))
richtextbox1.paste

Thanks.

[pascalbianca]

Bedoel je de kleur van die richtextbox of die van die image in je clipboard?
Als je de kleur van die richtextbox wilt aanpassen kan dat met
Visual Basic Code:

  RichTextBox1.BackColor = Color.DimGray

of anders op het laatste naar jou smaak.

[Dummy1912]

goedenmorgen pascal,

ik bedoel de image van het clipboard. die zou dan de kleur moeten krijgen van de richtextbox.

alvast bedankt voor je reply

[Dummy1912]

geen oplossing.

ik heb zelfs nieuwe form met richtextbox met witte achtergrond
maar blijft grijs aangeven.

nieuwe code maar blijft zelfde.

Code:

Dim org As Image = New Bitmap("C:\open16.png")
Dim img As Image = New Bitmap(org.Width, org.Height)
Using g As Graphics = Graphics.FromImage(img)
g.Clear(Color.Red)
Dim rect As Rectangle = New Rectangle(0, 0, org.Width, org.Height)
g.DrawImage(org, rect, 0, 0, org.Width, org.Height, GraphicsUnit.Pixel)
End Using
Clipboard.SetImage(img)
RichTextBox13.Paste(DataFormats.GetFormat(DataFormats.Bitmap))

[pascalbianca]

Probeer dit eens, is dat wat je bedoeld?
Visual Basic Code:

  Dim org As Image = New Bitmap("C:\open16.png")
		Dim img As Image = New Bitmap(org.Width, org.Height)
		Using g As Graphics = Graphics.FromImage(img)
			g.Clear(RichTextBox13.BackColor)
			Dim rect As Rectangle = New Rectangle(0, 0, org.Width, org.Height)
			g.DrawImage(org, rect, 0, 0, org.Width, org.Height, GraphicsUnit.Pixel)
		End Using
		Clipboard.SetImage(img)
		RichTextBox13.Paste(DataFormats.GetFormat(DataFormats.Bitmap))

[Dummy1912]

hey pascal
ik heb dat al geprobeert in de toekomst
maar blijft het zelfde

nog andere ideeen aub.

[pascalbianca]

Hmmm vreemd want die werkt bij mij wel.

[Dummy1912]

goedemorgen pascal

ik gebruikte een image or icon with transparent background color.
ik had zelfs opnieuw getest met een nieuwe form

en richtextbox met witte achtergrond maar maakte niet uit
ik begrijp er zelfs niet van

[pascalbianca]

Ik weet niet in hoe verre je project prive is anders plaats hem eens hier in een bijlage , dan kunnen we eens kijken.

[Dummy1912]

kleine demo gemaakt

wel even de file wijzigen
ik krijg zelfs geen image te zien.

success

Bijgevoegde Bestanden

•  testje.zip   68.19K   1 Aantal bijlagen

[pascalbianca]

Uh waar wil jij die image dan hebben staan?
In die ritchtextbox of als achtergrond van die form?

[Dummy1912]

wel die image word er in geplakt
en komt automatisch links boven te staan.

[pascalbianca]

Ik zie dat je die zelfde vraag gesteld hebt op een ander forum en dat ze daar ook niet 123 een oplossing voor hebben.
Dus vervang deze regel
Visual Basic Code:

RichTextBox13.Paste(DataFormats.GetFormat(DataFormats.Bitmap))

eens met deze regel
Visual Basic Code:

 RichTextBox13.CreateGraphics().DrawImage(Clipboard.GetImage, -10, 0, New Rectangle(0, 0, RichTextBox13.Width, RichTextBox13.Height), GraphicsUnit.Pixel)

Heb je tenminste hier iets snellere reactie

[Dummy1912]

lol
ja je moet overall eens proberen e

denk niet dat het werkt

Code:

Dim org As Image = New Bitmap("C:\open16.png")
	   ' Dim img As Image = New Bitmap(org.Width, org.Height)
		' Using g As Graphics = Graphics.FromImage(img)
		' g.Clear(RichTextBox13.BackColor)
		' Dim rect As Rectangle = New Rectangle(0, 0, org.Width, org.Height)
		' g.DrawImage(org, rect, 0, 0, org.Width, org.Height, GraphicsUnit.Pixel)
		' End Using
		Clipboard.SetImage(org)
		RichTextBox13.CreateGraphics().DrawImage(Clipboard.GetImage, -10, 0, New Rectangle(0, 0, RichTextBox13.Width, RichTextBox13.Height), GraphicsUnit.Pixel)
		RichTextBox13.Paste(DataFormats.GetFormat(DataFormats.Bitmap))

[pascalbianca]

Nee zo zal het ook niet werken, je zet de begin codes op commentaar, ik vermelde alleen die ene regel vervangen en de rest te laten staan.

[Dummy1912]

oops sorry

maar werkt ook niet

Code:

Dim org As Image = New Bitmap("C:\open16.png")
			Dim img As Image = New Bitmap(org.Width, org.Height)
			Using g As Graphics = Graphics.FromImage(img)
				g.Clear(RichTextBox13.BackColor)
				Dim rect As Rectangle = New Rectangle(0, 0, org.Width, org.Height)
				g.DrawImage(org, rect, 0, 0, org.Width, org.Height, GraphicsUnit.Pixel)
			End Using
			Clipboard.SetImage(img)
			RichTextBox13.CreateGraphics().DrawImage(Clipboard.GetImage, -10, 0, New Rectangle(0, 0, RichTextBox13.Width, RichTextBox13.Height), GraphicsUnit.Pixel)
			' RichTextBox13.Paste(DataFormats.GetFormat(DataFormats.Bitmap))

[pascalbianca]

Dan ga ik een stomme vraag stellen, staat die open16.png wel op de c oals je dat ik je code vermeld want hier werkt het gewoon normaal als ik de image naam verander naar een png file van mij.

[Dummy1912]

ja hoor
maar blijft een grijze achtergrond kleur geven

en deze regel verbergt mijn image

Code:

RichTextBox13.CreateGraphics().DrawImage(Clipboard.GetImage, -10, 0, New Rectangle(0, 0, RichTextBox13.Width, RichTextBox13.Height), GraphicsUnit.Pixel) 

[pascalbianca]

Probeer deze eens zonder iets aan de code te doen.
 testje.rar   104.99K   3 Aantal bijlagen

[Dummy1912]

wat.....

meen je dat nu?
als ik zelfde formule doe als die van jouw
werkt het wel zonder ene grijze achtergrond color.

:'( voel mij nu echt beetje dom

[pascalbianca]

Dat heeft niks met dom te maken
Je zult toch ergens een foutje hebben zitten.

[Dummy1912]

ik kan je niet genoeg bedankt pascal
maar ben blij dat je mij hebt kunnen helpen hieruit.

hartelijk dank voor je tijd

een pluimpje voor jouw

[pascalbianca]

Graag gedaan, gelukkig is het geen veer, die word wat ruim genomen door sommige

[Dummy1912]

lol een veer?

hoezo op welk vlak wordt dit ruim genomen.

[Eviltwin]

Ik denk dat pascalBianca doelt op het volgende topic Dummy:

http://www.vbib.be/i...h__1#entry59902

Groeten

Eviltwin

[pascalbianca]