Monday, January 23, 2017 - 05:18 AM
Home
 
  Main Menu

Computer Tips & Tricks

  Advertisement
Computer Tips, Networking Tips , Windows XP Tips , Windows 98 Tips , Dos Tips , Desktop Tips , Computer PC Tips , Hard Disk Tips , Web Design Tips

Windows Tips

Load Outlook Faster
If you're tired of waiting the Outlook Express to start up, there's a way to make it faster. Open the RegEdit and navigate to the next path:

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

 
Prev   3  4  5  6  7  8  9  10    Next
  |
Most Visited Topics
             
    Learn English   Universities   Study Abroad   Mobile & SMS   Computer & Laptop  
 
Learn English Language
Pakistan Universities
Student Visa for USA
Free Mobilink SMS
Computer Tips  
 
Easy Conversation
Foreign Universities
Student Visa for UK
Free Telenor SMS
Computer Rates  
 
Improve Vocabulary
Online Results
Student Visa for Spain
Free Zong SMS
Buy or Sell Laptops  
 
IELTS & TOEFL
Online Jobs
Student Visa for Italy
Free Ufone SMS
Handmade Embroidery  
 
English to Urdu Dictionary
Newspapaer Jobs
Student Visa for France
Free Warid SMS
Diploma Courses  
                     
Copyright © 2005-2017. All rights reserved ® 123freenet.com
Currently 46 Users Online