Visual Basic

7-Jul-04 7:44

Okay. Now I’m making some progress. Thanks, beowulfagate, for suggesting the GetThumbnailImage method.

Can anybody tell me how to use the GetThumbnailImage method to fill a ListView?

Here is what I have:

lstPhotos.BeginUpdate()<br />
            lstPhotos.Items.Clear()<br />
            Dim strFiles() As String<br />
            Dim x As Integer<br />
            strFiles = Directory.GetFiles(formLibrary.componentPath)<br />
            For x = 0 To strFiles.Length - 1<br />
                Dim objListViewItem As New ListViewItem<br />
                Dim imageThumb As Image<br />
                With objListViewItem<br />
                    .Text = Path.GetFileName(strFiles(x))<br />
                    .SubItems.Add(Format(FileLen((strFiles(x))), "###,###,###,###"))<br />
                    .SubItems.Add(CStr(File.GetLastWriteTime(strFiles(x))))<br />
                End With<br />
                lstPhotos.Items.Add(objListViewItem)<br />
<br />
            Next x<br />
            lstPhotos.EndUpdate()

This lists the contents of the formLibrary.componentPath folder but I can't see how to use GetThumbnailImage to display the images as thumbnails in lstPhotos.

Thanks.
Brad

Brad Fackrell8-Jul-04 11:37

8-Jul-04 11:37

...I'm waayyy off aren't I? Unsure | :~

The more I dig, the more I realize that I have no idea what I'm doing. Confused | :confused:

I wonder if I should try to use the StateImageList property?

Can anybody help?

Brad

beowulfagate8-Jul-04 13:24

8-Jul-04 13:24

try this:

