Visual Basic

ARW Thumbnails with VB.Net

12-Jun-09 3:31

Your going to have to expain what you're doing with this a bit more. Are you saying you want to iterate through the items in a combo on the client-side?? Or are you retrieving a web page in your VB.NET code and trying to get at the combo box in the HTML you get back??

A guide to posting questions on CodeProject[^]

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

Easy_Rider999911-Jun-09 9:40

Easy_Rider9999

11-Jun-09 9:40

How can I get ARW Thumbnails with VB.Net. Windows Explorer can! So there should be a solution......

Regards

Hans

Re: ARW Thumbnails with VB.Net

Dave Kreskowiak12-Jun-09 3:33

VB6 to .net upgrade issue [modified]

12-Jun-09 3:33

I assume you're talking about the Sony RAW image format. The software you install for the Sony camera installs a componet that is registered with Explorer to generate the thumbnail images. Explorer actually doesn't generate the images at all. It just calls various components that register themselves with Explorer so Explorer knows which one to call to have a thumbnail generated.

No, I don't know what that component is called or how to get at it.

A guide to posting questions on CodeProject[^]

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

No-e11-Jun-09 7:49

No-e

11-Jun-09 7:49

Working on converting an application from VB6 to .net.

After conversion I got the following error:

A custom wrapper for this COM component has been installed on your machine after you added this reference. This wrapper may provide additional cpabilities not offered by the auto-generated wrapper currently in use

it asked if I wanted to update it so I did, now I get several errors
'MSComctlib.Button' add one to you project.

I am not sure exactly what this is telling me to do...

Help!

[edit] never mind. Figured out what happened... boy this is fun....

modified on Thursday, June 11, 2009 2:23 PM

Re: VB6 to .net upgrade issue

Dave Kreskowiak11-Jun-09 9:10

Re: VB6 to .net upgrade issue

11-Jun-09 9:10

Yeah, VB6 and VB.NET are so vastly different as to pretty much require you to scrap your VB^ project and rewrite it from scratch. At least that's what I recommend doing.

The conversion wizard was not meant to convert VB6 to VB.NET and leave the resulting code in place and treated as the prodiction app. It was meant to convert your project to the point where you can start to rewrite the app piece-by-piece, releasing incemental version, without having to rewrite the entire app all at once.

A guide to posting questions on CodeProject[^]

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

No-e11-Jun-09 10:50

No-e

11-Jun-09 10:50

that is what I am finding. For the most part it is not too bad. The biggies I have to change are my use of control arrays (what a pain), the popup menu's (after the control arrays) and a bunch of work with a printer which you can't do in .net. like you could in 6

I would say that is probably 90% clean convert other than that, probably because I tried to follow good practices when I wrote it originally (10+ years ago)... at least I would like to think so... Big Grin | :-D

Mike

Filtering the results of GetDirectories?

Sonhospa11-Jun-09 7:32

Re: Filtering the results of GetDirectories?

11-Jun-09 7:32

Hello Champs,

I hope you're laughing at my question and have plenty of solutions right on your fingertips Wink | ;)

What might be important to know is that I'm using the German Version of Vista.

In my application, the line

Dim drv as DriveInfo
For Each di As DirectoryInfo In drv.RootDirectory.GetDirectories("*", SearchOption.TopDirectoryOnly)
    ...(code)
Next

returns an array of subdirectories (just as it's supposed to Wink | ;)

), which obviously contains

a) all the hidden directories
b) several directories with their English AND their German names (i.a. "Programme" AND "Program Files")

In the end I have 18 directories counted instead of 12 which I can see in the explorer. Filtering them by names in the GetDirectories filter option doesn't make a lot of sense, right?

But how can I restrict my array to the directories which are visible in the Explorer Confused | :confused:

Thanks for helping Rose | [Rose]

,
Michael

Luc Pattyn11-Jun-09 9:00

Luc Pattyn

11-Jun-09 9:00

Hi,

I don't think there is any support for mimicking Explorer; anyway, the number of files/folder shown by Explorer depends on several settings.

FWIW: starting .NET 4.0 there are new directory methods that enumerate files/folders one by one rather than building an array first.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.

Re: Filtering the results of GetDirectories?

Sonhospa11-Jun-09 10:10

VBA (Bar chart error: String too long)

11-Jun-09 10:10

Thanks, Luc. Unfortunately the app is supposed to run under W2K, so I'm afraid I have to limit my expectations regarding .NET4.0 Frown | :(

But I found a workaround (posted here for others):

Dim drv as DriveInfo
For Each di As DirectoryInfo In drv.RootDirectory.GetDirectories("*", SearchOption.TopDirectoryOnly)
    If Not di.Attributes And FileAttributes.Hidden Then
        ...(code)
    End If
Next

As a result I have the right count and no recycle-bin (i.e. the other unwanted stuff). The only thing still bothering is that I have the Englisch folder names for "Users" (instead of "Benutzer") and "Program Files" (instead of "Programme"). If anyone has an idea how to solve that - maybe it has to do with the 'cultures' in VS, which I didn't explore yet - I'd appreciate. But since it's not really important (even most of the users know some English Wink | ;)

) and only relevant for the root drive, I might just skip the issue as well Cool | :cool:

jainga1021311-Jun-09 6:57

jainga10213

11-Jun-09 6:57

I want to plot a number of different cells from a sheet in to a bar chart. The cells may lie anywhere in the sheet (not necessarily in one row or column).
I have an array that stores the address of these cells.

This is what I am doing to plot the bar chart in VBA

