AeroCool (gast) Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 (bewerkt) Ik bedoelde het stukje dat je gisteren gefilmd hebt... Wil je die parachute hebben? ik heb gister niet gefilmd Bewerkt: 11 mei 2010 door dennis313
Casss Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 Ik heb Daan een cursus txd editen op MSN gegeven
Dr.Oppai Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 Ik heb Daan een cursus txd editen op MSN gegeven zou je mij dat ook willen leren? Het lijkt me niet moeilijk aangezien je 11 bent en het ook snapt .
AeroCool (gast) Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 (bewerkt) Wie doet er vanavond mee? Ik wil het graag weten, want dan kan ik eerlijke teams indelen Team 1 ? ? ? ? Team 2 ? ? ? ? Deelnemers BanaanDaan Dennis313 shotyoudie BV 5.Thomas1010 ? Bewerkt: 11 mei 2010 door dennis313
Casss Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 (bewerkt) Ik heb Daan een cursus txd editen op MSN gegeven zou je mij dat ook willen leren? Het lijkt me niet moeilijk aangezien je 11 bent en het ook snapt . *kuch* Ik doe net zo goed moeilijke dingen, ik script pawno, VB, VBS en HTML *kuch* Maar ik wil je het best leren, maar tegenwoordig niet meer zeggen. "Ooh, jij kan het dus het is makkelijk" Makkelijk he? Public Class Main Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Process.Start("http://youtube.com/") End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If RadioButton1.Checked = True Then Try Browser.WebBrowser1.Navigate(TextBox1.Text) Browser.Show() Catch ex As Exception MsgBox("Error, de youtube video kon niet gevonden worden, kijk of de link goed is gekopieerd.", vbCritical, ) Label2.Text = "Laatste status: Error" End Try Label2.Text = "Status: Wachten" End If If RadioButton2.Checked = True Then Try Browser.WebBrowser1.Navigate(TextBox1.Text) Browser.Show() Catch ex As Exception MsgBox("Error, de youtube video kon niet gevonden worden, kijk of de link goed is gekopieerd.", vbCritical, ) Label2.Text = "Laatste status: Error" End Try Label2.Text = "Status: Wachten" End If If RadioButton3.Checked = True Then Try Browser.WebBrowser1.Navigate(TextBox1.Text) Browser.Show() Catch ex As Exception MsgBox("Error, de youtube video kon niet gevonden worden, kijk of de link goed is gekopieerd.", vbCritical, ) Label2.Text = "Laatste status: Error" End Try Label2.Text = "Status: Wachten" End If If RadioButton1.Checked = False Then If RadioButton2.Checked = False Then If RadioButton3.Checked = False Then MsgBox("U heeft geen video kwaliteit gekozen, kies een video kwaliteit") End If End If End If End Sub Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then If TextBox1.Text = "" Then Else Try Browser.WebBrowser1.Navigate(TextBox1.Text) Browser.Show() Catch ex As Exception MsgBox("Error, de youtube video kon niet gevonden worden, kijk of de link goed is gekopieerd.", vbCritical, ) Label2.Text = "Laatste status: Error" End Try End If End If End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged If RadioButton2.Checked = True Then If TextBox1.Text = "" Then Else Try Browser.WebBrowser1.Navigate(TextBox1.Text) Browser.Show() Catch ex As Exception MsgBox("Error, de youtube video kon niet gevonden worden, kijk of de link goed is gekopieerd.", vbCritical, ) Label2.Text = "Laatste status: Error" End Try End If End If End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged If RadioButton3.Checked = True Then If TextBox1.Text = "" Then Else Try Browser.WebBrowser1.Navigate(TextBox1.Text) Browser.Show() Catch ex As Exception MsgBox("Error, de youtube video kon niet gevonden worden, kijk of de link goed is gekopieerd.", vbCritical, ) Label2.Text = "Laatste status: Error" End Try End If End If End Sub Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click FontDialog1.ShowDialog() Me.Font = FontDialog1.Font About.Font = FontDialog1.Font End Sub Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click About.Show() End Sub Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click Updates.ProgressBar1.Value = 0 Updates.Label2.Text = "Status: Verbinding maken" Updates.Show() Updates.Timer1.Start() Updates.Button1.Enabled = False End Sub End Class Partial Friend Class MyApplication <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) Me.IsSingleInstance = false Me.EnableVisualStyles = true Me.SaveMySettingsOnExit = true Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses End Sub <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.YDown.Updates End Sub End Class End Namespace Bewerkt: 11 mei 2010 door Casss
BV_1993 Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 Wie doet er vanavond mee? Ik wil het graag weten, want dan kan ik eerlijke teams indelen Team 1 ? ? ? ? Team 2 ? ? ? ? Deelnemers BanaanDaan Dennis313 shotyoudie ? ? ? Ik doe ook mee
AeroCool (gast) Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 (bewerkt) Ik doe ook mee mooi ik zal je toevoegen Bewerkt: 11 mei 2010 door dennis313
Shotyoudie Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 (bewerkt) ik verveelde me dus heb ff met photoshop gekloot. en dit als resultaat Best simpel ga misschien nog wat aanpassen. EDIT: @ Casss idd dat makkelijk (lol) maar wtf maak jij een programma waar je youtube filmpjes mee kan bekijken. En dan nog waar je een link moet ingeven waar je eerst nog voor op youtube moet gaan zoeken, best dom... Bewerkt: 11 mei 2010 door shotyoudie
thomas1010 Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 Wie doet er vanavond mee? Ik wil het graag weten, want dan kan ik eerlijke teams indelen Team 1 BanaanDaan (Boer Banaan ) ? ? ? Team 2 ? ? ? ? Teamindelingen kunnen veranderen! Ik doe seffes mee.
BoerBanaan Geplaatst: 11 mei 2010 Auteur Rapport Geplaatst: 11 mei 2010 (bewerkt) Wie doet er vanavond mee? Ik wil het graag weten, want dan kan ik eerlijke teams indelen Team 1 Shotyoudie BV_1993 ? ? Team 2 BanaanDaan Thomas1010 Dennis313 ? Deelnemers BanaanDaan Dennis313 BV_1993 Shotyoudie Thomas1010 ? Teamindelingen kunnen veranderen! Bewerkt: 11 mei 2010 door BanaanDaan
Shotyoudie Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 Wanneer worden de team ingedeelt ingame ofzo ?
BoerBanaan Geplaatst: 11 mei 2010 Auteur Rapport Geplaatst: 11 mei 2010 LET OP! Ik heb de agenda iets aangepast [table=border]Datum + Tijd|Gebeurtenis/Event|Spel|Meer Informatie 11-05-2010, 19:00u| Team Deathmatch | GTA:IV | / 14-05-2010, 19:00u| ? | GTA:SA | komt nog 15-05-2010, 15:00u| ? | GTA:EfLC| komt nog[/table]
Shotyoudie Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 Ik heb iets opgemerkt. in de ledenlijst staat nog altijd Gta-kneusje moet dat niet Casss worden ??
AeroCool (gast) Geplaatst: 11 mei 2010 Rapport Geplaatst: 11 mei 2010 (bewerkt) Wie doet er vanavond mee? Ik wil het graag weten, want dan kan ik eerlijke teams indelen Team 1 Shotyoudie BV_1993 ? ? Team 2 BanaanDaan Thomas1010 Dennis313 ? Deelnemers BanaanDaan Dennis313 BV_1993 Shotyoudie Thomas1010 ? Teamindelingen kunnen veranderen! hier de lijst en kom iedereen die mee doet even op msn Bewerkt: 11 mei 2010 door dennis313
Recommended Posts