hoi, ik heb bij onderstaande code een probleempje. Ik wil dus alle text op 1 regel in die image flikkeren, maar om een of andere vage reden flikkert ie er een enter tussen.
zo ziet de image eruit....

Het gaat dus in de regel: imagetext = ..... fout...
heeft iemand een ideetje?
code:
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
| <%
Response.Expires = "0"
'object aanroepen
Set Image = Server.CreateObject("AspImage.Image")
'hier zet je dus zeg maar een soort kaderrand neer..
Image.PadSize = 4
Image.ImageFormat = 3 'png formaat
'wat instellingen voor het lettertype
Image.TextAlign = 0 '(links)
Image.AntiAliasText = true
Image.FontColor = vbBlack
Image.FontSize = 7
Image.FontName = "Arial Narrow Standaard"
'uptime opzoeken!
Set Executor = Server.CreateObject("ASPExec.Execute")
Executor.Application = "uptime"
uptime = Executor.ExecuteDosApp
uptime = Replace (uptime, "\\MORIHEI has been up for: ", "Uptime:")
' variable invullen
regel1 = uptime
' ip adres
'=============================
Dim remote, imagetext,
remote = Request.ServerVariables ("REMOTE_ADDR")
imagetext = "| " & uptime & " | Jouw ip:" & remote & " | "
'maximale imagesize
Image.MaxX = Image.TextWidth (imagetext)
Image.MaxY = Image.TextHeight (imagetext)
'dit moet ik ook nog ff vervangen voor een leuk kleurtje en die gradient eruit!
Image.GradientOneWay RGB(&h00, &h99, &hCC), RGB(&h00, &h99, &hCC), 0
'positionering van de text
Image.X = 2
Image.Y = 2
'die laatste false haalt de "3d look " eruit
Image.TextOut imagetext, Image.X, Image.Y, false
'wegschrijven naar de browser
Response.BinaryWrite Image.Image
'de hele meuk afsluiten
Set Image = nothing
%> |
zo ziet de image eruit....
Het gaat dus in de regel: imagetext = ..... fout...
heeft iemand een ideetje?
Heart..pumps blood.Has nothing to do with emotion! Bored