Posts by codeorder

i love you.

Does that mean we can make tons of webbrowsing vb.net babies?:D

Glad I could help.:)

Add this to your code.

Dim iconBitmap As Bitmap = New Bitmap(favicon)
            Me.Icon = Icon.FromHandle(iconBitmap.GetHicon)

Does using (sender, e) help?

Public Class Form1

    Private Sub Button2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Button2.BackColor = Color.Orange
    End Sub

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.ritani.com/salespersons/login")
    End Sub

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

        If WebBrowser1.Url.AbsoluteUri = "http://www.ritani.com/salespersons/login" Then
            WebBrowser1.Document.GetElementById("SalespersonEmail").SetAttribute("Value", "myCoolEmail@myCoolWebsite.com")
            WebBrowser1.Document.GetElementById("SalespersonPassword").SetAttribute("Value", "myCoolPassword")
            WebBrowser1.Document.Forms(1).InvokeMember("submit")
        End If

    End Sub

You might find this link useful.

Something like a Windows Form with TextBoxes to add the measurements and clicking a button to calculate everything?

Quite possible.
I will send you a private message on how to get started since it could get a little more complicated than just having one timer and we do not want to send forum threads off-topic.:)

'// 1 tabcontrol, 3 textboxes on tabpage 2

       '// TabPages is index based, 0 = tabpage1, 1 = tabpage2, etc.
        MsgBox(TabControl1.TabPages(1).Controls(2).Text) '// will get the first added textbox's text .
        '//changing 2 to 0 will get the last control added to the tabpage.

The previously posted code only gets a preselected indexed item.

The following code will get every item's text that has been clicked.

Private Sub ToolStripDropDownButton1_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStripDropDownButton1.DropDownItemClicked
        '/////////////////////
        MsgBox(e.ClickedItem.Text)
        '////////////////////
    End Sub

And what exactly is your question?

Private Sub ToolStripDropDownButton1_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStripDropDownButton1.DropDownItemClicked
        Dim myCoolFile As String = ToolStripDropDownButton1.DropDownItems.Item(0).Text
        MsgBox(myCoolFile)
    End Sub

View my post in this thread.
http://www.daniweb.com/forums/thread306269.html

What is wrong with the code from your other thread "Drag and drop"?

simple chat box..

http://www.projectguidance.com/

the_carpenter, I believe "engg" is for Engineering, at least that is what google led to.

I figured that using:

TabControl1.SelectedTab.Controls(0).Dispose()

and the selected tab's WebBrowser being control(0), it would Dispose of it, as in deleted permanetly from the application.

" object instances " sound foreign to me, although I am a novice programmer.
Googling as speaking.

Hi.
This was my first attempt at creating a translation software so I hope the following project sample is of use.
Hopefully I got the correct words for the translations and not something else. :D

'// Pre-requisites: 2 buttons, 1 richtextbox \\
Public Class Form1

    Private translateTo As String = "English" '// determine which language to translate to.
    Private myTranslationList As New List(Of String) '// list for your translations.

    Sub addTranslationsToList()
        With myTranslationList
            '// add complete sentences First.
            .Add("What are you doing today?~আপনি আজ কি করছেন?")
            .Add("How are you?~আপনি কেমন?")

            'add words starting with the longest word First.
            .Add("where~কোথায়") : .Add("what~কি") : .Add("when~কখন") : .Add("how~কিভাবে") : .Add("why~কেন")

            '// add the single characters last.
            .Add("a~একটি") : .Add("b~b") : .Add("c~সি") : .Add("d~৪") : .Add("e~৫")
            .Add("1~১") : .Add("2~২") : .Add("3~৩") : .Add("4~৪") : .Add("5~৫")
        End With
    End Sub

    Sub beginTranslation()
        If translateTo = "English" Then
            For Each translation As String In myTranslationList
                Dim myCoolIndex As Integer = 0
                Dim myArray() As String = translation.Split("~") '// separate English from Bengali in each string.
                translation = myArray(1) '//get the Bengali word(s).
                Do Until myCoolIndex = -1 '// loop until "myCoolIndex" is returned to the start of the search.
                    myCoolIndex = Me.RichTextBox1.Find(translation, myCoolIndex, RichTextBoxFinds.WholeWord) '// locate word(s).
                    If Not myCoolIndex = -1 Then
                        RichTextBox1.SelectionStart = myCoolIndex '// start selection.
                        RichTextBox1.SelectionLength = translation.Length '// end selection.
                        RichTextBox1.SelectedText = myArray(0) '// change words to English.
                        myCoolIndex += 1  '// next word.
                    End If
                Loop
            Next
        ElseIf translateTo = "Bengali" Then
            For Each translation As String …

:yawn:

Dim myCoolMsgBox As DialogResult '// declare a message box.
        myCoolMsgBox = MessageBox.Show("Nickname?", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        Select Case myCoolMsgBox
            Case DialogResult.Yes
                MsgBox("You pressed Yes.")
            Case DialogResult.No
                MsgBox("You pressed No.")
        End Select

First, your If statement needs a closing End If statement.

If TextBox2.Text = "1" Then
            TextBox2.BackColor = Color.LawnGreen
            'C:\Users\Nick\Desktop\good_work.play
        End If

Second, you cannot just paste a file's full path, especially one without a file extension and expect nothing but errors.
You have to declare it.

Dim myCoolFile As String = "C:\Users\Nick\Desktop\good_work.wav"

And finally, check out this thread.
How do I make a program in VB make a sound when it starts?

Giving it a shot.

If your text file displays as the following:

price: $10/total items in stock: 100
price: $20/total items in stock: 200
price: $30/total items in stock: 300
price: $40/total items in stock: 400
price: $50/total items in stock: 500

The following code will read a line from the file depending on which index is selected in the "Combobox".

Public Class Form1

    Private myFile() As String = IO.File.ReadAllLines("C:\test.txt") '// load file into an array.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With ComboBox1.Items
            .Add("Item 1") : .Add("Item 2") : .Add("Item 3") : .Add("Item 4") : .Add("Item 5")
        End With
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim txtLine As Integer = ComboBox1.SelectedIndex '// get index for which line to read.
        Dim myArray() As String = myFile(txtLine).Split("/") '// split line into strings.
        MsgBox(myArray(0), MsgBoxStyle.Information) '// display first string in myArray.
        MsgBox(myArray(1), MsgBoxStyle.Information) '// display second string in myArray.
    End Sub
End Class

As the_carpenter stated, more details will be beneficial for those replying and for you, the original poster.

Otherwise, I hope the above project sample helps.

<select id="DDLReqStages">
	<option>Option 1</option>
	<option>Option 2</option>
	<option>Option 3</option>
	<option>etc.</option>
</select>
<input type="button" name="btnCancel" style="font-size: xx-small" onclick="JavaScript:CloseDiv();"  value="Cancel" />
<script type="text/javascript">
   function CloseDiv() {
           // var control = document.getElementById("divReqStages");
           // control.style.visibility = "hidden";
           document.getElementById('DDLReqStages').selectedIndex = 0; // Reset
        }
</script>

Something to look forward to. :)
p.s. Nice information provided about:

Releasing memory is such an important aspect of good programming

I am glad to know that others look into such aspects, especially when they are capable of doing so.

Try the following code as a new project.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With ListView1
            .Columns.Add("New Column", .Width - 21)
            .CheckBoxes = True : .FullRowSelect = True : .View = View.Details
            .Items.Add("item 1") : .Items.Add("item 2") : .Items.Add("item 3") : .Items.Add("item 4") : .Items.Add("item 5")
            .Items.Add("item 6") : .Items.Add("item 7") : .Items.Add("item 8") : .Items.Add("item 9") : .Items.Add("item 10")
        End With
    End Sub

    Private Sub ListView1_ItemChecked(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) _
                                                    Handles ListView1.ItemChecked
        ListBox1.Items.Clear()
        For Each itemListed As ListViewItem In ListView1.Items
            If itemListed.Checked = True Then
                ListBox1.Items.Add(itemListed.Text)
            Else
                ListBox1.Items.Remove(itemListed.Text)
            End If
        Next
    End Sub
End Class

The code only allows the Checked Items to be added to the Listbox, nothing else.
Even my previous reply, tested in a new project from a Button_Click event, returned the same result.

It could be that somewhere in your code you are adding all items to the Listbox, checked or unchecked.

Public Class Form1
    '// declared array.
    Private itemstocks(2) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '// assign specific values.
        itemstocks(0) = 100
        itemstocks(1) = 200
        itemstocks(2) = 300
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '// add on to the values.
        itemstocks(0) += 50
        MsgBox(itemstocks(0)) '// result: 150
        itemstocks(1) += 50
        MsgBox(itemstocks(1)) '// result: 250
        itemstocks(2) += 50
        MsgBox(itemstocks(2)) '// result: 350
    End Sub
End Class

Unless you need to keep certain data in ListBox1, clearing the ListBox before running the code should do the trick.

ListBox1.Items.Clear()
        For Each itemlist As ListViewItem In ListView1.Items
            If itemlist.Checked = True Then
                ListBox1.Items.Add(itemlist.Text)
            Else
                ListBox1.Items.Remove(itemlist.Text)
            End If
        Next

Start New Project and click the Save All option.
You should get an option to choose a location for your new project.
This new location gets stored for the next time you save a new project.

As for non-saved projects, it uses the Temporary Projects folder.
Those projects get deleted unless saved.

If it helps any, load windows explorer on form Load.

Process.Start(Application.StartupPath)

See if this helps.
Quoted from the posted link.

This works well for users who already have PowerPoint (or OpenOffice). And that's usually a safe bet on your company Intranet. But for an Internet audience, it's not such a hot choice.

Your post is very confusing to figure out.
In just a few words, explain what "exactly" is the problem you need help with.

On Form1 you are declaring your variables "Locally", therefore only Form1 has access to them.

To declare something "Globally" you need to change "Dim" to "Public".
Example of a "Global Declaration" on Form1:

Public Gcoins As String = "1,000,000 gazillion & a couple billions."

And to get the variable from another form, I used the following:

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(Form1.Gcoins)
    End Sub

Dear It is specifically for one image how can i load multiple image in picture box.

Load multiple image in Picturebox?
Do you intend to load different images or to load multiple images as one image in a picturebox?

If for different images, use a listbox/listview to display a list of the images and since you now know how to load a single image, use that code for each item clicked in your listbox/listview.

To load multiple images as one image in one picturebox can be done.
The code is a little too advanced to understand, especially if having problems loading a single image.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "http://daniweb.com"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            e.Handled = True '// cancel beep noise.
            Button1.PerformClick() '// programatically press button1.
        End If
    End Sub
End Class

Since Textbox1 will probably not be multi-line, pressing the Enter Key will cause a "beep" sound. This beep sound is a Windows error sound to notify the user that the Textbox cannot accept the enter key for a new line.

As in the code posted, I have added a line of code to cancel out the beep noise.:)

See if the following sample project helps about using a Tab's .Tag property.

Public Class Form1
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '// clear the default tabs.  should be done from designer mode. 
        For Each coolDefaultTab As TabPage In TabControl1.TabPages
            TabControl1.TabPages.Remove(coolDefaultTab)
        Next
        Button1.Text = "New File" : Button2.Text = "Open File" : Button3.Text = "Save File"
        '// check if tab is available, else add new tab.
        If TabControl1.TabPages.Count = 0 Then
            addNewTab()
        End If
    End Sub

    Private Sub addNewTab()
        Dim newTab As New TabPage
        newTab.Tag = "" '// used to determine which tab is accessing which file.
        newTab.Text = "New CodeOrder :)" '// add a title text to the new tab.
        Dim newRtb As New RichTextBox With {.Dock = DockStyle.Fill, .ForeColor = Color.SlateGray} '//design a richtextbox.
        newTab.Controls.Add(newRtb) '// add richtextbox to new tab.
        TabControl1.TabPages.Add(newTab) '// add new tab to tabcontrol.
        '// select the new tab.
        TabControl1.SelectedIndex = TabControl1.TabPages.Count - 1
        '// since newRtb is the first control added to your new tab, you will refer to it by Index, as "Controls(0)".
        TabControl1.SelectedTab.Controls(0).Select() '// select the richtextbox.
    End Sub

    '// New File.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        addNewTab()
    End Sub

    '// Open File
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TabControl1.TabPages.Count = 0 Then  '// if no tabs available, add new tab.
            addNewTab()
        End If
        '// get the appropriate richtextbox.
        Dim mySelectedRichtextbox As RichTextBox = TabControl1.SelectedTab.Controls(0)
        '// load a file.
        Dim …

Use the .ProgressChanged Event of the Webbrowser you are using.

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        ProgressBar1.Maximum = e.MaximumProgress
        ProgressBar1.Value = e.CurrentProgress
    End Sub

Hey what's up. How would I save a file to the application resources? Like I would be able to save text files using the GUI and then when I re-open the application I'd be able to access them again.

For adding files to your resources view the following link about using ResXResourceWriter.

Load image in picturebox:

Dim myCoolImage As String = "C:\vs logo.png"
        If IO.File.Exists(myCoolImage) Then
            PictureBox1.Image = Image.FromFile(myCoolImage)
        End If

Store it in sql server 2008:
???

Hi.
I have found the following c# code here and converted it to vb.net.

Public Class Form1

    Const WMCLOSE As String = "WmClose"

    Public Function IsFormClosing() As Boolean
        Dim stackTrace As System.Diagnostics.StackTrace = New System.Diagnostics.StackTrace
        For Each sf As System.Diagnostics.StackFrame In stackTrace.GetFrames
            If (sf.GetMethod.Name = WMCLOSE) Then
                Return True
            End If
        Next
        Return False
    End Function

    Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated
        If IsFormClosing() = True Then Exit Sub '// skip the remaining code.
        '// do your validating here.
        MsgBox("Validated.")
    End Sub
End Class

No body has any idea about pictures in vb.net

Images in vb.net, Yes.
Images in Sql Server, No.

Question:
Is txtAddress1 a ComboBox or TextBox?

The following code will play .wav files.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myCoolSoundFile As String = "C:\!vb.net\mission2.wav" '// your sound .wav file here.
        If IO.File.Exists(myCoolSoundFile) Then
            My.Computer.Audio.Play(myCoolSoundFile)
        Else
            MsgBox("No sound file found.", MsgBoxStyle.Critical)
        End If
    End Sub
End Class

You probably do not have the correct colors somewhere.
Try adding the the following code and see if you get the same results:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.BackColor = Drawing.Color.DarkViolet
    End Sub

Since you will probably need help accessing more controls than one, see if the following helps.
Pre-requisites: 8 Buttons.

Public Class Form1

    '// handle more controls from one event.
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
        Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click
        '// get the button clicked.
        Dim btnClicked As Button = CType(sender, Button)
        '// change only the clicked button's backcolor.
        If btnClicked.BackColor = Drawing.Color.DarkViolet Then
            btnClicked.BackColor = Drawing.Color.Black
        ElseIf btnClicked.BackColor = Drawing.Color.Black Then
            btnClicked.BackColor = Drawing.Color.DarkViolet
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '// change all the buttons backcolor.
        For Each btn As Button In Me.Controls
            btn.BackColor = Drawing.Color.DarkViolet
        Next
    End Sub
