HKEY_CURRENT_USER\Identities\[nr of
id]\Software\Microsoft\Outlook Express\[vers]
Then create a new DWORD value called NoSplash, and assign
the value 1. Remember to take a backup of the Registry
before doing this! For more information on how to backup
your registry,
Convert WMF Files Into BMP Files in Visual Basic
Create a new project, add a form, then put a picture box
and a command button into it. Add block of code into command
button click event.
Private Sub Command1_Click()
' Load meta picture file
Picture1.Picture = LoadPicture("C:\test.wmf")
' Save meta picture to bitmap file
SavePicture Picture1.Image, "C:\test.bmp"
End Sub
Break an RGB color value into its components in
Visual Basic Use :
r = color And &HFF&
g = (color And &HFF00&) \ &H100&
b = (color And &HFF0000) \ &H10000
There are some system colors that have
funny values like &H8000000F&. Unfortunately they
don't work this way. You can use the GetSysColor API function
to find these color values. Use And to mask off the leftmost
digit. Then use GetSysColor to see get the color value.
Public Declare Function GetSysColor Lib "user32" Alias
"GetSysColor" _
(ByVal nIndex As Long) As Long
If color And &H80000000 Then color
= GetSysColor(color And &HFFFFFF)
One final case occurs if you use Point
to get the color of a pixel that does not exist. For example,
on a form with ScaleMode = vbPixels, Point(-100, -100)
returns -1 because there is no
pixel at (-100, -100).
The following subroutine breaks a color
into its components. If the color is -1, the routine leaves
r, g, and b unchanged. Depending on your application,
you may want to set them to default values such as 0 or
255.
Public Declare Function GetSysColor
Lib "user32" Alias "GetSysColor" _
(ByVal nIndex As Long) As Long
' Break a color into its components.
Private Sub BreakColor(ByVal color
As Long, ByRef r As Long, ByRef g As Long, _
ByRef b As Long)
If color = &HFFFFFFFF Then Exit Sub
If color And &H80000000 Then _
color = GetSysColor(color And &HFFFFFF)
r = color And &HFF&
g = (color And &HFF00&) \ &H100&
b = (color And &HFF0000) \ &H10000
End Sub
