Next Inner - Visual Basic Discussion Boards

TheComputerMan2-Jan-09 6:22

2-Jan-09 6:22

I tried that Christian (using pict2 = pict.clone and then disposing pict) but still the same problem. It obviously carries the info accross to the clone.

Friend Function GetAvatar(ByVal ContactID As Integer) As Drawing.Bitmap
    Dim pict As Drawing.Bitmap
    Dim pict2 As Drawing.Bitmap
    'This just gets the file name
    Dim strFilename As String = cDBHandler.ExtractContactImage(ContactID)

    Try

        If strFilename.Trim > "" Then
            pict = Drawing.Bitmap.FromFile(strFilename)
            pict2 = pict.Clone()
            pict.Dispose()
        Else
            pict2 = My.Resources.nouserpic_grey
        End If

    Catch ex As Exception

        pict2 = My.Resources.nouserpic_grey

    End Try
    Return pict2
End Function

Looks like I might have to try storing the pic in the database, but I did not want to do that as it is only an SQL Server 2005 Compact so space limited.

Thanks anyway! (If you can think of any other way I would like to hear from you)

Re: File in use error

Luc Pattyn2-Jan-09 7:00

Luc Pattyn

2-Jan-09 7:00

TheComputerMan wrote:
pict2 = pict.Clone()

Christian is right, but you did not take his advise.

TheComputerMan wrote:
Bitmap.FromFile(strFilename)

This is what keeps your file locked. Hence make and use a copy of the IMAGE and dispose of the original right away.

TheComputerMan wrote:
any other way

No need. The one way is fine if executed properly.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

Love, happiness and fewer bugs for 2009!

Re: File in use error

Dave Kreskowiak2-Jan-09 6:21

Dave Kreskowiak

2-Jan-09 6:21

This has been widely documented since the early days of .NET 1.0. The problem is you loaded the image file directly into an Image object in the PictureBox control. The Image object keeps the file locked for it's entire lifetime.

The solution is to load the image using a FileStream, then pass the resulting stream to the construcotr of a new Bitmap object, then close the stream, and assign the Bitmap object to the Image property of the PictureBox.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: File in use error

TheComputerMan2-Jan-09 6:25

TheComputerMan

2-Jan-09 6:25

Thanks Dave. I think I know how to do that so I will give that a go.

Re: File in use error [modified]

TheComputerMan2-Jan-09 6:44

TheComputerMan

2-Jan-09 6:44

Thanks a million Dave. It worked a treat! Smile | :)

No need to reply to this. Just posting the code in case it helps someone else.

Friend Function GetAvatar(ByVal ContactID As Integer) As Drawing.Bitmap
    Dim pict As Drawing.Bitmap
    'This just gets the file name
    Dim strFilename As String = cDBHandler.ExtractContactImage(ContactID)

    Try

        If strFilename.Trim > "" Then
            Dim fs As New System.IO.FileStream(strFilename, IO.FileMode.Open, IO.FileAccess.Read)
            pict = Drawing.Bitmap.FromStream(fs)
            fs.Close()
        Else
            pict = My.Resources.nouserpic_grey
        End If

    Catch ex As Exception

        pict = My.Resources.nouserpic_grey

    End Try
    Return pict
End Function

Code above corrected: Smile | :)

Thanks Fabio

modified on Saturday, January 3, 2009 10:20 AM

Re: File in use error

Fabio V Silva2-Jan-09 11:53

Fabio V Silva

2-Jan-09 11:53

Why do you need picbyteArray variable?! You're not using it...

Re: File in use error

TheComputerMan3-Jan-09 4:20

TheComputerMan

3-Jan-09 4:20

Hi Fabio,

Thanks for that. I had pulled the code from another program where I am using it to store the picture in SQL Server and forgot to take that bit out! Duh!! Roll eyes | :rolleyes:

The corrected code block is:

Friend Function GetAvatar(ByVal ContactID As Integer) As Drawing.Bitmap
    Dim pict As Drawing.Bitmap
    'This just gets the file name
    Dim strFilename As String = cDBHandler.ExtractContactImage(ContactID)

    Try

        If strFilename.Trim > "" Then
            Dim fs As New System.IO.FileStream(strFilename, IO.FileMode.Open, IO.FileAccess.Read)
            pict = Drawing.Bitmap.FromStream(fs)
            fs.Close()
        Else
            pict = My.Resources.nouserpic_grey
        End If

    Catch ex As Exception

        pict = My.Resources.nouserpic_grey

    End Try
    Return pict
End Function

Sorry if that caused any confusion to anyone.

Next Inner

dadashri2-Jan-09 1:44

dadashri

2-Jan-09 1:44

have a form that adds a new date to a sql database. What i want to do is when the user clicks add a new day, it comes up with a text box to add a new day. When the user tabs to the first feild, i want the lost focus to check the combo box to see if the date is already in the list?
Private Sub txtFields_LostFocus(Index As Integer)
Dim ifeild As Integer
Dim flddate As String
flddate = frmCashSheet.cmbDate.Text
ifeild = Index
If ifeild = 0 Then
frmCashSheet.txtFields.Item(0).Text = flddate
MsgBox "date has been entered already, Please select a new date"
frmCashSheet.txtFields(0).SetFocus
Else
For Inner = 0 To 32
txtFields(ifeild).BackColor = &HFF&
Next Inner
calculate
End If
End Sub

Re: Next Inner

TheComputerMan2-Jan-09 5:10