End Class

Final year project title
Brainrich Final Year Projects

Quick question.
Is this an HTML web-page or a Flash web-page?
If Flash based, I cannot be of further help.

Public Class Form1

    Private WithEvents myTimer As New Timer With {.Interval = 1000, .Enabled = True}

    Private Sub myTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles myTimer.Tick
        Me.Text = "Cool little Title - " & Date.Now.ToLongDateString & " - " & TimeOfDay
    End Sub
End Class

How is it adding the date and time to your Form's Title? Me.Text=""?

Have you tried adding the name of your Form's title first, followed by & and the code I have provided?

Me.Text = Date.Now.ToLongDateString & " - " & TimeOfDay

You can move the code to the appropriate events for the Panel and set AllowDrop to True in the Panel's Properties, or you can just simply modify the Form1_Load event.

Example:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Panel1.AllowDrop = True
        AddHandler Panel1.DragEnter, AddressOf Form1_DragEnter
        AddHandler Panel1.DragDrop, AddressOf Form1_DragDrop
    End Sub

The following code will allow you to drop files on your form and get their full path.
Since it will return a file's full path, the rest should be easy.

The code had to be slightly modified for it to respond properly, and originated from here.

Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.AllowDrop = True
        AddHandler Me.DragEnter, AddressOf Form1_DragEnter
        AddHandler Me.DragDrop, AddressOf Form1_DragDrop
    End Sub

    Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs)
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs)
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim filePaths As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
            For Each fileLoc As String In filePaths
                '////////////////////////////////////////////////////
                If File.Exists(fileLoc) Then
                    MsgBox("Full Path: " & vbNewLine & Path.GetFullPath(fileLoc))
                End If
                '////////////////////////////////////////////////////
            Next
        End If
    End Sub
End Class

I am not sure if you were able to get anything accomplished from the posted link,
but I could not figure out what a Label.Caption is.:D

I hope this is a little more up to date.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Start"
        Timer1.Interval = 1000 '// tick every second.
        '// textbox1 = Hours, textbox2 = Minutes, textbox3 = Seconds
        TextBox1.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0"
     End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Timer1.Enabled = False Then
            Timer1.Start()
            Button1.Text = "Stop"
        Else
            Timer1.Stop()
            Button1.Text = "Start"
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox1.TextLength < 2 Then TextBox1.Text = "0" & TextBox1.Text '// format from "0" to "00"
        '// verify Hours.
        If TextBox1.Text > "00" And TextBox2.Text = "00" Then
            TextBox1.Text -= 1
            TextBox2.Text = "60"
        End If
       
        If TextBox2.TextLength < 2 Then TextBox2.Text = "0" & TextBox2.Text '// format from "0" to "00"
        '// verify Minutes.
        If TextBox2.Text > "00" And TextBox3.Text = "00" Then
            TextBox2.Text -= 1
            TextBox3.Text = "60"
        End If
       
        If TextBox3.TextLength < 2 Then TextBox3.Text = "0" & TextBox3.Text '// format from "0" to "00"
        '// verify Seconds.
        If TextBox3.Text > "00" Then TextBox3.Text -= 1
       
        '// disable Timer.
        If TextBox1.Text = "00" And TextBox2.Text = "00" AndAlso TextBox3.Text = "00" Then
            Timer1.Enabled = False
            MsgBox("Can I stop …

I believe this is VB.NET Forum.

Dim myFile As String = "c:\EveOreData.csv"
        If IO.File.Exists(myFile) Then
            Dim readLines() As String = IO.File.ReadAllLines(myFile)
            TextBox1.Text = readLines(0)
            TextBox2.Text = readLines(1)
            TextBox3.Text = readLines(2)
            TextBox4.Text = readLines(3)
            TextBox5.Text = readLines(4)
            TextBox6.Text = readLines(5)
            TextBox7.Text = readLines(6)
        End If