27.08.2025, 09:39
Sprache ändern
Registrieren
Anmelden
Sie sind nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
- 1
- 2
JGFerdi
Senior Member
Re: Hilfe zu Visual Basic
Samstag, 15. Januar 2005, 00:42
So oder was?!?!
Meld dich einfach bei mir icq ich helf dir dann!
Ferdi
|
Quellcode |
1 2 3 4 5 6 7 8 9 |
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
form2.Show
If LCase$(textfeld.text) = "w" or LCase$(textfeld.text) = "m" then
'Wenn m oder w drin steht das ausführen
end if
end if
[...]
End If
|
Meld dich einfach bei mir icq ich helf dir dann!
Ferdi
juli
Full Member
Re: Hilfe zu Visual Basic
Samstag, 15. Januar 2005, 01:23
Du bist so böse Xan >
> > > > > > >
ich muss jetzt von dem rechner meines großen bruders schreibn, weil computer nicht mehr angeht. :'( :'( :'( :'( :'( :'(
du hast ihn kaputtgemacht, ich will nie wieder hier ins forum schreiben.
ihr seid alle doof > > > > > >
> > > > > > >ich muss jetzt von dem rechner meines großen bruders schreibn, weil computer nicht mehr angeht. :'( :'( :'( :'( :'( :'(
du hast ihn kaputtgemacht, ich will nie wieder hier ins forum schreiben.
ihr seid alle doof >
> > > > > 
Azr@el
Full Member
Re: Hilfe zu Visual Basic
Samstag, 15. Januar 2005, 12:57
Also wenn ich dich inziwschen richtig verstanden hab, dann suchst du folgendes:
|
|
Quellcode |
1 2 3 |
Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 and (LCase$(textfeld.text) = "w" or LCase$(textfeld.text) = "m") Then form2.Show End If |
juli
Full Member
Re: Hilfe zu Visual Basic
Samstag, 15. Januar 2005, 13:36
@ -xan- :das obere war schon ein scherz...
trozdem fand ich das fies, zum glück habe ich ein bischen pc-kennntnisse, dass ich weiß das man format c: nich machen darf
auserdem ist das glaub ne ander sprache (kein plan welche)
@ all: hat sich erledigt, ferdi hat mir geholfen
danke nochmal
Für jeden den es interesiert:
mw ist das textfeld und a4 das neue fenster
gruß an alle
@sayaman: so dumm bin ich auch nicht, und verarschen kann ich mich selbst... 
Edit: sprache wie rippchen gesagt hat: c
trozdem fand ich das fies, zum glück habe ich ein bischen pc-kennntnisse, dass ich weiß das man format c: nich machen darf
auserdem ist das glaub ne ander sprache (kein plan welche)
@ all: hat sich erledigt, ferdi hat mir geholfen
danke nochmalFür jeden den es interesiert:
Zitat
Private Sub mw_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If LCase$(mw.Text) = "w" Then
a4.Show
ElseIf LCase$(mw.Text) = "m" Then
a4.Show
End If
End If
End Sub
mw ist das textfeld und a4 das neue fenster
gruß an alle
@sayaman: so dumm bin ich auch nicht, und verarschen kann ich mich selbst...
Edit: sprache wie rippchen gesagt hat: c
Azr@el
Full Member
Re: Hilfe zu Visual Basic
Samstag, 15. Januar 2005, 14:35
Private Sub mw_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If LCase$(mw.Text) = "w" Then
a4.Show
ElseIf LCase$(mw.Text) = "m" Then
a4.Show
End If
End If
End Sub
Das ist aber keine schöne Lösung so
Y0Gi
God
Re: Hilfe zu Visual Basic
Samstag, 15. Januar 2005, 14:40
saftpresse:
nix für ungut, aber hast du eigentlich mal in ein buch oder eine referenz oder ein tutorial geschaut? also wenn's schon an if-else hapert, solltest du vielleicht nochmal genau nachlesen.
xan:
switches werden bei microsoft mit nem slash gesetzt und nicht mit nem backslash
ma davon abgesehen isses nur bedingt clever, für ne bestehende binary nochmal ne binary zu erzeugen, die diese aufruft.
und davon wiederum abgesehen kommt man mit nem einfachen "format c: /irgendwas" nicht gerade weit. wer lust hat, sucht nach dem artikel zu dem thema, den ich hier mal gepostet habe.
also: nicht nur nicht lustig, sondern auch noch falsch und sinnlos
nix für ungut, aber hast du eigentlich mal in ein buch oder eine referenz oder ein tutorial geschaut? also wenn's schon an if-else hapert, solltest du vielleicht nochmal genau nachlesen.
xan:
switches werden bei microsoft mit nem slash gesetzt und nicht mit nem backslash
ma davon abgesehen isses nur bedingt clever, für ne bestehende binary nochmal ne binary zu erzeugen, die diese aufruft.
und davon wiederum abgesehen kommt man mit nem einfachen "format c: /irgendwas" nicht gerade weit. wer lust hat, sucht nach dem artikel zu dem thema, den ich hier mal gepostet habe.
also: nicht nur nicht lustig, sondern auch noch falsch und sinnlos
Azr@el
Full Member
Re: Hilfe zu Visual Basic
Samstag, 15. Januar 2005, 14:50
Naja, es ist einfach unschön, 2 bedinungen mit nem ElseIf aneinander zuhängen, obwohl sie den selben effekt haben.
Schöner wäre:
bzw.
Welchen du von den beiden jetzt nimmst ist im endeffekt egal, der zweite is halt "theoretisch" schneller, was sich aber bei heutigen prozessoren nicht mehr bemerkbar macht
Schöner wäre:
|
|
Quellcode |
1 2 3 |
Private Sub mw_KeyPress(KeyAscii As Integer) If KeyAscii = 13 and (LCase$(mw.text) = "w" or LCase$(mw.text) = "m") Then form2.Show End If |
bzw.
|
|
Quellcode |
1 2 3 4 5 |
Private Sub mw_KeyPress(KeyAscii As Integer) If KeyAscii = 13 then if LCase$(mw.text) = "w" or LCase$(mw.text) = "m" Then form2.Show End if End If |
Welchen du von den beiden jetzt nimmst ist im endeffekt egal, der zweite is halt "theoretisch" schneller, was sich aber bei heutigen prozessoren nicht mehr bemerkbar macht
- 1
- 2