Posts by codeorder

.dgv(DataGridView) w/3 columns(to display row's values).

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        verifyRows()
    End Sub
    Sub verifyRows()
        With DataGridView1
            Dim iTemp As Integer = 0
            If .AllowUserToAddRows Then iTemp = 2 Else iTemp = 1 '// check if extra row or not, at bottom of dgv.
            For i As Integer = 0 To .Rows.Count - iTemp
                If .Item("Status", i).Value.ToString.ToLower = "ok" Then
                    MsgBox(.Item(0, i).Value & "/" & .Item(1, i).Value & "/" & .Item(2, i).Value)
                End If
            Next
        End With
    End Sub

Change myFolder to your folder.
Example: Private myFolder As String = "C:\Program Files\Fast_Automatic_Accident_Notification_Through_SMS\Resources\" '// folder for file. You do Not need to add a Timer, it has already been added dynamically on line.4.

See if this helps.

Public Class Form1
    Private myFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" '// folder for file.
    Private myFile As String = myFolder & "contact4.txt" '// file to check if .Exists.
    Private WithEvents tmrFileExists As New Timer With {.Interval = 1000, .Enabled = True} '// dynamic Timer.

    Private Sub tmrFileExists_Tick(sender As Object, e As System.EventArgs) Handles tmrFileExists.Tick
        Button2.Enabled = IO.File.Exists(myFile) '// toggle Button2 Enabled/Disabled.
    End Sub
End Class

>>...I have heard of a left mid and right function. Does anybody know how to use these functions?
I have heard that those are vb6- Functions and you should try to move on from those; even though they are still available for the migrating.programmers from "basic?" to use .net, .net.Functions as .Substring and/or your own Functions, can do most of the content.extract stuff, If Not more.

Is a blank thought a no thought at all?

Check out this link.

Another suggestion: purchase a web.server, update web content frequently on it(your content), and use that for quicker results.

Hope this helps.

Use Threading and run those HTTPs on separate threads.

Laughter within the two sides, is laughter for all sides.

Not watching video, stop watching you.

I played around w/this project.idea and got my own results(view att.image).
.it only searches "gametrailers.com" For now, though it uses HttpWebResponse and extracts info from:

Private urlGameTrailers As String = "http://www.gametrailers.com/"
    Private urlSrcGameTrailers As String = urlGameTrailers & "search.php?str_type=games&s="

...Then creates little WebBrowsers(For.now)) w/extracted content from each HTTP.search result.

.hitting.up major video web.sights That allow you to <embed> videos in your website, could always give you an advantage w/this typeOf(project) .

See if this helps.

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        For i As Integer = 1 To NamesArray.Length - 2
            With NamesArray(i)
                If .NamesNumber = ComboBox1.SelectedIndex + 1 Then
                    MsgBox(.FirstName & " " & .LastName & " #" & .NamesNumber)
                    Exit For
                End If
            End With
        Next
    End Sub

>>which one cannot be considered as a counter variable?
I would say line.4.
.reason: Dim counter As Integer is = to a default.value of 0 and no other line returns a 0 AndAlso counter = 0 *2 will give you the same result as counter = counter *2 .
.p.s.: I don't even know w.t.f a "counter variable" is;though hope this helps.:)

See if this helps.

Public Class Form1
    Private myCoolUrl As String = "http://www.daniweb.com/"

    Private Function zCooLsub(selCoolParmeter As String) As String
        Return myCoolUrl & selCoolParmeter '// append Parameter to Url and Return it.
    End Function
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Process.Start(zCooLsub("software-development/vbnet/58"))
    End Sub
End Class

>>Actually, you were given a pretty dumb question.
.confusing as well;must say, good teacher.:)

Disregard my previous post If this takes care of the issue.

Public Class Form1
    Private lClock As Label, btnStop As Button, sw() As Stopwatch
    Private iTotalParticipants As Integer '// keep count of players.
    Private sButtonName As String = "Stop", sLabelName As String = "Clock", sButtonDone As String = "Done"
    Private pnMain As Panel

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        pnMain = Panel1 '// Take control of Panel.
        With Button1 : .Text = ".new" : .Cursor = Cursors.Hand : End With
        With Button2 : .Text = ".add" : .Cursor = Cursors.Hand : End With
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        pnMain.Controls.Clear() '// clear.Panel.
        iTotalParticipants = 0 '// reset players.
        createInitialStopWatches(2) '// start w/2 players.
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        createInitialStopWatches(1) '// a single player.
    End Sub