TheComputerMan

2-Jan-09 5:10

<quote>Private Sub txtFields_LostFocus(Index As Integer)

This does not appear to be called from anywhere by a handler and has the wrong parameters.

Private Sub txtFields_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFields.LostFocus

Index would have to come from reading something but I am not sure what from this example.

Re: Next Inner

Dave Kreskowiak2-Jan-09 6:14

Dave Kreskowiak

2-Jan-09 6:14

It is correct is he's using VB6.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: Next Inner

TheComputerMan2-Jan-09 6:47

TheComputerMan

2-Jan-09 6:47

Oops! Sorry did not twig that.

Re: Next Inner

Dave Kreskowiak2-Jan-09 6:15

Dave Kreskowiak

2-Jan-09 6:15

So, where's the code that goes through each item in the ComboBox items and compares the two??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

School Library System Software RUN-TIME error 713

dadashri2-Jan-09 1:36

dadashri

2-Jan-09 1:36

School Library System Software RUN-TIME error 713
plas soly
pranav trivedi

Re: School Library System Software RUN-TIME error 713

Dave Kreskowiak2-Jan-09 3:42

Dave Kreskowiak

2-Jan-09 3:42

Try Googling the error message[^].

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: School Library System Software RUN-TIME error 713

Christian Graus2-Jan-09 5:47

Christian Graus

2-Jan-09 5:47

Wow - are you even remotely a programmer, or is this an error from software you use and you're asking about it in a programming forum ?

Christian Graus

Driven to the arms of OSX by Vista.

Add two mp3 files into one mp3 file.

Gagan.202-Jan-09 0:21

Gagan.20

2-Jan-09 0:21

Hi all...

I am creating a program in which is used to play two songs at the same time.
I have imported Interop.WmpLib.dll file and created two objects to play two songs simultaneously.
I want to mix and record these two songs so that when I will play recorded file, it will play songs of both files as played in DJs.
Suggest me,how can I mix and record these two mp3 files in one mp3 file.

Thanks.

Gagan

Re: Add two mp3 files into one mp3 file.

Dave Kreskowiak2-Jan-09 3:44

Dave Kreskowiak

2-Jan-09 3:44

Your going to need an audio processing library to do this. Try Googling for "mp3 processing library .net".

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: Add two mp3 files into one mp3 file.

LloydA1112-Jan-09 5:27

LloydA111

2-Jan-09 5:27

For editing MP3 files you will need a DLL, LAME32.DLL is a good place to start, the open source Audio editor called Audacity also uses this DLL.

Lloyd J. Atkinson

Issue with : Setting system time

nishkarsh_k1-Jan-09 22:30

nishkarsh_k

1-Jan-09 22:30

Hello every one

I am working on a application in which I have to change the system time. After googleing for some time I found some help and did the code as written billow.

It is just a test code in which I am adding 2 hours in the current time. The code is working but it dose not just add 2 hours but some thing around 5 hours.

I tried debugging it but was not able to know what is wrong. I even tried without adding 2 hours strill the time changes by around 5 hours

Any idea what wrong I am doing?

<dllimport("kernel32.dll",> Public Shared Function SetSystemTime(ByRef theDateTime As SYSTEMTIME) As Boolean
    End Function

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

        Dim st As SYSTEMTIME
        'Dim st As SYSTEMTIME
        st.wYear = Now.Year
        st.wMonth = Now.Month
        st.wDayOfWeek = Now.DayOfWeek
        st.wDay = Now.Day
        st.wHour = Now.Hour +2
        st.wMinute = Now.Minute
        st.wSecond = Now.Second
        st.wMilliseconds = Now.Millisecond

        'newDateTime = st

        If SetSystemTime(st) Then
            'cool, we set it successfully
        End If

    End Sub

Regards
Nishkarsh

Re: Issue with : Setting system time

Dave Kreskowiak2-Jan-09 3:52

Dave Kreskowiak

2-Jan-09 3:52

How about getting the system time first, then adding 2 to the value that's there, instead of populating the entire structure.

But, the major problem is that you're Trying to assign a Singed 32 bit Integer to an Unsigned 16 bit wide field. The value overflows and you get weird results like this. Try something like:

st.wHour = Convert.ToUInt16(Now.Hour + 2)

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Listview labelwrap?

Prasadsm1-Jan-09 21:15

Prasadsm

1-Jan-09 21:15

Hi All,

i need to wrap the listview item. That is the part of label text of listview item should appear in next line.
I have set the listview property to smallicon.even i have tried by setting listview.labelwrap = true. But i coudn't get,Please guide me to sort out to this problem.

Thanks in advance.

Re: Listview labelwrap?

Dave Kreskowiak2-Jan-09 3:39

Dave Kreskowiak

2-Jan-09 3:39

It's not supported by the standard control. You'd have to use either a third party control or write your own version, supplying all the appropriate painting code to do so.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: Listview labelwrap?

Prasadsm2-Jan-09 22:57

Prasadsm

2-Jan-09 22:57

Thanks Dave.

Capture Screen

Pasan1481-Jan-09 21:03

Pasan148

1-Jan-09 21:03

How to write the codes for capture entire area or part of the screen with VB.NET.

Re: Capture Screen

Nanda_MR1-Jan-09 23:06

Nanda_MR

1-Jan-09 23:06

SendKeys.Send("{PRTSC}")
Pic1.Image = Clipboard.GetImage

Use a Picture Box Pic1.

This is capture your current screen.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.