Visual Basic Discussion Boards

Re: Retrieve last ID from SQl server

TheComputerMan3-Jan-09 4:49

TheComputerMan

3-Jan-09 4:49

Um, just a thought. Try

Dim ID As Int32

...instead of Integer

Might work

Lost Feature in VB

udatl2-Jan-09 10:57

udatl

2-Jan-09 10:57

I know I should know this, but I can't seem to remember. In Visual Basic, .Net, etc., how do you turn on/off the feature that gives you a list of available functions, methods, attributes, etc. within the text editor where you write your code? For instance, I have a text box named “txtPhoneNum”. When I type “txtPhoneNum.”, right after typing “.”, a list of valid, available items like “enabled”, “selected”, “value”, etc. are displayed where I can select what I want if this feature is on. I don’t know how this feature was turned off, but it would be a great help to get it turned back on. Thanks in advance for assistance.

Re: Lost Feature in VB

Fabio V Silva2-Jan-09 12:04

Fabio V Silva

2-Jan-09 12:04

Go to 'Tools' then 'Options' and in 'Text Editor' select your language,
or 'All Languages', and turn on the 'Auto list members' option.

Re: Lost Feature in VB

udatl2-Jan-09 16:25

udatl

2-Jan-09 16:25

Thanks for your reply. I tried what you wrote and it still doesn't work.

Re: Lost Feature in VB

TheComputerMan3-Jan-09 4:28

TheComputerMan

3-Jan-09 4:28

See if anything here helps.

http://msdn.microsoft.com/en-us/library/hcw1s69b.aspx[^]

Want to add a comboboxcolumn runtime and pass value to the comboboxcolumn runtime

Nattumakkan2-Jan-09 5:37

Nattumakkan

2-Jan-09 5:37

Hi,

I'm using datagridview in C# windows application and i have four datagridtextboxcolumn at designtime and my fifth column is datagridcomboboxcolumn which is added at run time. I want to pass some value ( number) as input to combo at run time, so that values in the combo are different for each row in the grid. I want to pass some number to the fifth combobox column so that combobox populates different values for each row in the grid. This is my scenario, can anyone help me with this with detailed explanation and C# code.

Re: Want to add a comboboxcolumn runtime and pass value to the comboboxcolumn runtime

TheComputerMan2-Jan-09 6:46

TheComputerMan

2-Jan-09 6:46

You might want to try the C# forum? You will probably get a more pertinent explanation than in this (VB) forum.

Re: Want to add a comboboxcolumn runtime and pass value to the comboboxcolumn runtime

dan!sh 2-Jan-09 8:26

dan!sh

2-Jan-09 8:26

1. Wrong forum
2. You can bind the column and set the value member as desired.

The word "politics" describes the process so well: "Poli" in Latin meaning "many" and "tics" meaning "bloodsucking creatures."

File in use error

TheComputerMan2-Jan-09 5:04

TheComputerMan

2-Jan-09 5:04

This is the code that calls the form where the file is displayed in a picture box.

<br />
frmCEA.ContactID = intContactID<br />
frmCEA.Text = "Edit a contact"<br />
frmCEA.ShowDialog()<br />
strAvatarToDelete = frmCEA.AvatarForDeletion<br />
frmCEA.Close()<br />
frmCEA.Dispose()<br />
<br />
If strAvatarToDelete.Trim > "" Then<br />
    My.Computer.FileSystem.DeleteFile(strAvatarToDelete)<br />
End If<br />

I have tried on the form, and off the form like this, to delete an avatar but every time I get this message - even if I want to change photos.

The process cannot access the file 'C:\Documents and Settings\All Users\Application Data\.....\Avatars\AV000001' because it is being used by another process.

Any out there know why this might be?? Confused | :confused:

Re: File in use error

Jon_Boy2-Jan-09 5:11

Jon_Boy

2-Jan-09 5:11

Are there any other methods in your app using the file? If so, you need to cleanly end those resources so that the file is unlocked.

make sure the file is not readonly. Make sure you don't have other apps using the file.

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Re: File in use error

TheComputerMan2-Jan-09 5:21

TheComputerMan

2-Jan-09 5:21

Thanks for responding.

No nothing else is using the file. It just gets placed in the picture box:

Try
    Me.PictureBox1.BackgroundImage = GetAvatar(ContactID)
    Me.cmdDeleteImage.Enabled = True
Catch ex As Exception
    Me.cmdDeleteImage.Enabled = False
End Try

Where GetAvatar =

Friend Function GetAvatar(ByVal ContactID As Integer) As Drawing.Image
    Dim pict As Drawing.Image
    'This just collects a file name
    Dim strFilename As String = cDBHandler.ExtractContactImage(ContactID)

    Try

        If strFilename.Trim > "" Then
            pict = Drawing.Image.FromFile(strFileName)
        Else
            pict = My.Resources.nouserpic_grey
        End If

    Catch ex As Exception

        pict = My.Resources.nouserpic_grey

    End Try
    Return pict
End Function

Might it be because it ic alled in from another routine?? Confused | :confused:

Re: File in use error

Jon_Boy2-Jan-09 5:30

Jon_Boy

2-Jan-09 5:30

Well, if you rem out the logic in GetAvatar and loading it into the picture box, can you delete the file? Smile | :)

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Re: File in use error

TheComputerMan2-Jan-09 6:24

TheComputerMan

2-Jan-09 6:24

Thanks for the suggestion Jon_Boy but unfortunately that would impact my code. I will give it a go if all else fails however.

Re: File in use error

Jon_Boy2-Jan-09 7:04

Jon_Boy

2-Jan-09 7:04

Wasn't suggesting that as a perm. fix - just as a way for you now and in the future easily determine if and where your code was locking a file.

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Re: File in use error

Christian Graus2-Jan-09 5:45

Christian Graus

2-Jan-09 5:45

TheComputerMan wrote:
pict = Drawing.Image.FromFile(strFileName)

This locks the file. You need instead to create a new bitmap. open the file, copy the bitmap, and delete the original. At least, that's how I've got around this bug in GDI+ in the past.

Christian Graus

Driven to the arms of OSX by Vista.

Re: File in use error

TheComputerMan2-Jan-09 6:22

TheComputerMan

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

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