Visual Basic

Eddy Vluggen wrote:

there's dragons there

jonegerton wrote:

Unfortunately this has to work on thousands of documents (corporate rebrand!)

' this is the string that we start with
dim input as string = "/title HELLO" ' = TextBox1.Text

' find out where the first space is in the input; that separates
' the command from the arguments.
dim indexOfSpace as integer = input.IndexOf(" ")
		
' Next, get the command itself, without the leading slash;
dim command as string = input.SubString(1, indexOfSpace - " ".Length)
		
' and the arguments;
dim args as string = input.SubString(indexOfSpace)

' now that we got both command and arguments, lets do
' something with it;
Select Case command
    Case "title": Text = args
    Case "color": Color = Color.FromName(args)
    ' more cases go here;
End Select

I are Troll

private img as image

private sub button_click ...
if openfiledialog.showdialog = ok then
    img = image.fromfile(openfiledialog.getpath)
end if
end sub
private sub paint_event....
'draw the img object 
end sub

Imports System.IO
Imports System.Windows.Forms.MouseEventArgs
Imports System.Windows.Forms.Form
Imports System.Windows.Forms.PaintEventArgs

Public Class Edtor
    Private gfx As Graphics
    Public user As String
    Private pathset As Boolean
    Dim button2 As Global.System.Boolean




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.Visible = True
        Me.Visible = False
    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

    End Sub

    Private Sub Edtor_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        gfx.Dispose()
        
    End Sub

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

        gfx = Me.CreateGraphics()

    End Sub

    Public Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveButton.Click

        If (Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            user = Me.SaveFileDialog1.FileName

        End If

    End Sub

    Public Sub Edtor_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove


        If RadioButton1.Checked = True Then

            If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub
            Dim rect As Rectangle

            With rect
                .X = e.X - 1
                .Y = e.Y - 1
                .Height = 2
                .Width = .Height / .Height

                gfx.DrawRectangle(System.Drawing.Pens.Red, rect)

            End With
        End If
        If RadioButton2.Checked = True Then

            If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub
            Dim rect As Rectangle
            With rect
                .X = e.X - 1
                .Y = e.Y - 1
                .Height = 2
                .Width = .Height / .Height


                gfx.DrawRectangle(System.Drawing.Pens.Blue, rect)

            End With
        End If
        If RadioButton3.Checked = True Then
            If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub
            Dim rect As Rectangle

            With rect
                .X = e.X - 1
                .Y = e.Y - 1
                .Height = 2
                .Width = .Height / .Height

                gfx.DrawRectangle(System.Drawing.Pens.Black, rect)

            End With
        End If

    End Sub

    Private Sub drawonform(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint



        If pathset = True Then

            If button2 = True Then
                If (Form1.openDiag.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                    user = Form1.openDiag.FileName
                End If
            End If

            ' Create image.
            Dim Newimage As Image = Image.FromFile(user)

            ' Create Point for upper-left corner of image.
            Dim ulCorner As New Point(100, 100)

            ' Draw image to screen.
            e.Graphics.DrawImage(Newimage, ulCorner)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonpic.Click

        If (Form1.openDiag.ShowDialog() = Windows.Forms.DialogResult.OK) Then

            user = Form1.openDiag.FileName

            pathset = True

        End If
    End Sub
End Class