✔ 2 Fragen zu VB.net

[Peter86]

Hallo,
Ich habe 2 fragen und ich wollte dafür nicht Extra 2 themen erstellen, also hab ich sie beide in ein Thema gepackt.
Hoffe das ist Ok.

Frage 1:

Ich will eine Zahl die in einer Textbox steht dividieren, soweit ist es ja noch einfach.
Textbox1 / x
Doch wenn es eine komma zahl wird will ich,dass das komma und die zahlen nachdem komma weg sind.

Rechne ich z.B. xxxxxx / x erhalte ich xx,xxxxxxxx.
Doch ich will das die zahl nur so aussieht: xx, also ohne das komma und den zahlen nach dem komma.

Frage 2:
Ich möchte zu einer Textbox in der sich schon Text befindet einen Text hinzufügen.
z.B.: Textbox1 = Hallo
wenn ich button1 klicke das der Text aus Textbox2(Peter) der Textbox1 hinzugefügt wird.
Daraus sollte folgen das in textbox1 nun
Hallo
Peter
steht.


Ich hoffe ich konnte mein anliegen deutlich schildern und ihr könnt mir helfen.

Peter86

 

[ripkens]

Zu 1.
Math.Round(CDbl(Textbox1.Text )/x,0)

Zu 2.

Textbox1.Text =Textbox.Text & VbCrLf & Textbox2.Text

Textbox1 muss MultiLine enabled sein

 

[Peter86]

Danke ripkens!
Das ist genau das was ich brauchte.
Doch in der Zeit als ich das in mein code eingefügt habe ist mir eine weiter Frage eingefallen, vielleicht kann die mir ja auch noch jemand beantworten.

Ich habe eine ComboBox. Ich möchte das in dieser ComboBox alle dateien Aufgelistet werden die sich in ordner X befinden, ausser datei1 und datei2.

Hat jemand eine Lösung?

Peter86

 

[ripkens]

   Dim di As New System.IO.DirectoryInfo(Application.StartupPath & "\docs")
  For Each fi As System.IO.FileInfo In di.GetFiles()
  If fi.Name <> "datei1.doc" and fi.Name <> "datei2.doc"
      DocsList.Items.Add(fi.Name)
  End If
  Next

 

[Peter86]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim di As New System.IO.DirectoryInfo(Application.StartupPath)
        For Each fi As System.IO.FileInfo In di.GetFiles()
            If fi.Name <> "datei.exe" And fi.Name <> "datei2.exe" Then
                ComboBox1.Items.Add(fi.Name)
            End If
        Next
    End Sub

Danke aber leider tut sich nichts. Was ist falsch?

EDIT: Hmmm... Hab nen fehler gemacht mit dem Button. Jetzt Gehts Danke.

Thema Erledigt!

Peter86

 

[ripkens]

In der Entwicklungsumgebung ist Application.StartupPath der Debug Ordner.
Ist der Debug Ordner leer?

 

[ripkens]

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

Scheint aber nicht komplett zu sein die Zeile.

Da gehört noch

Handles Button1.Click

dahinter