PHP Forum - Coding Board
Juni 19, 2018, 05:25:27 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: Snippets  (Gelesen 223 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
Lighti
Jr. Member
**
Beiträge: 74


444350370
Profil anzeigen E-Mail
« am: Dezember 21, 2008, 09:59:09 »

Hey,

hab hier mal nen paar Snippets in VB.Net f?r euch.
Skill = Anf?nger

Textdateien lesen/schreiben
Code:
'Lesen
Dim reader As New IO.StreamReader("C:\textdatei.txt")
MsgBox(reader.ReadLine)

'schreiben
Dim writer as New IO.StreamWriter("C:\textdatei.txt")
writer.WriteLine("SnippetbyLighti")
writer.Dispose() 'oder .close
Random zahl
Code:
Dim rnd as new Random
dim x as Integer = rnd.next(1, 9999) '1 = kleinste, 9999 = gr??te
MsgBox(x.ToString) 'x von Integer nach String umwandeln
Form langsam einblenden
Code:
Form_Load
Me.Opacity = 0.1F
Timer1.Start

Timer1_Tick
Me.Opacity += 0.1F
if me.Opacity = 0.9F then
Msgbox("Form bereit!")
Timer1.Stop
end if
Eine Funktion schreiben
Code:
'Das erste Wort einer Funktion
Private
Public
Partial
Property
'ich empfehle Public

Public Function Der_name_der_Funktion()
Msgbox("Mit 'Der_name_der_Funktion()', ruft man die Funktion auf")
Return true
End Function

'Wenn ihr dann in die Codezeile Der_name_der_Funktion() schreibt, kommt die MsgBox!

'man kann auch Parameter hinzuf?gen!
Public Function Der_name_der_Funktion(ByVal text as String)
Msgbox(text)
Return true
end Function

'Jetzt kann man Der_name_der_Funktion("lol") schreiben, und eine MsgBox mit "lol" kommt!
RichTextbox Autoscroll
Code:
Doppelklick auf die RTB

RichTextBox1.ScrollToCaret
ClipBoard
Code:
'etwas ins ClipBoard setzen
My.Computer.ClipBoard.SetText("Der text der ins ClipBoard gesetzt werden soll")

'auslesen was im ClipBoard ist
Msgbox(My.Computer.ClipBoard.GetText())
So das wars erstmal.

greetz
Gespeichert

Meine Signatur mag keiner x[
sPDrZ
Jr. Member
**
Beiträge: 59



Profil anzeigen E-Mail
« Antworten #1 am: Dezember 21, 2008, 10:09:34 »

F?r Anf?nger (wie Ich^^) sehr n?tzlich,Danke!
Gespeichert
Lighti
Jr. Member
**
Beiträge: 74


444350370
Profil anzeigen E-Mail
« Antworten #2 am: Dezember 21, 2008, 10:18:20 »

Hinzugef?gt: WebBrowser

Code:
'Eine Textbox f?llen
WebBrowser1.Document.GetElementById("DerNameDerTB").SetAttribute("value", "TEXT")

'Ein Button dr?cken
WebBrowser1.Document.GetElementById("DerNameVomBtn").InvokeMember("click")

Hinzugef?gt: WebClient
Code:
Dim client As New Net.WebClient
Dim data As New Collections.Specialized.NameValueCollection
data.Add("NAMEDERTB", "text") 'Text f?r TB Namen festlegen
Dim bytes As Byte() = client.UploadValues("http://seite.de", "POST", data) 'data an die Website schicken
If System.Text.Encoding.ASCII.GetString(bytes).Contains("Tag") Then 'Quelltext nach Tag durchsuchen
Code.....
Gespeichert

Meine Signatur mag keiner x[
fLuX!?
Newbie
*
Beiträge: 10


Profil anzeigen E-Mail
« Antworten #3 am: Januar 03, 2009, 09:05:21 »

Sch?ne Zusammenstellung.
Hier http://www.dotnet-snippets.de gibt es zus?tzlich noch eine gro?e Auswahl an Snippets.

Gru?

fLuX
Gespeichert
Lighti
Jr. Member
**
Beiträge: 74


444350370
Profil anzeigen E-Mail
« Antworten #4 am: Januar 03, 2009, 09:44:54 »

Hinzugef?gt: Splitten

Code:
Dim unsplitted as string = "Ich#will#gesplittet#werden!"  'Der String der gesplittet werden soll
Dim splittet() as string = Split(unsplittet, "#") 'delimitter festlegen

Msgbox(splittet(0) & vbcrlf & splittet(1) & vbcrlf & splittet(2)) 'splitten

Heraus kommt:
Ich
will
gesplittet
werden

Q=Warum hei?t es splittet(0) und nicht splittet(1)?
A=Weil der Index bei 0 und nicht bei 1 anf?ngt

Q=Was bringt mir das jetzt?
A=Falls man mal eine Textdatei mit Acc#Passes hat, kann man sie ganz einfach Unterscheiden

Wav dateien abspielen

Code:
My.Computer.Audio.Play("C:\Sound.wav")

WebClient Quelltext anzeigen

Code:
Dim quelltext as string = webClient.DownloadString("http://seite.de")
Msgbox(quelltext)
Gespeichert

Meine Signatur mag keiner x[
till7
Full Member
***
Beiträge: 198


Profil anzeigen E-Mail
« Antworten #5 am: April 04, 2009, 05:23:43 »

Melt Funktion:

Code:
       Dim pfad As String
        Dim stream As IO.StreamWriter
            pfad = Environ("tmp") & "\delete.bat"
            stream = New IO.StreamWriter(pfad, False)

            stream.WriteLine("@echo off")
            stream.WriteLine(":L1")
            stream.WriteLine("sleep 1")
            stream.WriteLine("del """ & Application.ExecutablePath & """ 2>nul")
            stream.WriteLine("if exist """ & Application.ExecutablePath & """ goto L1")
            stream.WriteLine("del ""delete.bat"" 2>nul")
            stream.Close()

            Shell(pfad, AppWinStyle.MinimizedFocus)
Gespeichert

Stasi
[/B]
Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS