How to update a ComboBox when I save an image using CommonDialog Save As?

>>>1) When this image is saved, I need the cboHistory to be updated with the file name >>>of the image that I have just saved. Is it possible?

Yeah. It's possible.

>>2) And whenever I clicked on the file name in the cboHistory, the picture will be >>loaded like a normal Load dialog box, displaying the image on the image control.

Check it out..

Private Sub cboHistory_Click()
Picture1.Picture = LoadPicture(cboHistory.Text)
End Sub
Private Sub cmdSave_Click()
With dlgCommonDialog
.ShowSave
If Trim(.FileName) <> "" Then
cboHistory.AddItem .FileName
Picture1.Picture = LoadPicture(.FileName)
End If
End With
End Sub

Hi Guys,

I hope somebody can help me with this...thanks a million...i really need it urgently...

Regards,
Justin

Hi Ben,

Thank you for your help..I notice that if i were to continue adding the items into the combobox, the list will just go on and on...even if i open the same file again, it will still add it into the combobox...

Is there any way whereby i can limit the number of files in the History combobox? also, how is it possible to check that if that file has been opened before so that i can load the latest one into the combobox instead of having mutiple entries of the same file...

Thanks for your help once again...

Justin

Here 's the code the check if the filetitle already exists. 1 remark, you want to overwrite the old one? How can you do that if the fileTitle is the same, the path is nowhere stored.

Dim intIndex As Integer
With dlgCommonDialog
.ShowSave
If Trim(.Filename) <> "" Then
Do While intIndex < cboHistory.ListCount
cboHistory.ListIndex = intIndex
If cboHistory.Text = .FileTitle Then
MsgBox "File already exists in the box"
Exit Sub
End If
intIndex = intIndex + 1
Loop
cboHistory.AddItem .FileTitle
Picture1.Picture = LoadPicture(.Filename)
End If
End With

Hi,

that's the method you can use. (I use it)
Give it a try and let me know how it goes.

Hi Justin,

first of all nice work. ;)

If I see the code I've 1 remark to start with, are you sure the file opens when clicking the cboHistorybox? The problem is here:

'Adding filename to table
strTempFileName(iLimit) = .FileTitle
'Adding filename to box
cboHistory.AddItem strTempFileName(iLimit)
You have to store the path in the table and the name in the box:

strTempFileName(iLimit) = .FileName
cboHistory.AddItem .FileTitle

Here is also a simplified version of your code:

Static strTempFileName(0 To 20) As String 'array to store filename temp
Static iLimit As Integer 'to indicate the max number of files

With dlgCommonDialog1
.ShowSave
'To update History for the first 3 images saved
'Max of 3 entries in History
If iLimit = 3 And Trim(.FileTitle) <> "" Then
cboHistory.RemoveItem 0 'remove the 1st item in History
End If

If Trim(.FileTitle) <> "" Then
strTempFileName(iLimit) = .FileName
cboHistory.AddItem .FileTitle
iLimit = iLimit + 1
Exit Sub
End If
End With

The problem of 2 history-boxes we can solve with two arrays or a multidimensional array. I'll post back to you when I have a small example.

If you want to execute a file (eg: *.doc), you have to store the path of each file.

Here is coding~

Option Explicit
''Constant
Const intNoOfAllowListItems = 3

''API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim strHistoryPath(1 To intNoOfAllowListItems) As String
Private Sub cboHistory_Click()
If cboHistory.ListCount > 0 Then
DoEvents
''Normal Shell function is not working here. ''Err: Invalid procedure call or argument
''Call Shell("D:\phone.txt", vbNormalFocus) ''strHistoryPath(cboHistory.ListIndex)
Call Shell(strHistoryPath(cboHistory.ListIndex + 1)) ''
End If
End Sub
Private Sub cmdSave_Click()
With dlgCommonDialog1
.ShowSave

Dim intIndex As Integer
''Checking existing items
Do While intIndex < cboHistory.ListCount
If cboHistory.List(intIndex) = .FileTitle Then
Exit Sub
End If
intIndex = intIndex + 1
Loop

If cboHistory.ListCount >= intNoOfAllowListItems Then _
cboHistory.RemoveItem 0 'remove the 1st item in History

cboHistory.AddItem .FileTitle

Dim str As String
Dim strLastString As String
strLastString = ""
Dim i As Integer
For i = intNoOfAllowListItems To 1 Step -1
If i > 1 Then
strHistoryPath(i) = strHistoryPath(i - 1)
Else
strHistoryPath(i) = .FileName
End If
Next
End With
End Sub
'#############################################################
'# This code was written by Emmett Dixson (c)1999.
' Ref : Alternative to VB's Shell Function
' http://freevbcode.com/ShowCode.asp?ID=264
'#############################################################
Function Shell(Program As String, Optional ShowCmd As Long = _
vbNormalNoFocus, Optional ByVal WorkDir As Variant) As Long

Dim FirstSpace As Integer, Slash As Integer

If Left(Program, 1) = """" Then
FirstSpace = InStr(2, Program, """")

If FirstSpace <> 0 Then
Program = Mid(Program, 2, FirstSpace - 2) & _
Mid(Program, FirstSpace + 1)
FirstSpace = FirstSpace - 1
End If

Else
FirstSpace = InStr(Program, " ")
End If

If FirstSpace = 0 Then FirstSpace = Len(Program) + 1

If IsMissing(WorkDir) Then

For Slash = FirstSpace - 1 To 1 Step -1
If Mid(Program, Slash, 1) = "\" Then Exit For
Next

If Slash = 0 Then
WorkDir = CurDir
ElseIf Slash = 1 Or Mid(Program, Slash - 1, 1) = ":" Then
WorkDir = Left(Program, Slash)
Else
WorkDir = Left(Program, Slash - 1)
End If

End If

Shell = ShellExecute(0, vbNullString, _
Left(Program, FirstSpace - 1), LTrim(Mid(Program, _
FirstSpace)), WorkDir, ShowCmd)
If Shell < 32 Then VBA.Shell Program, ShowCmd 'To raise Error
End Function


I'm not sure I get you for two combo boxes.
Why do you want to use?

Yes that's clear enough I think. So actually you can use all the code applied to 1 combobox also for the other(only other variables).