#Region "-----===-----===-----===-----===-----=== DYNAMIC.CONTROLS ===-----===-----===-----===-----===-----"

    Private Sub createInitialStopWatches(ByVal numberOfParticipantsToAdd As Integer)
        For i As Integer = 1 To numberOfParticipantsToAdd
            iTotalParticipants += 1 '// increase players total.
            addStopWatchControls(iTotalParticipants) '// add new.player's controls.
        Next
    End Sub

    Private Sub addStopWatchControls(ByVal selCtlIndex As Integer)
        ReDim Preserve sw(iTotalParticipants) '// Redim the StopWatch.Array and keep previous stopWatches.
        sw(selCtlIndex) = New Stopwatch '// new stopWatch for new participant.
        sw(selCtlIndex).Start()

        lClock = New Label : With lClock
            .Name = sLabelName & selCtlIndex
            .Size = New Size(100, 20) : .Location = New Point(139, (5 + ((selCtlIndex - 1) * 26)))
            .BorderStyle = BorderStyle.Fixed3D : .TextAlign = ContentAlignment.MiddleRight
        End With : pnMain.Controls.Add(lClock) '// add.Label.

        btnStop = New Button …

q.q.(quick.question)
If 2.participants running time of "00:23:45" and you add a new.participant, should the new.participant start w/"00:00:00", or should they start w/"00:23:45"

See if this helps.
1.TextBox, 1.Button, 2.ListBoxes

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        With ListBox1.Items '// FOR.TESTING
            .Add("http://www.daniweb.com/software-development/vbnet/threads/410236")
            .Add("http://www.daniweb.com/software-development/vbnet/threads/409298/1746870#post1746870")
        End With
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If Not TextBox1.Text = "" Then
            With ListBox2.Items
                .Clear()
                For Each itm As String In ListBox1.Items
                    If getCoolHttp(itm).Contains(TextBox1.Text) Then .Add(itm) '// get page source and check for the search.keyword.
                Next
            End With
        End If
    End Sub
    Private Function getCoolHttp(ByVal selCoolUrl As String) As String
        Me.Cursor = Cursors.WaitCursor
        Try
            Dim myResponse As Net.HttpWebResponse = Net.HttpWebRequest.Create(selCoolUrl).GetResponse '// connect.
            Dim myStream As IO.Stream = myResponse.GetResponseStream() '// get.
            Dim myReader As New IO.StreamReader(myStream) '// read.
            Dim webContent As String = myReader.ReadToEnd
            myReader.Close() : myStream.Close() : myResponse.Close()
            Me.Cursor = Cursors.Default
            Return webContent
        Catch ex As Exception
            Me.Cursor = Cursors.Default
            'MsgBox("Connection Error.", MsgBoxStyle.Critical)
            Return Nothing
        End Try
    End Function
End Class

>>but I don't want slowly.I see same program very fast.What I am doing?
.a few(2+)BackGroundWorkers (depending on user's p.c. net.connection and system.specs), can run the search.results on separate threads, Not just one As default for a WindowsApplication.
http://www.daniweb.com/software-development/vbnet/threads/348154/1479109#post1479109

On a clear path to a landing, I fly my thoughts in for the runways. With smoke.clouds in my.sight and no radar, I start loosing .Focus, for I have been wounded.(Red Tails (2012)).defined.

A cup is not empty.
Protect life as you protect the dead.
Why.t.f. does youtube block my youtube.mp3.downloader on certain songs?

..., for this morning, I have duties accomplished.

1.Add a TextBox To your Form And .add this to your code.window, type some.sh.t in the TextBox when app running, .Close app and .Reload.

Imports System.IO
Public Class Form1
    Private myFile As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\theCoolestFile.with.My.Own.File.Extension"

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        IO.File.WriteAllText(myFile, TextBox1.Text)
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If IO.File.Exists(myFile) Then TextBox1.Text = IO.File.ReadAllText(myFile)
    End Sub
End Class

dayanand143,Try Inno Setup.

>>Is this the final conclusion why u asked me to test for zero rather than dividing it?
.i think so As well.
reason: Running the Try/Catch/etc., it sends the p.c. into shock Not just your tiny little app.

Hope this helps.:)

