text box probleemen

[raymondhvh]

ik moet mijn proggama een commando laten uitvoeren
als textbox1.text eits is EN textbox2.text allebij goed zijn moet die niks doen
en als textbox1.text alleen maar goed is en textbox2.text niet moet die wel wat doen
weeten julie de code ?? zou mooi zijn !:thumb:

 

[krolik]

Textbox problemen

Hier is totaal geen touw aan vast te knopen. Interpunctie zou geen overbodige luxe zijn. Mss dat we dan een idee krijgen wat de bedoeling is. Dus s.v.p. duidelijke vragen stellen.

 

[krolik]

Textbox problemen

Wat moeten textbox1 en textbox2 (wel of niet) bevatten? Aan de hand van dat criterium kan je bepalen wat er verder moet gebeuren.

 

[raymondhvh]

ok

nou ik zal het met screen shots uitleggen

zo beter ?

 

[evertVB]

        Dim GoedeNaam As String
        GoedeNaam = TextBox1.Text
        If TextBox2.Text = GoedeNaam Then
            MsgBox("U bent geautoriseerd")
            'en/of wat je dan verder allemaal nog wilt doen...
        Else
            MsgBox("U bent niet geautoriseerd")
        End If

 

[raymondhvh]

mooi ik denk dat dat werkt

 

[raymondhvh]

uhhm het werkty nog niet helemaal ik zal het beter uitleggen

kijk ik maak een netwerk chat proggama
en ik wil daarmee een optie als ik met nickname: Raymond
typ Raymond zegt: regels
dat dan eidreen die geen nickname Raymond heeft naar de regels worden gestuurd

 

[evertVB]

Je zult wel ergens een if-conditie moeten toevoegen, b.v.

  If ActiveUser <> SendingUser then
     ...
  End If

Welke code heb je nu al om de door Raymond ingetypte regels naar alle mede-chatters te sturen?

 

[raymondhvh]

ja das nou juist simele ik gebruik C4f P2p kit
en ik hoef alleen maar de textboxen en button aantewijzen en C4F P2P
regelt hoe alles werkt
de enige code die ik heb is

Option Strict On

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



        Me.KeyPreview = True

    End Sub


    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim hlpString As String

        hlpString = TextBox1.Text
        TextBox1.Text = Replace(hlpString, "said", "zegt")

       

    End Sub



    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown



Select e.KeyData
            Case Keys.Enter

                Button2.PerformClick()


        End Select

    End Sub

End Class

zo simpel is t
maar ik dacht zo eits van

if textbox1.text = Raymond zegt: Regels then
....
but not if Username.text = Raymond

dat zou mooi zijn als dat werkde

 

[evertVB]

C4fP2p is voor mij geheel nieuw.
Ik kan je er niet mee helpen.

Ik kan als laatste alleen nog zeggen: vergeet de aanhalingstekens niet!!

if textbox1.text = "Raymond zegt: Regels" then
....
but not if Username.text = "Raymond"

en BUT NOT IF is geen geldig VB.

 

[raymondhvh]

ik heb t !

If TextBox1.Text = "Raymond zegt: Regels" Then
Timer1.Enabled = True
End If


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Username.Text = "Raymond" Then

Else
MsgBox("Hoi")
End If
Timer1.Enabled = False

 

[raymondhvh]

nou is er nog een probleempje
het werk alleen als het de eerste regel is
weet jij een code die in de laaste regel zoekt?

 

[raymondhvh]

he ... hij doet het niet
die code die ik net zij zou toch moeten werken ?

 

[raymondhvh]

hij zou wel werkn als die op de onderste regel de text zoekt