VB6 Code - Konversi Warna dari RGB ke HEX

Di bawah ini merupakan fungsi untuk meng-konversi warna dari rgb (red, green, blue) ke Hex. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Function RGBToHex(Red As Integer, Green As Integer, Blue As Integer) 
    RGBToHex = Right(0 & Hex(Red), 2) & Right(0 & Hex(Green), 2) & Right(0 & Hex(Blue), 2) 
End Function 

Contoh penggunaan fungsi konversi warna dari RGB ke HEX

Private Sub Command1_Click() 
    MsgBox RGBToHex(0, 0, 12) 
End Sub 

READ MORE - VB6 Code - Konversi Warna dari RGB ke HEX

VB6 Code - Konversi Warna Long Ke RGB

Di bawah ini merupakan fungsi untuk meng-konversi warna dari long ke rgb (red, green, blue). Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub LongToRGB(Color As Long, Red, Green, Blue)  
    Blue = Color \ 65536  
    Green = (Color - Blue * 65536) \ 256  
    Red = Color - (Blue * 65536) - (Green * 256)  
End Sub  

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()   
    Dim red 
    Dim green 
    Dim blue 
    Call LongToRGB(CLng("23489"), red, green, blue) 
    MsgBox red & "," & green & "," & blue 
End Sub 

READ MORE - VB6 Code - Konversi Warna Long Ke RGB

Konversii Angka Dari Hexa ke Decimal dan Sebaliknya

Di bawah ini merupakan fungsi untuk mengkonversi angka dari hexadecimal ke decimal dan sebaliknya.

Option Explicit 
 
Public Function DecToHex(DecNumber) 
    DecToHex = Hex(DecNumber) 
End Function 
 
Public Function HexToDec(HexNumber) 
    HexToDec = Val("&H" & HexNumber) 
End Function 

Contoh penggunaan Konversi angka dari decimal ke hexa

Private Sub Form_Load() 
    MsgBox DecToHex(120000) 
End Sub  Contoh 

penggunaan konversi angka dari hexa ke decimal

Private Sub Form_Load() 
    MsgBox HexToDec(120000) 
End Sub 

READ MORE - Konversii Angka Dari Hexa ke Decimal dan Sebaliknya

Menyembunyikan dan Menampilkan Pointer Mouse

Di bawah ini merupakan procedure untuk menyembunyikan dan menampilkan pointer mouse. Bagaimana implementasinya dalam Visual Basic 6.0, simaklah kodenya di bawah ini:

Option Explicit 
 
Private Declare Function ShowCursor Lib "user32" ByVal bShow As Long) As Long 
 
Sub ShowMouseCursor(bShow As Boolean) 
    ShowCursor bShow 
End Sub 

Dua contoh penggunaan menyembunyikan dan menampilkan pointer mouse

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
      ShowMouseCursor Check1.Value = 0) 
End Sub 
 
Private Sub Command1_Click() 
    ShowMouseCursor True 
End Sub 

READ MORE - Menyembunyikan dan Menampilkan Pointer Mouse