Posts by waynespangler

try:

TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.SelectionStart) & ComboBox1.Text & TextBox1.Text.Substring(TextBox1.SelectionStart)

Do you really need a 1d array. Why not just put the info into the listbox. i.e.

Public Class Form1
    Dim ary(4, 3)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For col = 0 To 3
            For row = 0 To 4
                ListBox1.Items.Add(ary(row, col))
            Next
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim index As Integer = 0
        For col As Integer = 0 To 3
            For row As Integer = 0 To 4
                ary(row, col) = index
                index += 1
            Next
        Next

    End Sub
End Class

You have to redimension your lines array:

Dim sr As StreamReader = New StreamReader("csvSTOCKS.TXT")
        Dim lines() As String
        Dim index As Integer = 0

        Do While (sr.Peek <> -1)
            ReDim Preserve lines(index)
            lines(index) = sr.ReadLine
            index += 1
        Loop

or use an array list:

Dim sr As StreamReader = New StreamReader("csvSTOCKS.TXT")
        Dim lines As ArrayList = Nothing

        Do While (sr.Peek <> -1)
            lines.Add(sr.ReadLine)
        Loop

Set TopMost property of form.

I just ran your code. All the group boxes showed up like they should. I did see that you are hiding some controls in places in your code and not showing them again. Click on "Daily Pescription" and you will see all the controls (textboxes, labels and checkboxes). Now click on "Pickup Ticket" and some of the controls are turned off. Now click on "Daily Pescription" and then ones turned off in "Pickup Ticket" are still turned off. This is inconsistent.
As for the group boxes they do turn on and off as expected.
You might have to reinstall vb.......

Make your variable a class with an event.
Make your class:

Public Class myVar
    Private mValue As Integer
    Public Event VariableChanged(ByVal mvalue As Integer)

    Public Property Variable() As Integer
        Get
            Variable = mValue
        End Get
        Set(ByVal value As Integer)
            mValue = value
            RaiseEvent VariableChanged(mValue)
        End Set
    End Property
End Class

Now in your main form create a textbox and button:

Public Class Form1
    Private WithEvents test As New myVar

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        test.Variable = CInt(TextBox1.Text)
    End Sub

    Private Sub VariableChanged(ByVal NewValue As Integer) Handles test.VariableChanged
        MessageBox.Show(NewValue)
    End Sub
End Class

In your class you can also set a boolean wheather to activate the event or not.

I don't like to correct anyone but you need to get away from vb6. To do it the net way

TextBox1.Text = TextBox1.Text.Substring(1) & TextBox1.Text.Substring(0, 1)

The first pram is the starting index (0 being the first character). If you omit the second pram then the rest of the string is used. So if the string is "012345" then TextBox1.Text.Substring(1) will return "12345".
The second pram is the length of what you want. In this case the second part Substring(0,1) is getting the first character. It will move the first character to the end of the string.

I'm not good at explaining but I hope you understand what I am trying to say.

If you want something cool, do this to the title bar and look at the task bar. You can do this to show what is happening in your program even it the application is not showing.

Me.Text = Me.Text.Substring(1) & Me.Text.Substring(0, 1)

Try this:

Dim d As DateTime = CDate(TextBox1.Text)
        If (DateTime.Compare(Now, d) > 0) Then
            MessageBox.Show("Entered date has already happened. Please enter a future date.")
        End If

Add a form to your project and call it frmFind or something like that (see attached image).
My richtextbox is called Editor.
Add this code.

Public Class frmFind
    Private PlaceHolder As Integer

    Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
        Dim x As Integer
        Dim opt As RichTextBoxFinds = 0
        If ckCaseSensitive.Checked Then opt = opt Or RichTextBoxFinds.MatchCase
        If ckWholeWord.Checked Then opt = opt Or RichTextBoxFinds.WholeWord
        x = Form1.Editor.Find(txtFind.Text, PlaceHolder, opt)
        If x < 0 Then
            If MessageBox.Show("There is no more occurances of " & txtFind.Text & vbCrLf & "Start at begining?", "Can't Find", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then
                PlaceHolder = 0
                btnFind.PerformClick()
            End If
        End If
    End Sub

    Private Sub btnReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReplace.Click
        Form1.Editor.SelectedText = txtReplace.Text
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

    Private Sub btnFindNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindNext.Click
        PlaceHolder = Form1.Editor.SelectionStart + 1
        btnFind.PerformClick()
    End Sub

    Private Sub frmFind_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PlaceHolder = Form1.Editor.SelectionStart

    End Sub

    Private Sub btnReplaceAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReplaceAll.Click
        Dim x As Integer
        Dim opt As RichTextBoxFinds = 0
        If ckCaseSensitive.Checked Then opt = opt Or RichTextBoxFinds.MatchCase
        If ckWholeWord.Checked Then opt = opt Or RichTextBoxFinds.WholeWord
        PlaceHolder = 0
        Do
            x = Form1.Editor.Find(txtFind.Text, PlaceHolder, opt)
            If x < 0 Then
                Exit Do
            Else
                Form1.Editor.SelectedText = txtReplace.Text
            End If
            PlaceHolder = Form1.Editor.SelectionStart + …

I use another form with a webbrowser on it. On the form I have a property:

Public WriteOnly Property HelpFile()
        Set(ByVal value)
            Me.WebBrowser1.Navigate(value)
        End Set
    End Property

In the button or menu click event I put the path and file I want to show.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.HelpFile = "d:\mywebs\vbnet.html"
        Form2.ShowDialog()
    End Sub

Hope this help some.

Set item 0 to "Please select an item" and the listindex to 0.

Try this:

Dim process As New Process
		process.StartInfo.FileName = "perl.exe"
		process.StartInfo.Arguments = "filename.pl"
		process.StartInfo.WorkingDirectory = "C:\Perl\eg"
		process.StartInfo.UseShellExecute = False
		process.StartInfo.ErrorDialog = False
		process.StartInfo.RedirectStandardOutput = True
		process.Start()
		TextBox1.Text = process.StandardOutput.ReadToEnd
		process.WaitForExit()

Try this in your main form load event:

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
	Dim process As New Process
	With process
		With .StartInfo
			.FileName = "perl.exe"
			.Arguments = "filename.pl"
			.WorkingDirectory = "C:\Perl\eg"
		End With
		.Start()
	End With
    End Sub

Without the With statement:

Dim process As New Process
		process.StartInfo.FileName = "perl.exe"
		process.StartInfo.Arguments = "filename.pl"
		process.StartInfo.WorkingDirectory = "C:\Perl\eg"
		process.Start()

Read up on the Process function. Can do a lot more than Shell. Like redirect the output to a textbox so you don't have to remember what the dos screen said.

I assume you are putting your input to a textbox. So try this:

TextBox1.Text = InputBox("Enter number")
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)

