textbox löschen

[Florianrau]

Hallo zusammen
Ich habe ein Problem das bestimmt so einfach zu lösen ist dass ich es hier noch nicht gefunden hab.
Und zwar hab ich ein command botton der bei betätigund eine textbox löschen
soll.

PS:
Weis jemand von euch wo ich eine liste mit VB befehlen her bekomme ?
ZB : end = programm wird beendet
Ich suche so eine Liste schon länger auf googel habe aber noch nichts übersichtliches
und gescheites gefunden.
Ich hoffe Ihr könnt mir helfen
MFG Flo

 

[wincnc]

Versuch´s mal so:

Private Sub Command1_Click()
Text1.Text = ""
End Sub

Hilfe gibts hier:
MSDN

 

[Florianrau]

Danke für die flotte Antwort !
Wenn ich das so probiere bekomme ich vollgende
Fehlermeldung
Compile error
Procedure declaration does not match description of event or procedure having the same name
Sorry aber ich hab keine Ahnung was das von mir will

 

[Shakie]

Kannst du mal den Codeteil schreiben, bei dem der Fehler auftritt?

 

[Florianrau]

Hallo also das ist der code von dem Element das ich am bearbeiten bin

Private Sub ok_Click()

End Sub

Private Sub clear_Click(Index)


End Sub
Private Sub Combo1_Change()




Private Sub Form_Load()
silonr.AddItem "1"
silonr.AddItem "2"
silonr.AddItem "3"
silonr.AddItem "4"
silonr.AddItem "5"
silonr.AddItem "6"
silonr.AddItem "7"
silonr.AddItem "8"
silonr.AddItem "9"
silonr.AddItem "10"
silonr.AddItem "11"
silonr.AddItem "13"
End Sub

Private Sub mehlsorte_Change()

End Sub

Private Sub rau_Click(Index As Integer)

End Sub

Private Sub Label2_Click(Index As Integer)

End Sub

das unterstrichene versuche ich zu bearbeiten

MFG FLo

 

[Shakie]

Ja schön und in welcher Zeile genau tritt nun der Fehler auf?

 

[Florianrau]

Private Sub clear_Click(index)
Text1.Text = "" <----in der zeile
End Sub

MFG Florian Sorry bin abseloter Anfäner in dem Geschäft und weis manschmal nicht was gemeint ist :-(

 

[spirit]

Schau mal:

Private Sub Form_Load()
silonr.AddItem "1"
silonr.AddItem "2"
silonr.AddItem "3"
silonr.AddItem "4"
silonr.AddItem "5"
silonr.AddItem "6"
silonr.AddItem "7"
silonr.AddItem "8"
silonr.AddItem "9"
silonr.AddItem "10"
silonr.AddItem "11"
silonr.AddItem "13"
End Sub

Diese vielen Zeilen kannst gegen diese wenigen tauschen:

For i=1 to 13
silonr.AddItem i
next

Und wenn du ein Textfeld löschen willst mache es so:

TestfeldXY = vbnullstring

Und dein Fehler wird wohl eine falsche Deklaration sein:
Korrigiere mal <<Private Sub clear_Click(index)>> in
Private Sub clear_Click(index as integer)


Viel Spass

 

[Florianrau]

Hallo danke für die Hilfe
mein cod zeile sieht jetzt so aus

Private Sub Command1_Click()

TextBox Text1 = vbNullString

End Sub

copiele error argument nicht optional

mfg flo

Ps. das mit der Silonummer haut hin

 

[spirit]

<<<< Private Sub Command1_Click()
TextBox Text1 = vbNullString
End Sub
>>>>

Was soll das sein Deine Textbox ist ein Textfeld. Das Textfeld wird mit

Texfeldname = vbnullstring gelöscht

Alle weiteren Informationen passen nicht zu diesem Feld. In deinem Fall heist dein Textfeld "Text1". Lasse in deinem Code einfach TextBox weg und es sollte funktionieren