Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
15.10.2004, 12:28 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Hi!
Um sowas wie eine Coding Konsole zu machen, muss man ja einen code schreiben.
Dafür müsste man ein textfeld durchsuchen, ein code sieht so aus:

Code:

~~ sXene Editor Code 2.1 ~~
-set AppStatlist

es gibt eine liste, in der alle fenster angezeigt werden, den code habich..
also wenn im txtCode (Textfeld) "-set AppStatlist" steht, soller

Visual Basic:

Statlist.Visible = True

machen..

dafür müsste ich das Textfeld durchsuchen..
also im vb code sollte es uuuungefär so sein

Visual Basic:

If txtCode.Text(Irgendwo drin) "-set AppStatlist" steht Then Statlist.Visible = True

Klappt natürlich nich *g*
Aber ich hoffe Ihr wisst was ich meine

Mfg Euer Audron
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
15.10.2004, 20:02 Uhr
FlAsH
keine Ahnung

Ich weiss ja nich recht ob du das meinst das ich meine, aber meinst du in einen text schauen ob ein wort existiert?
Dann gibt es bereits ein Post von mir.
www.fun-soft.de/showtopic.php?threadid=8734&time=1097863146
Sonsten sorry.

Bearbeitung von FlAsH:

Link Korrigiert

Dieser Post wurde am 15.10.2004 um 20:05 Uhr von FlAsH editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
16.10.2004, 14:42 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Ja, habich auch gelesen...

Aber wie geht das???

Visual Basic:

Private Sub CommandTest_Click()
If txtCode.Text = InStr("-set AppStatlist") then List1.Visible = True
End Sub

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

003
16.10.2004, 17:57 Uhr
FlAsH
keine Ahnung

Visual Basic:

AA = "Hallo" 'AA Text Festlegen
XA = InStr(1, AA, "H") '"AA" Nach "H" Durchsuchen
If XA = 0 Then 'Wenn H nicht existiert
End 'Beenden
Else 'ansonsten
MsgBox "Hallo" 'Message Box mit dem Text "Hallo"
End If 'If Ende

Hoffe das hilft

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

004
16.10.2004, 18:39 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

musste nur muster wissen, danke Flash

Visual Basic:

Private Sub cmdCompile_Click()
If InStr(1, txtCode.Text, "-set AppStatlist") Then Statlist.Visible = True
End Sub

So geht das ganz einfach

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

005
16.10.2004, 22:39 Uhr
FlAsH
keine Ahnung

Oha stimmt ja ähm... das wusste ich nicht so ists einfacher ja!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

006
17.10.2004, 22:35 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Visual Basic:

Dim IsDasDrin As String
Dim IsDrinVariable As String

Private Sub Form_Load()

IsDasDrin = "Das!"
IsDrinVariable = InStr(1, txtCode.Text, IsDasDrin)

End Sub

Private Sub Compile_Click()
If IsDrinVariable then Me.Visible = False
End Sub

Man kanns sich auch umständlich machen ^^

am besten noch nen splash screen mit dem code hier:

Visual Basic:

'OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
'PPPPPPPPPPP-VOLL GEILER CODE MAN-PPPPPPPPPPPPPPPPPPPPPPPPP
'OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

Private Sub Form_Load()
Load Me
Load You
Load my Mother

Load Me
Load Me
Load Me
Load Me
Load Me
'und noch 300 mal

End Sub

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: