Visual Basic

19-May-14 7:39

Second sentence in that link:
Despite Microsoft's best efforts to kill VBA off

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

VB.Net 2008

Virendra Singh Bhanu16-May-14 0:29

Virendra Singh Bhanu

16-May-14 0:29

how to read any specific text from Web Browser tool and put it into TextBox control.

it would be better it you tell me how can i read text line by line from Web Browser tool and put it into TextBox control.

thanks,

Virendra

Richard MacCutchan16-May-14 0:50

16-May-14 0:50

Virendra Singh Bhanu wrote:
it would be better

It would be better if you posted in the ASP.NET forum[^].

Virendra Singh Bhanu16-May-14 0:56

Virendra Singh Bhanu

16-May-14 0:56

but i don't know ASP.Net

is it not possible in vb.net?

Richard MacCutchan16-May-14 1:14

16-May-14 1:14

You have not explained in any detail what you mean by "read line by line from Web Browser tool". However, I would suggest using the WebBrowser Class[^], which allows you to interact with any internet site.

Eddy Vluggen16-May-14 3:02

List(Of ObjectWithProperties) distinct property values

16-May-14 3:02

Did you mean from the WebBrowser control? Or from any browser-application that the user has opened?

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Johan Hakkesteegt15-May-14 3:32

Johan Hakkesteegt

15-May-14 3:32

Hi,

Let's say that I have an object called Employee with the properties Name and Department.

Next I have a List(Of Employee) with say 5 employees in it. Each of these 5 employees are member of one of 10 possible different departments. Perhaps they are each member of a different department, perhaps they are all members of the same department, etc. This is an unknown.

How can I get the distinct departments from my list ?

There is List.Distinct, but it seems I can only get distinct entire objects (employees) through that.

Any help much appreciated.

Best regards,
Johan

My advice is free, and you may get what you paid for.

Re: List(Of ObjectWithProperties) distinct property values

Richard MacCutchan15-May-14 3:49

Re: List(Of ObjectWithProperties) distinct property values

15-May-14 3:49

Probably by creating another List (or other collection class) which only contains departments. Go through all your employee records adding the department to the second list.

David Mujica15-May-14 6:32

David Mujica

15-May-14 6:32

It appears that there is an overload to the .Distinct method where you pass it a function which does the comparison for you. In this function, you would implement the compare of the department field only.

Check this out ...
http://msdn.microsoft.com/en-us/library/vstudio/bb920306(v=vs.90).aspx[^]

And this example code ...
http://msdn.microsoft.com/en-us/library/vstudio/bb338049(v=vs.90).aspx[^]

Hope this helps.
Thumbs Up | :thumbsup:

Re: List(Of ObjectWithProperties) distinct property values

Eddy Vluggen15-May-14 7:53

Re: List(Of ObjectWithProperties) distinct property values

15-May-14 7:53

Johan Hakkesteegt wrote:
Each of these 5 employees are member of one of 10 possible different departments. Perhaps they are each member of a different department, perhaps
they are all members of the same department, etc. This is an unknown.

One employee in one department, not one employee in multiple departments. Check.

Imports System.Collections.Generic
Module Module1

    ' Let's say that I have an object called Employee with the properties Name and Department.
    Class Employee
        Public Property Name As String
        Public Property Department As String
    End Class

    Sub Main()

        Dim zeList As New List(Of Employee)
        zeList.Add(New Employee() With {.Name = "John", .Department = "IT"})
        zeList.Add(New Employee() With {.Name = "Jane", .Department = "IT"})
        zeList.Add(New Employee() With {.Name = "Pete", .Department = "Management"})

        Dim departments As IEnumerable(Of String) = zeList.Select(Function(e) e.Department).Distinct()

        For Each department As String In departments
            Console.WriteLine(department)
        Next
        Console.ReadLine()

    End Sub

End Module

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Johan Hakkesteegt15-May-14 20:16

Johan Hakkesteegt

