/ Snippet Library - View Code

Visual Basic / Math / Hex conversion

Snippet details

ID: 378

Viewed: 1285

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Can convert Hex to Decimal and Deciaml to Hex and converts html Hex to VB RGB.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight All'To convert 64 hex to decimal: 'code: Private Sub Command1_Click() MsgBox HexToDec(64) End Sub Private Function HexToDec(ByVal Hex As Long) As Long HexToDec = CLng("&h" & Hex) End Function '************************************************************************************************** 'To convert 134 decimal to hex: 'code: MsgBox Hex$(134) '****************************************************************** 'Converting html-color to VB-colorThe value given to HexToRGB function must be Hex(value). 'code: Function HexToRGB (Text As String) As Long HexSwap(Text) If Len(Text) <> 6 Then Exit Function HexToRGB = CLng("&H" & Text) End Function Sub HexSwap(ByRef Text As String) If Len(Text) = 6 Then Text = Right(Text, 2) & Mid(Text, 3, 2) & Left(Text, 2) 'I hope that line has no error ElseIf Len(Text) = 5 Then Text = Right(Text, 2) & Mid(Text, 2, 2) & "0" & Left(Text, 1) ElseIf Len(Text) = 4 Then Text = Right(Text, 2) & Left(Text, 2) & "00" ElseIf Len(Text) = 3 Then Text = Right(Text, 2) & "0" & Left(Text, 1) & "00" ElseIf Len(Text) = 2 Then Text = Text & "0000" ElseIf Len(Text) = 1 Then Text = "0" & Text & "0000" Else Text = "" End If End Sub

No Reviews to show