Re: GetThumbnailImage with ListView - Visual Basic Discussion Boards

Brad Fackrell7-Jul-04 7:44

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

Re: GetThumbnailImage with ListView

Brad Fackrell8-Jul-04 11:37

Brad Fackrell

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

Re: GetThumbnailImage with ListView

beowulfagate8-Jul-04 13:24

beowulfagate

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.

Re: GetThumbnailImage with ListView

Brad Fackrell9-Jul-04 9:58

Brad Fackrell

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.

Re: GetThumbnailImage with ListView

beowulfagate9-Jul-04 14:08

beowulfagate

9-Jul-04 14:08

Uh Oh! Sorry. Try this.

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

Re: GetThumbnailImage with ListView

Brad Fackrell11-Jul-04 4:04

Brad Fackrell

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

Re: GetThumbnailImage with ListView

beowulfagate11-Jul-04 13:38

beowulfagate

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.

Re: GetThumbnailImage with ListView

Brad Fackrell12-Jul-04 4:42

Brad Fackrell

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

setting the track bar control

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

beowulfagate

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.

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

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

Brad Fackrell

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

beowulfagate

6-Jul-04 13:49

I suggest you use the Image Class provided by the .Net framework. It has a GetThumbnailImage method the you can use to display thumbnail images. Good Luck!

Two listboxes on same form appear linked?

drluggo6-Jul-04 3:20

drluggo

6-Jul-04 3:20

I have two listbox controls on the same form that I have populated using an arraylist created from an xml file. When I execute the form, the information appears in the list boxes as it should; however, when I make a selection in one of the list boxes, the selected value in the other changes.

Also, When I go to print out the selected values using:

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

Label3.Text = "Creating Test For " & ListBox1.SelectedValue _
& ":" & ListBox2.SelectedValue & ". Please Wait..."

Label3.Visible = True

End Sub

I get the selected value of the Listbox2 in both inserted places.

When I created these on the form I did not copy paste one from the other, I dragged two new listboxes onto the windows form.

Other things to note. I did populate the two listboxes using the same arraylist object after clearing it using:

xmlDoc.Load("../xml/BatchConfig.xml")
xmlNdList = xmlDoc.GetElementsByTagName("Unit")

For i = 0 To xmlNdList.Count - 1

arlAL.Add(xmlNdList.Item(i).Attributes("Id").Value)

Next

ListBox1.DataSource = arlAL

arlAL.Clear()

xmlNdList = xmlDoc.GetElementsByTagName("Phase")

For i = 0 To xmlNdList.Count - 1

arlAL.Add(xmlNdList.Item(i).Attributes("Id").Value)

Next

ListBox2.DataSource = arlAL

What gives?

Re: Two listboxes on same form appear linked?

Dave Kreskowiak6-Jul-04 4:24

Dave Kreskowiak

6-Jul-04 4:24

What you did was bind ListBox1 to a datasource, then you cleared out that datasource and entered new information into it. So, yes, both istBoxes will have the same information behind them. The information from a datasource is not copied into the listbox, it is BOUND.

The solution is to create to diferent arrays and bind them to their respective listboxes.

'I'm assuming you Dim'd an ArrayList as arlAL...
Dim arlAL1 As New ArrayList()
Dim arlAL2 As New ArrayList()
 
xmlDoc.Load("../xml/BatchConfig.xml")
xmlNdList = xmlDoc.GetElementsByTagName("Unit")
For i = 0 To xmlNdList.Count - 1
    arlAL1.Add(xmlNdList.Item(i).Attributes("Id").Value)
Next
ListBox1.DataSource = arlAL1
 
xmlNdList = xmlDoc.GetElementsByTagName("Phase")
For i = 0 To xmlNdList.Count - 1
    arlAL2.Add(xmlNdList.Item(i).Attributes("Id").Value)
Next
ListBox2.DataSource = arlAL2

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

Accessing parallel port by using VB.Net

marcus_gsh5-Jul-04 21:23

marcus_gsh

5-Jul-04 21:23

Please help me ! Can you show me the codes that allow one to access the parallel port both the read and write operations by using visual basic.net programming

Re: Accessing parallel port by using VB.Net

Dave Kreskowiak6-Jul-04 2:54

Dave Kreskowiak

6-Jul-04 2:54

You can't do it directly because the O/S abstracts the hardware from software. You need a cute little driver to do the work for you. See http://www.logix4u.net/[^] for a good start.

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

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