Solved +=1 For .Me :)

Post your current.code, I'll see what I can do from there.
[edit]
>>Would you mind telling me what exactly the lines of code do, I haven't seen that kind of syntax before.
If not same code as mine previously posted, I'll comment the previously posted one, otherwise I'll comment your current.code.:)
+= glad I could help.

I had a chance to play w/this "stopwatch" thread and got this.

Public Class Form1
    Private lParticipantClock As Label, btnParticipantStop As Button, tmrParticipantTimer As Timer
    Private iTotalParticipants As Integer

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        iTotalParticipants = 5
        createStopWatches(iTotalParticipants)
    End Sub

    Private Sub createStopWatches(ByVal TotalParticipants As Integer)
        For indexCounter As Integer = 1 To TotalParticipants Step 1

            lParticipantClock = New Label : With lParticipantClock
                .Name = "participantClock" & indexCounter
                .Size = New Size(100, 20) : .Location = New Point(139, (5 + ((indexCounter - 1) * 26)))
                .BorderStyle = BorderStyle.Fixed3D : .TextAlign = ContentAlignment.MiddleRight
            End With : CenterPanel.Controls.Add(lParticipantClock)

            btnParticipantStop = New Button : With btnParticipantStop
                .Name = "ParticipantStop" & indexCounter
                .Size = New Size(58, 20) : .Location = New Point(245, (5 + ((indexCounter - 1) * 26))) : .Cursor = Cursors.Hand
                .BackColor = Color.Red : .ForeColor = Color.White : .Font = New Font(.Font, FontStyle.Bold) : .Text = "Stop"
                AddHandler .Click, AddressOf _ParticipantButtons_Click
            End With : CenterPanel.Controls.Add(btnParticipantStop)

            tmrParticipantTimer = New Timer : With tmrParticipantTimer
                AddHandler .Tick, AddressOf _ParticipantTimers_Tick
                .Interval = 1 : .Start()
            End With
        Next
    End Sub

    Private Sub _ParticipantButtons_Click(sender As System.Object, e As System.EventArgs)
        CType(sender, Button).Text = "done"
    End Sub
    Private Sub _ParticipantTimers_Tick(sender As System.Object, e As System.EventArgs)
        Static iCounter As Integer = -1
        iCounter += 1
        For i As Integer = 1 To iTotalParticipants
            If Not CType(CenterPanel.Controls("ParticipantStop" & i.ToString), Button).Text = "done" Then
                CType(CenterPanel.Controls("participantClock" & i.ToString), Label).Text = iCounter.ToString("00:00:00")
            End If
        Next
    End Sub
End Class

Could Not use StopWatch.Value for some odd reason.

>>But Stopwatches cannot have a Tag component according to VB.
Why not create a Array that stores something similar to a .Tag for the StopWatches and ReDim the Array each time you create them?

1.Add a DateTimePicker.
2.Add some TextBoxes(NumericUpDowns might work better) for your Hour/Minutes/Seconds and a ComboBox for AM/PM.
3.Save the Date and Time to a File.
4.Add a Timer that .Ticks every second.
5.Check if File content ='s Today's Date and Time and alert user.

I would load file content when app loads, to Not constantly keep reading the File.
.AndAlso, I would add a shortcut to the app in the Start.Menu's Startup Folder, for your app to load when Windows starts up.

Hah! You got down.voted and I should down.vote your butt also for Not providing a solution and marking the thread as Solved.
.Hopefully it is a lesson learned and Not taken offensively.:)

Since your recent post and only wanting the lines that contain a .tif image, see if this helps.

