Posts by codeorder

Post the code that loads the .Processes in your ListBox.
I'll use the code you currently have here and will try to "make sense" of how it works, then will post a possible "understand.Me.NT":D of how it works.:)

:'( I don't know how!!! :'(

I did however noticed that your are Dim 'ing inside a For/Next loop. From my perspective, I think that it is overworking someone's p.c. to the bone by constatly Dim 'ing something.
Why not Dim just before the For/Next and reuse that Variable in the loop, instead of constantly setting new Variables ?

Hope it helps.:)

>>No you are not understanding...
My.Apologies?for not understanding and good.luck since I am out of possible suggestions/solutions regarding this thread.

>>The problem is its not removing the File names that are stored
If it is for ListBox2, to have items removed, you need to loop backwards thru the ListBox and remove the .Items.

With ListBox2
            For i As Integer = .Items.Count - 1 To 0 Step -1
                .Items.Remove(.Items(i))
            Next
        End With

Looping forward and removing items will cause it to crash since it is looking for the .Count that was first set, and it constantly changes to .Count -=1.

Hope this helps.:)

First off, the code below is not functional as needed and it will throw an Exception.

Imports System.IO
Public Class Form1
    Public myFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\"
    Private myScoreFile As String = myFolder & "scoreFile.txt", myGameDatesFile As String = myFolder & "gameDatesFile.txt"
    Private arMain(), sDateFormat As String, iMyCurrentGameDay As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            test()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub test()
        If File.Exists(myScoreFile) Then
            arMain = File.ReadAllLines(myScoreFile) '// read.File.
            If Not arMain.Length = 0 Then '// if .File has content.
                With arMain(0).ToString '// With line1.
                    If .Contains(",") Then
                        iMyCurrentGameDay = .Split(","c).Length - 1 '// get Total games played, from scoreFile.txt.
                    End If
                End With
                If File.Exists(myGameDatesFile) Then
                    arMain = File.ReadAllLines(myGameDatesFile) '// read.File.
                    sDateFormat = "dd/mm/yyyy"
                    For i As Integer = 0 To arMain.Length - 1
                        With arMain(i)
                            If CDate(Format(.ToString, sDateFormat)) > CDate(Format(Now, sDateFormat)) Then
                                ' MsgBox(.ToString)
                            End If
                        End With
                    Next
                End If
            End If
        End If
    End Sub
End Class

I tried to wrap my head around your issue for the past hour+ and with other projects in mind, I have to leave it as is, beta.code.
I hope IT.might help to figure out how to get the Total.games played and compare them to the gameDates, or at least give you another suggestion that might eventually lead to a solution.

The scoreFile, I edited to only contain 3games and I even created a separate gameDatesFile. Since I'm a hobbyist …

mark.G
Reputation Points: 10
Solved Threads: 0
Newbie Poster
mark.G is online now Online
1 posts
since Nov 2011

1st Post? Then welcome to the forum, you "s.o.b.":D.
http://www.youtube.com/watch?v=m1TnzCiUSI0

.just not to be off.topic, Happy.Bday "again", my queen.:)

Glad I could help in more ways than1, "coz".:)
.Now mark your sh.t as Solved before I start the cussing, and it won't involve anything about hotties.:D

To add images or any file/files to My.Resources, follow these little steps.

First, check out the 3attached.images, in the order they appear.
2nd, you're done.:)

With PictureBox1
            .Image = My.Resources.jessica_alba
        End With

3rd, Jessica Alba is a hottie.:*

See if this helps.
http://social.msdn.microsoft.com/Forums/en/vbgeneral/thread/969b32ee-e055-4569-bc76-7a19e7daf3c7

Post some scoreFile.txt content andAlso add a few more details regarding the dates used.
I just woke up and w/out a hangover, it is difficult to make sense about:
.If 2dates passed, use the most recent date of the 2?
.What happens if 3+ dates passed?
.Who adds the dates to be used?;a randomGenerator/you/user?
One more thing, post format of date being used.

Is this another "cheat the world so I can make a few pennies auto.clicking links" thread?

Private Sub MaskedTextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MaskedTextBox1.Validated
        MsgBox(".use this Event to .Validate a MaskedTextBox.", MsgBoxStyle.Information)
    End Sub

Try this,
dateTimePicker1.Format = Custom
dateTimePicker1.ShowUpDown = True
dateTimePicker1.Customformat = h

With DateTimePicker1
            .Format = DateTimePickerFormat.Custom
            .ShowUpDown = True
            '// .CustomFormat = "h" '// 12Hour.day
            .CustomFormat = "H" '// 24Hour.day
            MsgBox(.Value.Hour)
        End With

Just guessing if the richtextbox is empty the very first time you load your .app.

If is empty, just add an space to the rtb(RichTextBox) and select it before enabling the equation editor.

Hope this helps

Hope this helps as well.:)

8 Hours Ago

>>adding form name has solved the problem

Not marking the thread as Solved, gave me a problem? and I have no problematic questions.(sigh) I would cuss you out, though it's morning and I already cussed out a neighboor; hope the previous sentence takes care of your "other" problem, not keeping it IT in an IT forum.

Other than that, glad I could help.:)

Have you tried adding the Form's.Name just prior to your Cmd_New.Enabled... ?

Example: Form1.Cmd_New.Enabled = False

...I thank and give heaven & earth.

>>sorry.
<<sorry.

>>I am getting this
.better than nothing, right?:D
I was getting "http://google.com".

In any case, If the Function starting on line.17 isNot there, Then it might .error.

See if this helps.

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With WebBrowser1 '// FOR.TESTING
            Dim sT As String = "<a style=""position: absolute; width: 300px; text-align: right; height: 30px; top: 10px; right: 20px; color: rgb(255, 255, 255); font-weight: bold; font-size: 16px;"" id=""skip_button"" onclick=""skipButton()"" target=""_top"" href=""http://google.com""></a>"
            .DocumentText = sT
        End With
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        With WebBrowser1
            .Navigate(getUrl(.Document.Body.InnerHtml, "skip_button"))
        End With
    End Sub

#Region "----===----===----===-----   -----===----===----===----"
    Private iSi, iEi As Integer
    Private Function getUrl(ByVal selContent As String, ByVal selCoolHtmlID As String) As String
        With selContent
            If .Contains(selCoolHtmlID) Then '// check .innerHTML for ID.
                iSi = .IndexOf(selCoolHtmlID) '// locate.ID.
                iEi = .IndexOf(">", iSi) '// locate html.element end.
                If Not iSi <= 0 Then '// (beta) locate start of html.element.
                    Do Until selContent(iSi) = "<" : iSi -= 1 : Loop
                End If
            End If
            selContent = .Substring(iSi, iEi - iSi).Substring(.IndexOf("href") + 6) '// locate.URL.
        End With
        Return selContent.Substring(0, selContent.IndexOf(""""))
    End Function
#End Region
End Class

...and passed thru heaven ;towards earth.

>>I'm in the same class with this guy, thanks so much codeorder, but we need help with the other stuff now!
.only "we"? hmm., will think about it:D, though in the meantime, start your own dam.n.thread. Return ".thanx":)

I see heaven's light, 2 miles back.

..., because I care about the day after.

>>... - you are legend.
I might be "you are legend", though I'll never be "I Am Legend".
>>thank you once again...
(:.glad I could help.:)

EDIT:
.apologies for this reply, got an alert in email(11/15/11) from DaniWeb.com, stating that:

Dear codeorder,

adsa2004 has just replied to a thread you have subscribed to.

Thread: Please Help! - Moving labels inside a groupbox using vertical scrollbar

Forum: VB.NET

... and got a bit confused over my morning cup of water, before realizing that the recent.poster never posted.

...and do not rest more than yesterday.

.not tested, though I hope it helps.

Public Class Form1
    Private CellID1(), CellID2(), CellID3(), CellID4(), CellID5(), CellID6(), CellID7(), CellID8(), CellID9(), CellID10() As String
    Private MapItems(20) As String
    Private i As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case i
            Case 0
                setCells(New Array() {CellID1, CellID2, CellID3}, New Integer() {1, 2, 3})
            Case 1
                setCells(New Array() {CellID4, CellID5, CellID6}, New Integer() {4, 5, 6})
            Case Else
                MsgBox(".hope and live to never Not.hope.", MsgBoxStyle.Information)
        End Select
    End Sub

    Private Sub setCells(ByVal selCells() As Array, ByVal selMapItems() As Integer)
        For i As Integer = 0 To selCells.Length - 1
            selCells(i) = MapItems(selMapItems(i)).Split(","c)
        Next
    End Sub
End Class

>>b. The first character in every sentence must be capitalized,...

With TextBox1
            .Text = StrConv(.Text, VbStrConv.ProperCase)
        End With

>>d. Your program must include "word count" function

With TextBox1
            MsgBox(.Text.Split(" "c).Length.ToString & " totally.noobed words in this WordsCount", MsgBoxStyle.Information)
        End With

>>I don't even know where to start with this...
Hope this helps.:)

>>...irritating.
As is that smiley,(wink).
>>...tried it and there were far too many instances...
:)

Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\test.txt" 'Example file seems to work a little better than "C:\Users\%USERNAME%\Documents\test.txt" ; += thanks. :)

>>I might be your custom source.
LMAOOO!!!
Can I be one also?:D

..., for I post to."ae"nd tomorrow.
(:D)

Process.Start(Path.GetDirectoryName(xsM))

xsM = String with a FullPath of a .File.

.i would like to load win.explorer with that.File.Selected=True .

.thanx.in.advance.

... and a story is no today.

>>This is very cool...
Then start your own thread And Not spam someone else's thread. Sucks not to be able to edit past 30min., right?:D

(clears throat)
.Did you just say Java in a vb.noob forum? Misspelled the question also? Want a cookie?, cause I thing JavaScript can do that just fine.

:) <<='s: me.looking at the "This thread is solved".
+=1 for me for helping the world "again".:D AndAlso , glad I could help.

>>Check to see if the following disk file exists within the BIN\Debug folder — ReservedSeats.dat
Hope this helps to get you started. :)

Imports System.IO
Public Class Form1
    Private myCoolDATfile As String = Application.StartupPath & "\ReservedSeats.dat"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If File.Exists(myCoolDATfile) Then
            MsgBox("File.Exists")
        Else
            MsgBox("Sux for you?")
        End If
    End Sub
End Class

.happy late.b.day?xD
Ran across this thread while locating " csgal " on a search to send " the queen " a p.m..
As for making it to your b.day Dani, not happening! I found this today and this thread was started in...sec, scrolling up.. :D ...
.k., done scrolling back down and I got Sep 21st, 2011 on my trip up.north and back.

However, since I've been bud-lighting all day, this just came to mind:
Send everyone a p.m. when you have b.day or anything Dani. Just you, not everyone spamming my p.m. box. You I do not mind, my queen. xD

In any case, I'm sure you can get some good programmers to make an .exe that will p.m. all members on this forum, though if you need a beta.vb.net.project for such, I can do, and will do with nothing expected in return.

Wish you all the best, wish you many more b.days and I hope that this forum keeps IT'n it's.elf with more feedback before it gets all out of sync w/new updates, for some. A p.m. for suck "updates"(:"such" was misspelled since it "suck"s, though will leave:), and I'm outtie since the earlier bud-lights are taking over and I somewhat forgot most of what I just wrote, other than " [B]good job Dani, keep it IT![/B] ". (:codeorder:) btw, {ICODE} for Toolbar on quick reply, would help an IT forum member(hopefully not just me). Just a suggestion, or maybe a …

See if this helps to create Dynamic.TextBoxes on a Form.

Public Class Form1
#Region "----===----===----===----- myCoolDYNAMICS  -----===----===----===----"
    Private Sub createCoolTextBoxes()
        '// # at end of TextBox, location from Left to Right, location from Top to Bottom.
        Dim iCoolNumberForName As Integer = 1, iLeftLocation As Integer = 5, iTopLocation As Integer = 5
        '// create Dynamic.TextBox.
        Dim txt As New TextBox With {.Name = "TextBox" & iCoolNumberForName.ToString, .Left = iLeftLocation, .Top = iTopLocation, .Text = .Name}
        Me.Controls.Add(txt) '// add txtBox to Form.
        iCoolNumberForName += 1 : iLeftLocation += 5 : iTopLocation += 25
        txt = New TextBox With {.Name = "TextBox" & iCoolNumberForName.ToString, .Left = iLeftLocation, .Top = iTopLocation, .Text = .Name}
        Me.Controls.Add(txt) '// add txtBox to Form.
        iCoolNumberForName += 1 : iLeftLocation += 5 : iTopLocation += 25
        txt = New TextBox With {.Name = "TextBox" & iCoolNumberForName.ToString, .Left = iLeftLocation, .Top = iTopLocation, .Text = .Name}
        Me.Controls.Add(txt) '// add txtBox to Form.
        '// etc./etc.
    End Sub
#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        createCoolTextBoxes()
    End Sub
End Class

As for getting values from your new TextBoxes, check out this recent post of mine. The second part of code, w/the sTemp &= CType(Me.Controls([B]"TextBox" & i[/B].ToString), TextBox).Text ; i being iCoolNumberForName in the above code.

See if this helps.

Private sTemp As String = Nothing '// TEMP String.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sTemp = "" '// clear for new input.
        For Each myCoolTextBox In New TextBox() {TextBox1, TextBox2, TextBox3} '// your TextBoxes.
            sTemp &= myCoolTextBox.Text '// add to Strings using "&" and add.#'s up using "+", less confusing. :)
        Next
        MsgBox(sTemp) '// result.
    End Sub

AndAlso :

Private sTemp As String = Nothing, iCoolNumberOfBoxes As Integer = Nothing
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        iCoolNumberOfBoxes = 3 '// set as needed.
        sTemp = "" '// clear for new input.
        For i As Integer = 1 To iCoolNumberOfBoxes
            sTemp &= CType(Me.Controls("TextBox" & i.ToString), TextBox).Text
        Next
        MsgBox(sTemp) '// result.
    End Sub

The code I posted takes care of "ALL" Forms from Form1. You just have to add/remove Forms from For Each frm In New Form() [B]{Me, Form2, Form3}[/B] and done. :) To get a better understanding about "Handlers" and adding Event Handlers to Controls/etc., see if this helps.
New Project, 1 Button
Double click Button1 and you should get this:

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

    End Sub

Remove the Handles Button1.Click from the end and you can even .Rename Button1_Click to something more appealing to your project.
This Not only works for a Button.Click, it works for all Events, for all Controls.:)

Private Sub _myCoolBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

Now that you have the Handler for your Button.Click, it just has nothing to Handle since we .Removed the Handles Button1.Click , thus we have to assign a Control/etc. to Handle.

Placing this in Form1_Load or anywhere, you can add a Handler to your Button1.

AddHandler Button1.Click, AddressOf _myCoolBtn_Click

Adding some sort of code to your new Event.Handler, will access that code if done properly.

Private Sub _myCoolBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        With CType(sender, Button)
            MsgBox(.Name & " - " & .Text)
        End With
    End Sub

Here is the entire New Project's code w/1 Button on Form1.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Button1.Click, AddressOf _myCoolBtn_Click
    End Sub

    Private …

>>...i am now entering the 'end' statement in each forms 'FormClosing' event.
By using End , you will not close the application properly and it will skip the FormClosing event entirely. Using Application.Exit closes the app. normally.

>>...i couldn't get line no. 11...
Are you not understanding how it works or does it not respond as needed?

See if this helps to terminate the application from any Form.

Public Class Form1
#Region "----===----===----===----- EVENT HANDLERS -----===----===----===----"
    Private Sub _myCoolForms_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
        Application.Exit()
    End Sub
#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each frm In New Form() {Me, Form2, Form3} '// your Forms.
            '// add an Event Handler to all Forms for FormClosing.
            AddHandler frm.FormClosing, AddressOf _myCoolForms_FormClosing
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form3.Show()
    End Sub
End Class

>>But where is the code for my custom cursor that I want to show?
See if this helps. :)

If you need further help, do let me know. I might find another search.engine other than "LMGTFY".

>>Can you go through the process of making a custom cursor?
Drawing it? Cropping it? Adding colors to it? Or switching the cursor to a custom.cursor?

If e.KeyCode = Keys.Up Then Me.Cursor = Cursors.Default

   If filterKeys Then If e.KeyCode = Keys.Up Then Me.Cursor = Cursors.WaitCursor

'// note: did not test.

See if this helps.

Public Class Form1
    Private WithEvents cmCool As New ContextMenuStrip
    Private sTemp As String = "myCool.exe"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With WebBrowser1
            .IsWebBrowserContextMenuEnabled = False '// disable WebBrowser ContextMenu.
            cmCool.Items.Add(sTemp) '// add item to your ContextMenu.
            .ContextMenuStrip = cmCool '// set ContextMenu to WebBrowser.
        End With
    End Sub

    Private Sub _cmCool_ItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmCool.ItemClicked
        Select Case e.ClickedItem.Text
            Case sTemp
                Process.Start("C:\Users\codeorder\Desktop\vb.net\b.tches.worth.loving\b.tches.worth.loving\bin\Debug\b.tches.worth.loving.exe")
        End Select
    End Sub
End Class

See if this helps to get you started.

Public Class Form1

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyData
            Case Keys.Up
                Me.Cursor = Cursors.WaitCursor
        End Select
    End Sub

    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        Select Case e.KeyData
            Case Keys.Up
                Me.Cursor = Cursors.Default
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True '// needed to get the keys.Focus.
    End Sub
End Class

>>thanks you for read this topic!
Anything else we can do to waste our time and get no.input back on the input we posted?