vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Habe 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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Habe PHP in VB umgewandelt aber 493Ercan06.01.04 20:11
Re: Habe PHP in VB umgewandelt aber 291Ercan06.01.04 20:14
Re: Habe PHP in VB umgewandelt aber 478ModeratorMartoeng06.01.04 21:25
Nur mal so am Rande...325E708.01.04 20:14

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

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