Visual Basic

saving icon to hard drive

3-Sep-03 17:27

The short answer is you can't! The long answer is to write your own MsgBox function.

RageInTheMachine9532

MAJOR PROJECT

IT_student30-Aug-03 0:29

IT_student

30-Aug-03 0:29

i want suggestions for my major project which i have to make in my 4th year of engineering.
I will be very grateful if u can suggest something which is very good and a good learning experience.
PLEASE HELP!!!

Every problem has a solution!

pnpfriend29-Aug-03 6:57

pnpfriend

29-Aug-03 6:57

Hello all..
How to get the icon that is associate with the file?

I have email item... which contain file attachments..
So first get the file attachment using mail.Attachments and mail.Attachment. Up to here no problem..

here the code to get the icon and saving it in C:\PCKM so I can call the image file from HTML code

<br />
Function GetIconLocation(ByVal filename As String) As String<br />
        Dim loc As String<br />
        'Use this to get the small icon.<br />
        Dim fName As String      'The file name to get the icon from.<br />
        Dim shinfo As SHFILEINFO<br />
        shinfo = New SHFILEINFO<br />
        Dim openFileDialog1 As OpenFileDialog<br />
        openFileDialog1 = New OpenFileDialog<br />
        Dim hImgSmall As IntPtr  'The handle to the system image list.<br />
<br />
        hImgSmall = SHGetFileInfo(filename, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)<br />
        Dim hIcon As Icon<br />
        hIcon = Icon.FromHandle(shinfo.hIcon)<br />
<br />
        Dim bip As System.Drawing.Bitmap<br />
        bip = hIcon.ToBitmap()<br />
        bip.Save("c:\pckm\icon.bmp")<br />
        loc = "<img src=""c:\pckm\icon.bmp""><br>" & filename<br />
<br />
        GetIconLocation = loc<br />
    End Function<br />

After I saved the icon.bmp I try to open it by double clicking the file or using open with to oen the file but can't open with any other programs

How to save the icon to the hard drive???

Thank you

getting icon location

pnpfriend29-Aug-03 2:48

pnpfriend

29-Aug-03 2:48

Hello.. all
I used outlook to get the messages (mailItem) and then get the file attachments by calling

mailItem.attachments.attachment

So far no problem.. I got the attachment file name. still no error..
Here the problem come..
how to get the attachment icon?? I used the following code (SHGetFileInfo) to get the file attachment icon location
so I can print the file attachment name with its associate icon on the paper ( same as printing from the printer) using HTML Code

for example:

 str = "<img src=""c:\this\is\icon\location\attachmentIcon.ico""><br>"_<br />
& aAttachment.Name

here is my code to get the icon location... This code doesn't work as I want ( I want to get the directory of the image of icon or attachment icon and put it in the html code)

<br />
Dim loc As String<br />
        'Use this to get the small icon.<br />
        Dim fName As String      'The file name to get the icon from.<br />
        Dim shinfo As SHFILEINFO<br />
        shinfo = New SHFILEINFO<br />
        Dim openFileDialog1 As OpenFileDialog<br />
        openFileDialog1 = New OpenFileDialog<br />
<br />
        Dim hImgSmall As IntPtr  'The handle to the system image list.<br />
<br />
        hImgSmall = SHGetFileInfo(aAttachment.Name, 0, shinfo, Marshal.SizeOf(shinfo), _<br />
            SHGFI_ICON Or SHGFI_SMALLICON)<br />
<br />
<br />
        loc = "<img src=""" & shinfo.szDisplayName & """><br>" & filename<br />

Thank You

Random Number Maths Quiz

Alvin Wong29-Aug-03 1:50

Alvin Wong

29-Aug-03 1:50

How do i write a program that it use randomize to generate 2 postives number and sum them up. There are four choices for user to choose, this four choices are also generate from randomize. Question and answer generated should be between 1 to 100.

Re: Random Number Maths Quiz

Corinna John1-Sep-03 3:18

Corinna John

1-Sep-03 3:18

Random r = new Random(DateTime.Now.Second); //initalize the generator

//generate two integers between 1 and 50
int number1 = r.Next(49)+1;
int number2 = r.Next(50);
//sum up the numbers - result cannot be <1 or >100
int sum = number1 + number 2;

//generate more numbers...

What do you need this for, is it homework? Wink | ;)

Re: Random Number Maths Quiz

Corinna John1-Sep-03 6:16

Corinna John

1-Sep-03 6:16

Sorry, I posted that in C#. Here is VB:

Randomize (Timer)
Dim number1, number2, sum As Integer

number1 = (Rnd() * 49) + 1
number2 = (Rnd() * 49) + 1
sum = number1 + number

How do I check if a registry entry exists in the windows registry.

Simon_22117528-Aug-03 19:08

Simon_221175

28-Aug-03 19:08

I just started learning the vb.net and I would like to know how can I check if a subkey exists in the registry and use a code to create the subkey it if does not exist in the registry.

All help will be welcome.

Thank you,

Simon Confused | :confused:

Re: How do I check if a registry entry exists in the windows registry.

Dave Kreskowiak29-Aug-03 4:54

How do I export a registry hive?

29-Aug-03 4:54

There is an example of this very topic on the samples for VB.NET:

Private Sub DoesKeyExist
    Dim regVersion As Microsoft.Win32.RegistryKey
    regVersion = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\Microsoft\\TestApp\\1.0", True)
    If regVersion Is Nothing Then
        regVersion = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("SOFTWARE\\Microsoft\\TestApp\\1.0")
    End If
End Sub

This will check to see if a key exists, then if not, creates it.
Oh yeah! It also needs a reference to the Win32 namespace.

RageInTheMachine9532

wobblervb28-Aug-03 16:24

wobblervb

28-Aug-03 16:24

I am using VB.net I am looking for a way to export a registry key like
HKLM\System\CCS\Control\Services (the whole key and all subkeys).

I would like to use the same methods that Regedit uses.

BTW: I am connecting to a remote machine's registry.

Question #2.
How do I determin the data type of a registry key. I understand how to read the value name and value but not the data type.
Example.

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update

Value: AUState
Data Type: Reg_Dword <----This is what I am looking to discover.
Data: 2

Louis

Re: How do I export a registry hive?

Dave Kreskowiak29-Aug-03 9:10

XP Accelerators and Focus Rects

29-Aug-03 9:10

wobblervb wrote:
I am using VB.net I am looking for a way to export a registry key like
HKLM\System\CCS\Control\Services (the whole key and all subkeys).

I would like to use the same methods that Regedit uses.

It looks like RegEdit has its own enumerator built in. There is no function in the .NET framework that does the exact samething, so it looks like your going to have to write your own exporter.

wobblervb wrote:
How do I determin the data type of a registry key. I understand how to read the value name and value but not the data type.

The .NET framework doesn't offer a function to do what your want. Your probably going to have to write a C++ component to return that info.

RageInTheMachine9532

Punchinello28-Aug-03 4:00

28-Aug-03 4:00

I want to use SendMessage to send a WM_UPDATEUISTATE message that I hope will show the focus rectangle on option buttons but I cannot find the constant values for the expected wParam values: UIS_CLEAR, UIS_INITIALIZE, UIS_SET, UISF_HIDEACCEL, UISF_HIDEFOCUS, UISF_ACTIVE.

I know that I can change a setting in the Control Panel (Display - Appearance - Effects) but I want to be able to control this programmatically.

Any ideas?

Dave Kreskowiak28-Aug-03 8:24

28-Aug-03 8:24

If I read this right, you just want to move the input focus to a button control. In VB.NET, that's easy:

controlName.Focus()

will set the focus to that control. BUT!! (There's always one of these!)

Long version:
A control cannot receive focus unless it is enabled, is visible, AND HAS A WINDOW HANDLE ASSIGNED TO IT! What this means is, you can only set the focus to the control AFTER it has actually been created and it's Message Loop is up and running.

Short version:
If you try and set the focus to a control in a Form's Load event, you must first Show() the form, THEN set the focus to the control. Otherwise it won't work.

RageInTheMachine9532

Punchinello28-Aug-03 8:52

28-Aug-03 8:52

RageInTheMachine9532 wrote:
you just want to move the input focus to a button control

Thanks for the reply, but no. What I want to do is tell Windows to show a focus rectangle around the text of a button that has input focus. By default in XP it does not. Also, I am using VB6, not .Net.

If you search MSDN for the WM_CHANGEUISTATE Message you'll see exactly what I'm talking about.

On the other hand, if you have .Net and you search your local help file for the UIS_ and UISF_ constants specified in this tread's header, might you be able to tell me the numeric value of these constants?

For example, I know that...

WM_CHANGEUISTATE = 295 (H&0127)
WM_UPDATEUISTATE = 296 (H&0128)
WM_QUERYUISTATE = 297 (H&0129)

...but I do not know the value for these other constants and they are not known by VB6 because it pre-dates their use in the operating system (beginning with Win2000).

Dave Kreskowiak28-Aug-03 9:57

28-Aug-03 9:57

OK. I think I understand what your trying to do now.

I found the constants in WinUser.h in the VC98\Include folder. Here is the copy/paste:

/*
 * LOWORD(wParam) values in WM_*UISTATE*
 */
#define UIS_SET                         1
#define UIS_CLEAR                       2
#define UIS_INITIALIZE                  3

/*
 * HIWORD(wParam) values in WM_*UISTATE*
 */
#define UISF_HIDEFOCUS                  0x1
#define UISF_HIDEACCEL                  0x2
#if(_WIN32_WINNT >= 0x0501)
#define UISF_ACTIVE                     0x4
#endif /* _WIN32_WINNT >= 0x0501 */
#endif /* _WIN32_WINNT >= 0x0500 */
#endif

RageInTheMachine9532

Punchinello28-Aug-03 11:18

28-Aug-03 11:18

Rage,

Thanks a bunch. That is exactly what I was looking for. Unfortunately, my winuser.h file does NOT include these constants and frankly I don't know why (VB6 Enterprise).

I'll track that issue down next.

Smile | :)

J. Dunlap28-Aug-03 11:21

J. Dunlap

28-Aug-03 11:21

Puchinello wrote:
Unfortunately, my winuser.h file does NOT include these constants and frankly I don't know why

Download the latest Platform SDK. Wink | ;)

"Blessed are the peacemakers, for they shall be called sons of God." - Jesus

"You must be the change you wish to see in the world." - Mahatma Gandhi

Punchinello28-Aug-03 11:47