Try this and see if it is what you want.

Private Sub btnCropImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCropImage.Click
        If PictureBox1.Image Is Nothing Then Exit Sub
        '-----------------------------------------------------------
        ' The size is how wide and tall the cropped protion is
        ' The Point is x,y of where your cropped portion starts
        ' Call the CropImage as below
        '------------------------------------------------------------        PictureBox2.Image = CropImage(PictureBox1.Image, New Size(100, 100), New Point(100, 100)).Clone
    End Sub


    Private Function CropImage(ByVal SrcBmp As Bitmap, ByVal NewSize As Size, ByVal StartPoint As Point) As Bitmap
        ' Set up the rectangle that shows the portion of image to be cropped
        Dim SrcRect As New Rectangle(StartPoint.X, StartPoint.Y, NewSize.Width, NewSize.Height)
        ' Now set up the destination rectangle(DestRect) and bitmap(DestBmp)
        Dim DestRect As New Rectangle(0, 0, NewSize.Width, NewSize.Height)
        Dim DestBmp As New Bitmap(NewSize.Width, NewSize.Height, Imaging.PixelFormat.Format32bppArgb)
        ' Set the graphics to the destination bitmap(DestBmp)
        Dim g As Graphics = Graphics.FromImage(DestBmp)
        ' and draw the image from source bitmap (SrcRect) to the 
        ' destination bitmap(DestBmp) using the destination and
        ' source rectangles.
        g.DrawImage(SrcBmp, DestRect, SrcRect, GraphicsUnit.Pixel)
        ' finally return the destBmp
        Return DestBmp
    End Function

Set the controlbox property to false and remove the text. Then set then windowstartup to maximum.

Today = CType("05/14/2007", Date)
        TimeOfDay = CType("11:32", Date)

Try this:

Dim x As Integer = System.Text.RegularExpressions.Regex.Matches(TextBox1.Text, "\w+").Count()

Here is how I did a undo:

Dim UndoStack As New Stack(Of Bitmap)()    'holds the backup images

    '==========================================================================
    '   Saves the picture passed
    '==========================================================================
    Private Sub PushUndo(ByVal b As Bitmap)
        UndoStack.Push(b)
        btnUnDo.Visible = True
    End Sub

    '==========================================================================
    '   Returns the last picture saved
    '==========================================================================
    Private Function PopUndo() As Bitmap
        If UndoStack.Count = 0 Then
            Return Nothing
            btnUnDo.Visible = False
            Exit Function
        End If
        If UndoStack.Count = 1 Then btnUnDo.Visible = False
        Return UndoStack.Pop
    End Function

To save a bitmap:

'save the current picture for undo
        PushUndo(Display.Image.Clone)

To undo:

'==========================================================================
    '  pops the last bitmat off the stack and places it in the display
    '==========================================================================
    Private Sub btnUnDo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnDo.Click
        Dim bmp As Bitmap
        bmp = PopUndo()
        If bmp IsNot Nothing Then
            Display.Image = bmp
        End If
    End Sub

The second part I am going to have to find. I'll get back at you.

I see by your signiture that you know c# and vb6. You should have no problems picking up on vb net as it is not that different from either of them.
If you don't have it get the vb express 2005 (it's free). There are tutorials on msn for convertitng from vb6 to vb net.

There are several ways.
1. Dim x As Integer = CInt(TextBox1.Text)
2. Dim y As Integer = Val(TextBox1.Text)
3. Dim z As Integer = CType(TextBox1.Text, Integer)
If you are working with hexidecimal or octal then use val because it knows what &h and &o means. The others throw an error. Also is the only one that if you put it in a label (textbox) then "123.45" will appear as "123.45". If you do as shown above then y is defined as an integer so will only show as "123".
So, I would do this as I would not know what will be placed in the textboxes:

Label1.Text = TextBox1.Text + TextBox2.Text

would be

Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

This is for VB Express 2005:

For i As Integer = My.Application.OpenForms.Count - 1 To 0 Step -1
            If My.Application.OpenForms.Item(i) IsNot Me Then
                My.Application.OpenForms.Item(i).Close()
            End If
        Next i