15-May-14 20:16

Last night I woke up and figured Richard's answer myself, but this is the "one-liner" that I was after.

Thanks Eddy !

My advice is free, and you may get what you paid for.

Re: List(Of ObjectWithProperties) distinct property values

Mycroft Holmes15-May-14 22:41

Mycroft Holmes

15-May-14 22:41

Eddy Vluggen wrote:
zeList.Select(Function(e) e.Department).Distinct()

I looked and looked and wondered where the Function(e) comes from and what is it doing D'Oh! | :doh:

x=>

So I have not looked at VB since before linq was invented.

Never underestimate the power of human stupidity
RAH

Window Service Does Not Stay "Alive" While Running

ToolTimeTabor14-May-14 15:13

ToolTimeTabor

14-May-14 15:13

How do I keep a class object "alive" in a Windows Service?

I have a simple class object (clsWatcher) that monitors a folder using an instantiation of the FileSystemWatcher class. It works great. When a change is made to the folder being "watched" it triggers a log entry.

When I use the clsWatcher as a form-level object in a standard Windows Forms EXE, it works perfectly as long as the windows form is open. When the form closes, it dies and no watching is done. Perfect.

When I transfer this class to a SYSTRAY application, it continues to work correctly. As long as the SYSTRAY application is not exited, the clsWatcher works properly. When I exit the SYSTRAY application, it dies and no watching is done. Perfect.

When I transfer this class to a Windows Service, it does not work as desired. The service starts, the clsWatcher instantiates, and then the service "finalizes" and the clsWatcher dies even though the service is still "started" and no errors were logged (I have an Application Log feature to send messages that can be observed during start up and errors.)

How do I keep the service/application "running" in order to keep the instantiated clsWatcher object alive?

Re: Window Service Does Not Stay "Alive" While Running

Bernhard Hiller14-May-14 21:51

Bernhard Hiller

14-May-14 21:51

ToolTimeTabor wrote:
and then the service "finalizes"

What does that mean? Does the service crash? Is yourservice.exe still in the list of processes in the task manager ("show processes of all users")?

Re: Window Service Does Not Stay "Alive" While Running

Eddy Vluggen15-May-14 3:00

Re: Window Service Does Not Stay "Alive" While Running

15-May-14 3:00

ToolTimeTabor wrote:
How do I keep the service/application "running"

Create an infinite loop (and exit if Windows is shutting down). A service doesn't have a loop that keeps the app alive until someone "closes" it, as it should not be closed.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

David Mujica15-May-14 6:25

David Mujica

15-May-14 6:25

I have a very similar windows service that does exactly what you are describing.

 ' Create a new FileSystemWatcher and set its properties.
       Dim watcher As New FileSystemWatcher()

       watcher.Path = gsWatcherPath

       ' Watch for changes in LastAccess and LastWrite times, and
       ' the renaming of files or directories.
       watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
       ' Only watch text files.
       watcher.Filter = "*.txt"

       ' Add event handlers.
       AddHandler watcher.Created, AddressOf OnChanged

       ' Begin watching.
       watcher.EnableRaisingEvents = True


Private Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)

       Call ProcessFile_Master(e.FullPath)

   End Sub

Once you instantiate the FileSystemWatcher, there is nothing else to do, no loops, nothing extra.

The Sub, OnChanged, gets fired for each file that is changed in the "watched" directory.

Hope this helps.
Thumbs Up | :thumbsup:

If/and Statements

David Rubin13-May-14 12:34

David Rubin

13-May-14 12:34

I am trying to write code for multiple if/and statements, but don’t really know how. Any help would be very much appreciated!

I need the code to loop through these statements and enter the correct information in cell M5.

IF C9= ”SHIP EXACT” AND G13<c13, then="" m5="”ENTER" remake”

if="" c9="”" no="" backorders="" on="" stock="" unless="" zero="" were="" shipped”="" and="" g13<c13,="" remake="" required”