Firstly, I make a string of the cell addresses (for eg DataSheet!$B$4, DataSheet!$B$3, DataSheet!$E$7, DataSheet!$G$11, DataSheet!$J$1)

Then pass this string to the chart for plotting

ActiveChart.SeriesCollection.Add Source:=Range(Str)

This works fine till the number of data points are less. But when the datapoints are large, the string grows bigger in size and the above plot function fails.

Is there nay other way I can accomplish this?

Thanks,
GJ

Luc Pattyn11-Jun-09 7:36

Luc Pattyn

11-Jun-09 7:36

Hi,

I trust there are other ways, I am not familiar with them though.
Here is what you could do right away:
- drop the dollar signs
- drop the spaces
- rename the sheet to something that is much shorter.

DataSheet!$B$4, DataSheet!$B$3, DataSheet!$E$7, DataSheet!$G$11, DataSheet!$J$1
X!B4,X!B3,X!E7,X!G11,X!J1

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.

Sonhospa11-Jun-09 8:17

11-Jun-09 8:17

Hi GJ,

I'm not quite sure if I exactly understood what you're doing, but it seems to me as if you're doubling up unnecessarily and just make the string longer and longer. Maybe you wanna try adding your cells as single elements in a loop, like

For i = 1 to x '(= Number of Series)
ActiveChart.SeriesCollection.Add Source:=Range("DataSheet!$B$4")
ActiveChart.SeriesCollection.Add Source:=Range("DataSheet!$B$3")
....
Next

If you really add each cell manually, this is a big challenge anyway.
Hope it helps,

Mick

jainga1021311-Jun-09 8:28

jainga10213

11-Jun-09 8:28

Thanks Mick for you reply. But wouldn't this create a lot of data series (one for each point)? I want all the points to be in one data series.

Thanks,
GJ

Sonhospa11-Jun-09 9:48

11-Jun-09 9:48

IC. You would then pass an array of strings to the values collection, e.g.

ActiveChart.SeriesCollection(index).Values = Array(Range("Sheet1!$A$29"), Range("Sheet1!$B$33"), Range("Sheet1!$C$35"), Range("Sheet1!$C$30"))

But this you only need if your Ranges are spread over your sheet.
If you follow Daves advice and order them blockwise (in a hidden sheet), you can simply add the resulting (ordered) range like e.g.

ActiveChart.SeriesCollection.Add Source:=Range(Worksheets("Sheet1").Range("C5:T5"))

Dave Kreskowiak11-Jun-09 9:07

is possible GET data from web page

11-Jun-09 9:07

Write up some code to copy the values to a hidden sheet, in a nice ordered fashion, then supply that hidden range of values to the chart.

A guide to posting questions on CodeProject[^]

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

sal2111-Jun-09 5:08

sal21

11-Jun-09 5:08

I use ie object to navigate in html page.
Now in the a page of site here is a table with a button...
When the user cklick on button the table is filled with a new data.

I think... the Button clcik send a notice to a Data Server where are stored the recordset(?!) and retrive a string with data to insert in table...

My question and dubt are:

Is possible to intercept the string of data before the code insert into table?
Is possible to intercept the source of data?

the page of site are all in ASP.

Tks.

Re: is possible GET data from web page

Colin Angus Mackay11-Jun-09 5:50

Colin Angus Mackay

11-Jun-09 5:50

sal21 wrote:
Is possible to intercept the string of data before the code insert into table?

It might be possible with something like greaseMonkey.

sal21 wrote:
Is possible to intercept the source of data?

I don't understand what you mean by that.

Man who stand on hill with mouth open wait long time for roast duck to drop in

VB6 sendkey is not working under window vista

Member 367682211-Jun-09 1:38

Member 3676822

11-Jun-09 1:38

Dear All,

I develop a software for courier management system. It work find under window XP. My client install window vista. All Software run fine but sendkeys shows error.

Kindly Help me in this regard. My email address is redguysharma@yahoo.com.

Thank You,

RedGuy

Re: VB6 sendkey is not working under window vista

Henry Minute11-Jun-09 2:10

Henry Minute

11-Jun-09 2:10

Member 3676822 wrote:
All Software run fine but sendkeys shows error.

What error?

BTW it is a very bad idea to publish your email address on a public forum. You are inviting spam-bots.

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

Re: VB6 sendkey is not working under window vista

Nagy Vilmos11-Jun-09 2:54

Nagy Vilmos

11-Jun-09 2:54

VB6 and Vista is like smoked liver and ice cream. The combination could work but no-one would ever suggest trying it.

Panic, Chaos, Destruction.
My work here is done.

Re: VB6 sendkey is not working under window vista

Dave Kreskowiak11-Jun-09 3:40

dynamic call of a function

11-Jun-09 3:40

SendKeys is notoriously unreliable to use. I would not be using it in a production application.

Either way, IIRC, the problem only showed up on the Beta versions of Vista. Well, that's the last time I heard of the problem anyway.

You can find a piece of code to replace the SendKeys call here[^].

A guide to posting questions on CodeProject[^]

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

mehrdadc4811-Jun-09 1:22

mehrdadc48

11-Jun-09 1:22

Hi, I'm using Linq To SQL.
I've run this code :
Dim TmpDto = CallByName(TmpSrv, hfSelectedNode.Value, CallType.Get)
that returns a System.Data.Linq.Table(Of [A DB Table])
I need to filter this table with 'Where', the extension method, and when I used callByName, it said "The public method Where was not found"
As you has undrestood, I don't know table name in compile time, so I need to call it runtime.
How can I do it?

Best wishes

Re: dynamic call of a function

Dave Kreskowiak11-Jun-09 3:33