Imports System.IO
Public Class Form1
    Private arlFileLines As New ArrayList
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim fbd As New FolderBrowserDialog '// declared in code, easier to manage.
        If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then '// send all .txt files for evaluation.
            MsgBox("File lines containing images: " & getFileLinesCount(Directory.GetFiles(fbd.SelectedPath, "*.txt", SearchOption.AllDirectories)))
        End If
        '// FOR.TESTING/ETC.
        'If Not arlFileLines.Count = 0 Then
        '    For Each itm As String In arlFileLines
        '        MsgBox(itm)
        '    Next
        'End If
    End Sub
    Public Function getFileLinesCount(ByVal selCoolFiles() As String) As Integer
        arlFileLines.Clear()  '// reset to store non.duplicate lines.
        For Each selFile As String In selCoolFiles '// loop thru all found.files.
            For Each line As String In File.ReadAllLines(selFile) '// loop thru each file's lines.
                If line.Contains(".tif") Then
                    line = line.Substring(line.IndexOf("\") + 1, line.IndexOf(".tif") + 3 - line.IndexOf("\")) '// get .tif image from line.
                    If Not arlFileLines.Contains(line) Then arlFileLines.Add(line) '// if ArrayList does Not contain line, add.line.
                End If
            Next
        Next
        Return arlFileLines.Count
    End Function
End Class

>>Can you simplify my code or any suggestions?
I managed to do a little code clean up and added a Sub to save each file.

Public Function GetCountofTifString(ByVal iFolder As String) As Integer
        Dim intPos As Integer, strName As String = ""
        For Each tpath As String In Directory.GetFiles(iFolder, "*.txt", SearchOption.AllDirectories)
            intPos = (iFolder.LastIndexOfAny("\")) + 1
            strName = iFolder.Substring(intPos, (Len(iFolder) - intPos))
            Dim basa As New StreamReader(tpath)
            If …

This morning confused me, it was victorious.

See if this helps.

Dim myFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\.vb.net\"
        MsgBox(IO.Directory.GetDirectories(myFolder)(0).ToString) '// folder.1.
        MsgBox(IO.Directory.GetDirectories(myFolder)(1).ToString) '// folder.2.

Let me know how it goes and if no results on your part, notify .Me and I'll post the solution.
.btw, ArrayLists are just like ListBoxes.
Instead of ListBox1.Items.Add("something"), you only use myArrayList.Add("something"), w/out the ".Items".

1.Add a ArrayList.
2.Clear it before loading your files.
3.Loop thru each line in each file and check if the ArrayList.Contains(file.line); If Not, add to ArrayList.
4.Get count of files in folder and compare to Arraylist.Count.
5.:)

See if this helps.

Imports System.IO
Public Class Form1
    Private myFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\"

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        With New FolderBrowserDialog
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                If getFileLinesCount(myFolder & "V20.txt") + getFileLinesCount(myFolder & "V23.txt") = getTifFilesCount(.SelectedPath) Then
                    MsgBox("=")
                Else : MsgBox(":(")
                End If
            End If
        End With
    End Sub
    Public Function getTifFilesCount(ByVal selFolder As String) As Integer
        If Directory.Exists(selFolder) Then Return Directory.GetFiles(selFolder, "*.TIF", SearchOption.AllDirectories).Length Else Return 0
    End Function
    Public Function getFileLinesCount(ByVal selFile As String) As Integer
        If File.Exists(selFile) Then Return File.ReadAllLines(selFile).Length Else Return 0
    End Function
End Class

I'm completely confused about this issue.
Are you trying to compare 2.files that contain file.paths of your 2.folders(1.file for each folder), and If similar file.names to Not count them?

See if this helps.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With TextBox1
            If Not .Text = "" Then '// check if not empty.
                Dim myCoolIDletters As String = "" '// new String to get all letters at beginning of ID.
                For i As Integer = 0 To .Text.Length - 1 '// loop until all letters located and added to String.
                    If Not IsNumeric(.Text(i)) Then myCoolIDletters &= .Text(i) Else Exit For
                Next
                '// set letters back and increase the #+1, with the format of 4#'s, as "0000".
                .Text = myCoolIDletters & (CInt(.Text.Substring(myCoolIDletters.Length)) + 1).ToString("0000")
            End If
        End With
    End Sub

Main reason is your code order; and no, it's not me:D, it's your code.

You have decSelection = Convert.ToDecimal(strSelection) before your Select Case , Not after.

Check out Inno Setup.

This seems like a very big task to accomplish.
First off, using something as:

With WebBrowser1
            .Navigate("http://www.google.com/search?q=" & TextBox1.Text & " video")
        End With

Will not always return video links, it will return links to pages with videos.

The best solution I can offer is to search YouTube.

With WebBrowser1
            .Navigate("http://www.youtube.com/results?search_query=" & TextBox1.Text)
        End With

.get the link clicked, extract the video.ID, and load the video in the WebBrowser with the code I recently posted.
You can and should be able to do this with other video sites, If they allow you to embed their video player on your web.page, as YouTube does.

Hope this helps.

I managed to get some "noob".results:D towards getting the captcha.img.

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        With WebBrowser1
            .Navigate("https://signup.live.com/signup.aspx?lic=1")
        End With
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        setCaptchaImage(PictureBox1)
    End Sub

    Private Sub setCaptchaImage(ByVal selPictureBox As PictureBox)
        For Each itm As String In Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.InternetCache), "*.jpg", IO.SearchOption.AllDirectories)
            If Path.GetFileNameWithoutExtension(itm).StartsWith("image") Then
                selPictureBox.ImageLocation = itm
            End If
        Next
    End Sub
End Class

Basically, it looks into the InternetCache folder, locates the ".jpg" images and since the captchas save as filenames "image[1],image[2],etc.", I got it to run thru all files and keep loading the image until the last image in folder. Somewhat noob, though it works for a start.up.

This seems to work well when you clear the cache of IE and it does seem to not always (about 25% of the time) refresh the directory files, returning the previous captcha image.

However, with this noob.result, I am happy to get you going in the right direction.:)
.I do however have some notes to go along w/you.
1.Check image's FileInfo for creationTime and if less than a few seconds from you loading the page, more than likely it is the appropriate captcha.image.
2.Find a way to refresh the InternetCache folder, to return the most recent images.
3.Good luck.:)

