[noparse]
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
PictureBox1.ImageLocation = "http://ifalse.de/ava/" & TextBox1.Text & ".png"
RichTextBox2.Text = "http://ifalse.de/ava/" & TextBox1.Text & ".png"
RichTextBox1.Text = "[URL=http://www.elitepvpers.com/forum/minecraft/1647901-avatar-generator-z.html]" & "[IMG]http://ifalse.de/ava/" & TextBox1.Text & ".png" & "[/IMG][/URL]"
Catch ex As Exception
MsgBox("Fehler beim laden des Bildes.")
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim bmp As New Bitmap(PictureBox1.Image)
bmp.Save(TextBox1.Text & ".png")
Catch ex As Exception
MsgBox("Fehler beim Speichern des Bildes.")
End Try
End Sub
End Class
[/noparse]
[Preview]3D Level Avatar Generator 07/26/2010 - WarRock - 16 Replies Hallo liebe Warrockler,
ich glaube ihr kennt alle diese 3D Level Avatare die hier öfters mal herumgeflogen sind ^^
Nun ja einige von euch wollen die sicherlich noch haben, aber finden es halt bissl umständlich es zu suchen etc.
Deswegen kam ich auf die Idee ein Programm zu coden das für euch das erledigt :D
Screen:
http://i50.tinypic.com/2u4h1yg.jpg