04.02.2026, 12:20
Change Language
Register
Login
You are not logged in.
Dear visitor, welcome to Aqua Computer Forum. If this is your first visit here, please read the Help. It explains how this page works. You must be registered before you can use all the page's features. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
- 1
- 2
JGFerdi
Senior Member
Re: Hilfe zu Visual Basic
Saturday, January 15th 2005, 12:42am
So oder was?!?!
Meld dich einfach bei mir icq ich helf dir dann!
Ferdi
|
Source code |
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
Saturday, January 15th 2005, 1:23am
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
Saturday, January 15th 2005, 12:57pm
Also wenn ich dich inziwschen richtig verstanden hab, dann suchst du folgendes:
|
|
Source code |
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 |
Eumel
God
Re: Hilfe zu Visual Basic
Saturday, January 15th 2005, 1:34pm
Quoted from "r1ppch3n"
@saiyaman
ach quatsch, so blöd wär sicher keiner
ma abgesehen davon dass der typische vb fan keine c compiler benutzt...
*grins* Also ich hab hier VB und C++ oben ;D
Meinst du, dass keiner so "n00big" ist?
MfG
juli
Full Member
Re: Hilfe zu Visual Basic
Saturday, January 15th 2005, 1:36pm
@ -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:
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
Saturday, January 15th 2005, 2:35pm
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
Saturday, January 15th 2005, 2:40pm
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
Saturday, January 15th 2005, 2:50pm
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:
|
|
Source code |
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.
|
|
Source code |
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