| |

Fortgeschrittene ProgrammierungHabe PHP in VB umgewandelt aber  | |  | Autor: Ercan | Datum: 06.01.04 20:11 |
| Ich habe diesen PHP Code im VB umgewandelt aber ich kriege imer einen fehler :
Type mismatch
Warum? hier der PHP Code:
<?php
header ("Conent-type: image/jpeg");
$resim = ImageCreatefromGIF ("img1.gif");
$bg = ImageColorAllocate ($resim, 0, 0, 0);
$tc = ImageColorAllocate ($resim, 0, 0, 0);
ImageString($resim, 15, 5, 5, $titel, $tc);
ImageColorTransparent ($resim);
ImagePNG ($resim);
?>
Und in VB:
Private Function ImageCreatefromGif(ByVal PictureBox As Object, ByVal Pictur As Variant)
PictureBox.Picture = Pictur
End Function
Private Function ImagecolorAllocate(ByVal Color As Integer)
ImagecolorAllocate = Color
End Function
Private Function ImageString(ByVal PictureBox As Object, ByVal X As Long, ByVal Y As Long, ByVal Fontsize As Long, ByVal Text As Integer, ByVal Fontcolor As Integer)
PictureBox.CurrentY = Y
PictureBox.ScaleMode = X
PictureBox.Font.Size = Fontsize
PictureBox.Print Text
PictureBox.Font.Color = Fontcolor
End Function
Private Sub Command1_Click()
Dim resim As String
Dim bg As String
Dim tc As String
resim = ImageCreatefromGif(Picture1, "img.gif")
bg = ImagecolorAllocate(vbRed)
tc = ImagecolorAllocate(vbBlue)
ImageString Picture1, 15, 5, 5, Titel.Text, tc
End Sub |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) sevWizard für VB5/6 
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|