I have no idea either how to delete internet.cache; been trying all morning w/google.results and no luck.:(

Suggestion: Have you tried clearing out the cache every so often during your process?

To load an online image into a PictureBox, use this.

PictureBox1.ImageLocation = "http://images.daniweb.com/logo.gif"

I have no idea(s) regarding "network.share", though here is a suggestion.
Have a small sidekick.app installed on each user's p.c., that does the "copy and overwrite the existing application executable in the program files\app directory".

I'm not sure how systems work with network.sharing, though there should be a folder somewhere, where everyone can access it.
If it does, load a simple .txt file in there, saying that there is a new.version and load your updated.exe in there also.

If their app. finds this file, Then to load the little sidekick.app, close it's self, and have the sidekick app do all the leg.work.

Here's something to get you started.
I found the following code here, just slightly modified by me to Not Return warnings/errors.

Public Function GetTaskbarLocation() As String
        Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds
        Dim working As Rectangle = Screen.PrimaryScreen.WorkingArea
        If working.Height < bounds.Height And working.Y > 0 Then
            Return "Top"
        ElseIf working.Height < bounds.Height And working.Y = 0 Then
            Return "Bottom"
        ElseIf working.Width < bounds.Width And working.X > 0 Then
            Return "Left"
        ElseIf working.Width < bounds.Width And working.X = 0 Then
            Return "Right"
        Else
            Return Nothing
        End If
    End Function

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MsgBox(GetTaskbarLocation)
    End Sub

That should get you the location of the TaskBar.
.After you locate the TaskBar, just load a Form in the appropriate location of the Desktop and call it a day.

Hope this helps.

>>Bah, so any one with a problem with memory leak your just saying give up coding =/ ...
Why Not?if they can't fix the issue.
.just makes the programs I download/use work better.

..., for the maze is my own intellect.

Easy since I do some HTML'ing on the side. Actually I should not have mentioned that since I am slacking on updating my web.sight.:D

With WebBrowser1
            With .Document
                .GetElementById("agree").SetAttribute("checked", "checked")
            End With
        End With