Visual Basic 6 Professional

[durnurd]

Here's an idea:  Create a WebBrowser object next to it, set its default url to "about:blank" then whenever the user clicks on one of the buttons, call two functions:

Code: [Select]

WebBrowser1.OpenNew false
WebBrowser1.Document.Write TextBox1.Text

Where TextBox1 is the name of the textbox already on the form and WebBrowser1 is the Web Browser object you just added.  This will allow you to automatically preview what the form will look like every time they add a new object.  Alternately, you could add these lines to the textbox1_change event so that it will update when they change it manually as well.

[sam]

I added a select all and copy button. I also added the web browser thing. Here it is: http://www.geocities.com/sam_2d_online/formcreator_v12.zip

[sam]

Hey... Ummm... How do I make it so that every time the person clicks one of the buttons that adds code it starts a new line in the textbox (TextBox1)? The HTML just looks extremely messy.... so if I could have it so that every time a new command is added (ie. new button, checkbox...ect.) is starts a new line so that the next command added will be on the next line.

[durnurd]

Textbox1.text += "\n" + TheTextYouWantToAdd

or, if the text you want to add is a literal string, such as "Hello, World!"

Textbox1.text += "\nHello, World!"

\n denotes a new line character. or \r\n or \r.  Depending on what Opperating system you're using, they use different endline characters as standard, but \n is I think what everybody uses usually. \n means Linefeed, \r means Carriage Return (terms originally taken from a typewriter).

[sam]

Ugh...I tried that...It didn't work. It just recognized the '\n' as text and instead of starting a new line it just put '\n' between each command. What am I doing wrong? Did I put the '\n' in the wrong place? I also tried a few other things like the '\r\n' and '\r' but they also didn't work.

Code: [Select]

Public Class Form1
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        TextBox1.Text += "\n<input type='radio' name=' ' value='RadioButton'>"
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Document.Write(TextBox1.Text)
    End Sub
    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

        TextBox1.Text += "\n<input type='checkbox' name=' ' value='CheckBox'>"
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Document.Write(TextBox1.Text)
    End Sub
    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

        TextBox1.Text += "\n<input type='text' name=' ' value=' ' maxlength=' ' size='25'>"
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Document.Write(TextBox1.Text)
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        TextBox1.Text += "\n<textarea cols='15' rows='5'>text here</textarea>"
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Document.Write(TextBox1.Text)
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        TextBox1.Text += "\n<input type='submit' value='Submit'>"
        TextBox1.SendToBack()
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Document.Write(TextBox1.Text)
    End Sub

    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        TextBox1.Text += "\n<input type='reset' value='Reset'>"
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Document.Write(TextBox1.Text)
    End Sub

    Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
        TextBox1.Text += "\n<br>"
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Document.Write(TextBox1.Text)
    End Sub

    Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
        TextBox1.Text += "\n</form>"
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Document.Write(TextBox1.Text)
    End Sub

    Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
        TextBox1.SelectAll()
    End Sub

    Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
        TextBox1.Copy()
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Document.Write(TextBox1.Text)
    End Sub
    Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton11.Click
        TextBox1.Clear()
        TextBox1.Text += "<form action=' ' method=' '>"
        WebBrowser1.Document.OpenNew(False)
        WebBrowser1.Refresh()
    End Sub
End Class

[bluemonkmn]

"\n" is for a newline in C#.  If you want a newline in VB.NET I generally use vbCrLf like this:

Text1.Text &= vbCrLf & "My next line of text"

Cr is for the carrige return and Lf is for the line feed.  The combination is what generally creates a new line in a windows application.  Also, in my example above, Text1's MultiLine property would have to be set to true to show the multi-line text.

[durnurd]

whoops

[sam]

yay it works now lol durnurd, how many codes do you know?

[durnurd]

Too many, apparently.

Basic, Visual Basic, VBScript, VB.NET, C++, C#, PHP, Java, Javascript, HTML, CSS, ASP.NET, and most recently, Whatever InstallShield uses which is a mix between Basic, C#, and perhaps some other language I don't know (i.e. Perl)

[sam]

13..wow...but ofcourse I've seen someone that knew 14. She works at a university, Trent University. I never knew there were 3 VB codes...Is there much difference between them?

[sam]

ugh...this is a little off-topic. So I have the .net framework 2.0 redistributable. I was trying to compile a hello world C# tutorial thing but it wouldn't work. Do i need to download the framework 2.0 SDK that is 354 megs?

[durnurd]

Oh, I can come up with some more if you like ;-)  Let's see... TI-83+ Programming Language, for example.

What have you tried doing to compile the program, and what happens when it fails?

[sam]

wow...never heard of that one...
I'll try doing the tutorial again now, so I can remember what happens other than it just not working :p

[sam]

OK, I just redid the tutorial. First it told me to type this :

Code: [Select]

class hello
//This program does not do much
{
    static public void Main()
    {
       System.Console.WriteLine("Hello World");
    }
} in my favorite text-editor blah blah blah... So I did. Then is just said to type csc I pressed enter:

[durnurd]

Oh, the TI-83+ is a graphing calculator that a lot of people have for math classes from 8th grade on up through advanced calc in 2nd year of college (I still use mine).  And I just thought of another one: I know a little bit of XSL, kind of.

I think a very good idea would be for you to download the C# Express IDE and develop from there.  It makes things about 30 times easier.  Barring that:

For this to work, you need to either specify the path of csc.exe or go there.  The path should be at:

C:\windows\Microsoft.Net\Framework\v2.0.50727\

change your directory to there (i.e. type cd C:\windows\Microsoft.Net\Framework\v2.0.50727\) then try just running csc.  It should come up with the error "No Inputs Specified".  Which means that you need to tell it where myhello.cs is.  If myhello.cs is in C:\Documents And Settings\User\My Documents\Visual Studio 2005\Projects\MyHello\ then the entire command line would be:

csc "C:\Documents And Settings\User\My Documents\Visual Studio 2005\Projects\MyHello\myhello.cs"

This will build the executable in the current directory, which is probably not where you want it.  So you'll want to specify where to put the output, or run it from somewhere where you do want it to go.  In the first case:

csc "C:\Documents And Settings\User\My Documents\Visual Studio 2005\Projects\MyHello\myhello.cs" /out:"c:\Documents And Settings\User\Desktop\myhello.exe"

will output the file onto the desktop.  In the second case:

Change the directory to the desktop (i.e. type: cd "c:\Documents And Settings\User\Desktop")
now type:
\windows\Microsoft.Net\Framework\v2.0.50727\csc.exe "..\My Documents\Visual Studio 2005\Projects\MyHello\myhello.cs"
(This demonstrates relative paths.  \Windows goes to the root of the drive before specifying what to do, while ..\ goes to the parent directory, that is, User)

If, on the other hand, you want to add the .NET framework directory to your PATH variable, so you can run it from anywhere:
PATH C:\windows\Microsoft.Net\Framework\v2.0.50727\;%PATH%
will prepend that path to the PATH variable, so you can run any programs from that directory without having to either be in that directory or specify it directly.  That means that you can just type
csc myhello.cs
when you are in the directory with myhello.cs and it will automatically create the executable in the same directory.

Like I say, getting the IDE would be about 30 times easier.