Probleem (alweer)

[GDay]

Hey ik ben bezig een vbs creatertje aan het maken
maar nu heb ik een fout

Ik wil dat die dit doet

RichTextBox1.Text = RichTextBox1.Text + ("Enter") & Msgbox " Hello ")

Dus de text die al ingevoert is laat staan
Op een nieuwe regel begint en dan de Text Msgbox " blabla " invoert!

Ik kom hier echt niet uit

Gday:thumb:

 

[WILLIAMXXX]

vbs is voor scripts, vetel mij eerst hoe je een richtextbox in een script krijgt?

 

[GDay]

Nou je hebt gewoon een Richtextbox en als je op Add in het menu klikt kun je op Bijv messagebox klikken dan komt dus X = (Msgbox " Text , Schermknop , Titel ")
Als text in de richtextbox en daarna kun je hem opslaan als .vbs
Maar hij moet een enter toevoegen in de textbox en dat lukt niet

 

[That Guy]

a)

string & vbcrlf

b)

string & vbnewline

een van die twee moet werken, waarschijnlijk allebij

 

[GDay]

Ik snap de code nu niet meer :l

Ik deed Richtextbox1.Text = Richtextbox1.Text + string & vbcrlf & " Msgbox "
En hij doet t niet

 

[That Guy]

lol, met "string" bedoelde ik elke string
Je code:

Richtextbox1.Text = Richtextbox1.Text & vbcrlf & " Msgbox "

 

[GDay]

Maar als je dan als code dit doet

RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "Msgbox"Je Text Hier""

Onderstreept hij Je text hier als fout en die 2 extra " moeten erin anders is het messagebox

 

[That Guy]

gebruik character strings:

RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "Msgbox" & chr(34) & "Je Text Hier" & chr(34)

 

[GDay]

RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "X = Msgbox" & Chr(34) & , Schermknop hier , & "Je Text Hier" & Chr(34)

werkt niet :evil:

 

[That Guy]

het zou handig zijn als je zegt WAT niet werkt, wat de IDE als fout geeft -_-"

Bovendien heb je de code fout gedaan, het moet nl. zijn:

RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "X = Msgbox" & Chr(34) & ", Schermknop hier ," & "Je Text Hier" & Chr(34)

Wat je ook kan doen is een label maken met caption ' " ' (zonder de ' ) en dan dit te doen:

RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "X = Msgbox" & label1.caption &" , Schermknop hier , " & "Je Text Hier" & label1.caption

 

[GDay]

Nou de IDE geeft geen foutmelding dat doet het vbs script als je het hebt opgeslagen en start

Maar ik moet dit : X = msgbox ("Je tekst", 1024, "Het kopje ")
In die code krijgen : RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "X = Msgbox" & Chr(34) & ", Schermknop hier ," & "Je Text Hier" & Chr(34)

Dus :

RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "X = Msgbox " & Chr(34) & ", Schermknop hier ," & "Je Text Hier" & Chr(34)

En hij doet t niet want als je text aangeeft doe je Bijv richtexbox1.text = "hoi"
Maar bij vbs is het ook X = Msgbox " hoi "
Dus dan krijg je zoiets " Msgbox " hoi " "


Dus dat snap ik niet :L

Bedankt voor je hulp anyway

 

[That Guy]

Ik snap je uitleg totaal niet, maar je wilt dut in de output (uiteindelijk) krijgen:

 X = msgbox ("Je tekst", 1024, "Het kopje ")

dus, waarom doe je niet zoiets? (lang leve variabelen)

dim varText as string
dim varGetalletje as string
dim varKopje as string

'dit moet je dus aanpassen ofzo
varText = "Je Text"
varGetalletje = "1024"
varKopje = "Het kopje"
'einde van variabelen invulen

RichTextBox1.Text = RichTextBox1.Text & "X = MsgBox(" & chr(34) & varText & chr(34) & "," & varGetalletje & "," & chr(34) & varKopje & chr(34) & ")"

 

[sander1988]

X = msgbox ("Je tekst", 1024, "Het kopje ")

hehe was dat het. Als je voortaan gewoon zegt : ik wil dat er een tekst in me beeld komt en zegt hoe, dat je bijv op dat klikt gebeurd er dat en als je op dan klikt gebeurd er dat zoals bij ja en nee, dan begrijp ik ieder geval beter wat je bedoeld