Rund um VB .Net

Erläuterungen:

Die Programme wurden alle frei von dem Besitzer dieser Web-Page gemacht. Ich würde mich über alle Verbesserungsvorschläge, entweder von Code, Controls oder der WebPage selber freuen. Benützt dafür bitte das Gästebuch und ich werde mich bemühen. Die Smilies aus der Smilie Textbox, sind von ICQ-6 Kopiert.

Wichtig:

Ich bin Über ICQ: 485-600-624
Über E-mail: JVSBL@gmx.de
Und über xfire: jvbsl
erreichbar

könnt gerne mit mir in Kontakt treten, ich freue mich über jeden einzelnen.

Inhalt:

Das erste Programm(Hallo Welt!)

Smilie TextBox

Programmieren in der Gruppe

Das erste Programm(Hallo Welt!):

Als erstes erstellen wir ein neues Projekt: Visual Studio 2005 öffnen --> Erstellen: Projekt --> Windows-Anwendung --> Name:Hallo Welt

Nun haben wir ein neues Projekt erstellt.

Dann wird es in etwa so aussehen:

wenn links am Rand nicht Toolbox angezeigt wird, einfach mit STRG + ALT + X aufrufen

mit Klick auf "Toolbox" erscheint eine auswahl an Steuerelementen, wählen Sie hier einen "Button" aus und ziehen sie ihn auf das Formular. Doppelklick auf den Button und es erscheint ein Text dort geben Sie nun folgendes ein:

Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, e As System.EventArgs) Handles Button1.Click

MsgBox("Hallo Welt!", MsgBoxStyle.Information ,"Mein erstes Programm")

End Sub

End Class

rechte Maustaste --> Eigenschaften --> Text = Hallo Welt

klick auf den Button --> Eigenschaften --> Text = Klick mich

nun können sie ihr Projekt zum ersten mal Testen mit F5 wird es gestartet:

Zum Seitenanfang

Smilie TextBox:

Dieses Projekt zeigt ein kleines Beispiel mit einer selbstgemachten Textbox, diese hat die Funktion Smilies bei bestimmten Keywords anzuzeigen wie z.B.: ;-) für

folgendes ist sind ein paar Beispielsmilies(kommt nacher in den im Control angegebenen Ordner, muss UTF-8 Codiert sein, ohne den grünen Teil):

;-)|

:-)|

Die zeichen vor dem "|" sind die zeichen, die eingegeben werden müssen,

um den jeweiligen Smilie anzuzeigen. Der Code ist HTML-Code, der demnach frei gestaltet werden kann.

"Link zum Smilie" ersetzt ihr einfach durch den Link bei mir durch:

http://jvbsl.klack.org/bilder/blinking.gif

http://jvbsl.klack.org/bilder/smile.gif

folgender Code kommt in ein UserControl(Smilie)

Das UserControl entält folgende Steuerelemente: Ein WebBrowserControl(Name:wb;Dock:Fill) und Eine TextBox(Name:txt)

Public Class Smilie

#Region "Variablen"

'Deklerationen

Private Keywords As New clsKeywords

#End Region

Function ToHTML(ByVal Text As String) As String
Try
Dim html As String = Text
html = html.Replace(vbCrLf, "
")
html = Keywords.Replace(html)
Return html
Catch ex As Exception

End Try
End Function

Private Sub txt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt.TextChanged
Keywords.LoadKeywords(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Visual Studio 2005\Projects\Smilie\Smilie\bin\Debug\Keywords.txt")
txt.Visible = True
wb.DocumentText = ToHTML(txt.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
txt.Visible = False
End Sub
End Class
Public Class clsKeywords
Function Replace(ByVal Text As String) As String
Try
Dim txt As String = Text
For x As Integer = 0 To Keywords.Length - 1
If txt.Contains(Keywords(x).Word) Then
txt = txt.Replace(Keywords(x).Word, Keywords(x).Replace)
Return txt
End If
Next
Catch ex As Exception
Return Text
End Try
End Function

Private m_Keywords() As Keyword
'' Keyword|Replacing & VbCrLf
Sub LoadKeywords(ByVal Path As String)
Try
Dim ToSplit As String = My.Computer.FileSystem.ReadAllText(Path)
ToSplit = ToSplit.Replace(vbCrLf, "²")
Dim m_Keys() As String = ToSplit.Split("²")
ReDim m_Keywords(m_Keys.Length - 1)
For x As Integer = 0 To m_Keys.Length - 1
m_Keywords(x) = New Keyword
m_Keywords(x).Word = m_Keys(x).Split("|")(0)
m_Keywords(x).Replace = m_Keys(x).Split("|")(1)
Next
Catch ex As Exception

End Try
End Sub
Property Keywords() As Keyword()
Get
Return m_Keywords
End Get
Set(ByVal value As Keyword())
m_Keywords = value
End Set
End Property
End Class
Public Class Keyword
Private m_Word As String
Private m_Replace As String
Property Word() As String
Get
Return m_Word
End Get
Set(ByVal value As String)
m_Word = value
End Set
End Property
Property Replace() As String
Get
Return m_Replace
End Get
Set(ByVal value As String)
m_Replace = value
End Set
End Property
End Class

Zum Seitenanfang

In der Gruppe Programmieren:

Beim Programmieren in der Gruppe ist es ganz besonders wichtig ein paar richtlinien aufzustellen:

man sollte genügend Kommentare hinzufügen und alles in Regionen gliedern.

Public Class clsMain

#Region "Variablen"

'Deklerationen

Private m_Text As String ' Der Text der angezeigt wird.

#End Region

'''

''' Der Text der angezeigt wird.
'''
''' Legt den Text fest.
''' Gibt den Text zurück.
'''

Property Text() As String

Get

Return m_Text

Set (ByVal value As String)

m_Text = value

End Property

End Class

Zum Seitenanfang

Rund um DirectX und Spiele programmierung geht's hier. Bin ich selbst auch dabei.