if="" ship="" tolerance”="" g13="" c13="">10%, then M5= “ENTER REMAKE”

IF C9= ”5% Ship Tolerance” AND G13/C13>5%, then M5= “ENTER REMAKE”

Re: If/and Statements

Peter Leow13-May-14 14:33

Peter Leow

13-May-14 14:33

First, phase them in your natural language, such as English:
If I score 90 and above,
then my grade is 'A'
Else If I score 80 and above (but below 90 - this one can be omitted as it would have been considered in the first if statement)
then my grade is 'B'
else If I score 70 and above
then my grade is 'C'
...
Else (last condition no need to have condition, it is understood to be none of the above)
the my grade is 'F'

Finally, print out my grade

Once you are satisfied with these statement, then translate them to vb.net code.
refer: If...Then...Else Statement (Visual Basic)[^]

Re: If/and Statements

charliedev14-May-14 19:20

charliedev

14-May-14 19:20

You should use
if [condition] then
[result]
else if [condition2] then
[result2]
end if

Since when is being together a prerequisite for being in love with someone?

save images as .gif

khei-chan00712-May-14 17:44

khei-chan007

12-May-14 17:44

Hi guys,
i have codes that displaying different images as gif in one picturebox. My problem is, how can i save this .gif i mydocuments?
here is my codes..

thank you in advance! Smile | :)

Public Class Form7

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.BackColor = Color.Ivory
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox2.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox3.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox4.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox5.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox6.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox7.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox8.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        Timer1.Enabled = True
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim max As Integer = 500
        Dim rnd As New Random
        Dim rand As Integer = rnd.Next(5, max + 1)

        Dim i As Integer = 1
        Dim number(max - 1) As Integer
        For i = 0 To max - 1
            If number(i) = rand Then
                rand = rnd.Next(1, max + 1)
                i = -1
            ElseIf number(i) = 0 Then
                number(i) = rand
                rand = rnd.Next(1, max + 1)
                If i = max - 1 Then
                    Exit For
                End If
                i = -1
            End If
        Next
        Timer1.Interval = number(i)
        i += 1
        ChangeImage()

    End Sub

    Private Sub ChangeImage()

        Static Dim iImage1 As Integer

        Select Case iImage1
            Case 0
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox1.Text)
                iImage1 += 1
            Case 1
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox2.Text)
                iImage1 += 1
            Case 2
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox3.Text)
                iImage1 += 1
            Case 3
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox4.Text)
                iImage1 += 1
            Case 4
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox5.Text)
                iImage1 += 1
            Case 5
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox6.Text)
                iImage1 += 1
            Case 6
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox7.Text)
                iImage1 += 1
            Case 7
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox8.Text)
                iImage1 += 1
            Case 8
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox9.Text)
                iImage1 += 1
            Case 9
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox10.Text)
                iImage1 = 0
        End Select
    End Sub

End Class

modified 13-May-14 3:20am.

Re: save images as .gif

Chris Quinn12-May-14 20:56

Chris Quinn

12-May-14 20:56

You have already asked once - please don't repost

=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================

Re: save images as .gif

khei-chan00712-May-14 21:25

khei-chan007

12-May-14 21:25

on my previous post, i'm asking help for making .gif using different images in one picturebox. And to my latest post, i'm asking how can i save .gif(in picturebox) as .gif to mydocuments/computer. It's totally different although its related to ".gif"

Saving Image as Gif

I. Bandaranayake13-May-14 1:49

I. Bandaranayake

13-May-14 1:49

You could use the following code to save a GIF image in a Picture Box(PictureBox1)

PictureBox1.Image.Save(SpecialDirectories.MyDocuments + "\MyGif.gif", ImageFormat.Gif)

Note: Import the following

System.Drawing.Imaging
Microsoft.VisualBasic.FileIO

Re: save images as .gif

Richard MacCutchan12-May-14 22:47