<br />
dim imagethumb as image<br />
imagethumb.fromfile=path.getfilename(strFiles(x))<br />
dim index as integer=lstphotos.largeimagelist.images.add(imagethumb.getThumbNailImage)<br />
lstphotos.items.add(path.getfilename(strFiles(x),index)<br />

Note: the listview should be in the LargeIcons Style to use the LargeImageList. Use the SmallIcons to use the SmallImageList.

Brad Fackrell9-Jul-04 9:58

9-Jul-04 9:58

I can’t get imagethumb.fromfile to work. It says: Overload resolution failed because no accessible ‘FromFile’ accepts this number of arguments.

At first I thought that this might be because strFiles is and array but that didn’t seem to be causing the problem.

beowulfagate9-Jul-04 14:08

9-Jul-04 14:08

Uh Oh! Sorry. Try this.

<br />
Imagethumb.fromfile(path.getfilename(strFiles(x))<br />

Brad Fackrell11-Jul-04 4:04

11-Jul-04 4:04

That did the trick. Thanks!

Now the Index variable is giving me a fit.

Dim index As Integer = lstPhotos.LargeImageList.Images.Add(imagethumb.GetThumbnailImage)

Should index be declared as something other than an Integer since an image is being assigned to it? Is so, do you know what it would be?

Thanks
Brad

beowulfagate11-Jul-04 13:38

11-Jul-04 13:38

No, it is not an image being assigned to it. It is the index of the image we just added to the imagelist. We need this index to know what index goes with what item. The add method of the ImageCollection Class is declared as:

<br />
public sub overloads Add(icon)<br />
public sub overloads Add(Image) 'We are using this<br />
public function overloads Add(Image,Color) as integer 'When we should be using this<br />

Just add a color parameter to the Add method and it should work fine. Look it up in the MSDN Library.

Brad Fackrell12-Jul-04 4:42

setting the track bar control

12-Jul-04 4:42

Thanks.

I think I'm on track now. Smile | :)

Brad

VB-6 Menus

N4LXL7-Jul-04 3:06

N4LXL

7-Jul-04 3:06

Trying to find some basic programming help = adding icons to menus and changing the background color of menus. Have seen this done but can't find any examples.
Found one reference on this site "Adding Icons to Menus" by Willian.BR but apparantly it is a broken link.
Any suggestions or help appreciated!
billp@awalnet.net.sa
Eek! | :eek:

Re: VB-6 Menus

Dave Kreskowiak7-Jul-04 5:27

Dave Kreskowiak

7-Jul-04 5:27

It can be done, but not within VB6 code. See the following articles and projects for helper .DLL's that will do what you want, especially the first one.
Yahoo Search Results[^]

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Prowess6-Jul-04 23:29

Prowess

6-Jul-04 23:29

hi i have tried to add a track bar control to my project, in vb.net, using the code provided by the msdn, however, it doesnt seem to work, it is not accepting the values nor is it saving them back to the xml file
any ideas?

Re: setting the track bar control

hpAng6-Jul-04 23:49

hpAng

6-Jul-04 23:49

if you are using the application.config.xml with the property, it wont write to the file. It will only read from the file when you load the application. You can manually change the XML file for it to change the value.

Hope it help.

anghp@yahoo.com
Feel free to email or yahoo messenger.

Re: setting the track bar control

Prowess7-Jul-04 0:23

Prowess

7-Jul-04 0:23

actually i am using the writeXml after each addition, and the problem is i want the user to make the changes.
this is not working with the add/delete buttons as well... as i can view the temporary changes however it is not changing the actual xml file

Adding User-Controlled Sound to Visual Basic .NET

6-Jul-04 20:58

Okay, I was thinking about making a kind of media player in Visual Basic .NET that I could call my own...but the problem was I don't know how to insert a control that let a user control the sound! I would be able to in VB6 maybe, but .NET isn't the same. Could someone pleeeeeease help?

Re: Adding User-Controlled Sound to Visual Basic .NET

hpAng6-Jul-04 21:33

hpAng

6-Jul-04 21:33

If you want to insert a control (activeX perhaps), right click at the toolbar, select add/remove items then select comp object.

Hope that is what you want.

anghp@yahoo.com
feel free to email or yahoo messenger.

Re: Adding User-Controlled Sound to Visual Basic .NET

hpAng6-Jul-04 23:11

hpAng

6-Jul-04 23:11

This is the code, just paste it into a form with 1 command button.

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim media As OpenFileDialog = New OpenFileDialog
media.RestoreDirectory = True
If media.ShowDialog = DialogResult.OK Then
Dim waveFile As String = media.FileName
Dim extension As String = System.IO.Path.GetExtension(waveFile)
If (extension.ToLower() = ".wav") Then
PlaySound(waveFile, 0, &H8)
End If
End If
End Sub

hope that help.

anghp@yahoo.com
Feel free to email or yahoo messenger.

query interface in VB??.....

kunja_chan6-Jul-04 11:15

kunja_chan

6-Jul-04 11:15

Guyz,

I remember working with C++ COM, I could use QueryInterface to find whether an interface is supported in a component. Is there a similar mechanism in VB too? If not what would be a best way to do.

Eek! | :eek:

Thnx!

Re: query interface in VB??.....

beowulfagate6-Jul-04 13:52

Re: query interface in VB??.....

6-Jul-04 13:52

You could use the "IF TYPEOF objectname IS objecttype" statement in VB.NET to determine if a component supports a given interface.

The Man from U.N.C.L.E.19-Jul-04 7:29

The Man from U.N.C.L.E.

19-Jul-04 7:29

A better method (object orientated etc.) would be to use IsInstanceOf e.g. to find out if MyObject implements the interface IMyInterface use the following code.

GetType(IMyInterface).IsInstanceOfType(MyObject)

Display Images

Brad Fackrell6-Jul-04 8:43

6-Jul-04 8:43

Can anybody suggest a good way to display images in a directory? I would like to be able to display a small (thumbnail) view of the image and then click on the image to open it up in a PictureBox.

I’ve been trying to create a ‘Windows Explorer’ type setup where images in the directory that is open in a TreeView would be displayed as thumb nails. Since I’ve had no luck with that, I’m trying to re-group and find a different way to display the images.

Thanks
Brad

Re: Display Images

beowulfagate6-Jul-04 13:49