Also pass auf ^^
Du hast die checkbox und die textbox.
Du übergibst beide an die Stub selbst wenn die Textbox leer ist.
dim text as boolean = checkbox1.checked
dim textboxinhalt as string = textbox1.text
...value = text & "<>" & textboxinhalt
Und in der Stub schreibst du:
Dim text as boolean
dim textboxinhalt as string
If text = true then
msgbox(textboxinhalt)
end if
mfg
iPott <3
2 Zeiche zum Splitten? Uh da hab ich böse Erfahrungen gemacht... Geht in die Hose"<>"
Mach es doch einfach so:
Schon hast du keine Leerstrings mehr und kannst Splitten....value = text & "<>" & CStr(textboxinhalt & "#")
Die Stub muss dann einfach "#" mit "" ersetzen...
Ist unsauber, ich weiß, aber kompliziertere Lösungen wird er nicht verstehen
Das Problem ist ich habe dafür keine TextBox ich habe die checkBox in den builder nun sieht es bei mir in der kllasse so aus
......
Builder =
Public Class Frm_Builder
Dim persky As Boolean
Dim Befehle As String
und so in den button
persky = AntiKas.Checked
SaveFileDialog1.ShowDialog()
IO.File.Copy(BuilderStub, SaveFileDialog1.FileName)
VB6setting.Value = persky
FileOpen(1, (SaveFileDialog1.FileName), OpenMode.Binary)
FilePutObject(1, VB6setting.Value, LOF(1) + 1)
FileClose(1)
MessageBox.Show("Server wurde Gebuildet", "Underground stealer", MessageBoxButtons.OK, MessageBoxIcon.Information)
und die stub den so
Public Class Form1
Dim persky As Boolean
Private Sub Form1_Load
persky = Befehle(4)
If persky = True Then
Call AntiPers()
End If
Aber ich kriege ein fehle beim formload (Fehler bei der konvertierung im wert true n Boolean
Please Help
wundert mich nicht , du versuchst einen String an einen bool zu übergeben , versuche das ganze mal so
MfGCode:persky = Convert.ToBoolean(Befehle(4))
Danke the papst du hast mir mal wieder geholfen
Geändert von sunny-boy3 (16.07.2009 um 11:40 Uhr)
Nein das geht in VB problemlos.
True wird in allen Cases zu 1 als Boolean.
Der Fehler liegt wohl wo anders.