Mobile

using System;<br />
using System.Collections.Generic;<br />
using System.ComponentModel;<br />
using System.Configuration.Install;<br />
using Microsoft.Win32;<br />
using System.Reflection;<br />
using System.IO;<br />
using System.Diagnostics;<br />
using System.Windows.Forms;<br />
<br />
namespace WindowsControlLibrary1<br />
{<br />
    [RunInstaller(true)]<br />
    public partial class CustomInstaller : Installer<br />
    {<br />
        public CustomInstaller()<br />
        {<br />
            InitializeComponent();<br />
        }<br />
<br />
        protected override void OnAfterInstall(System.Collections.IDictionary savedState)<br />
        {<br />
            string programName = "\"" + CeAppMgrExe + "\"";<br />
            string programArg = "\"" + IniFilePath + "\"";<br />
<br />
            MessageBox.Show(programName + " " + programArg);<br />
            Process.Start(programName, programArg);<br />
            base.OnAfterInstall(savedState);<br />
        }<br />
<br />
        const string _ceAppMgRegistryPath = @"software\Microsoft\Windows\CurrentVersion\App Paths\CEAppMgr.exe";<br />
        const string _iniFileName = "PDARAM.ini";<br />
        const string _filePrefix = @"file:\";<br />
        string CeAppMgrExe<br />
        {<br />
            get<br />
            {<br />
                RegistryKey subKey = null;<br />
                string exePath = null;<br />
                try<br />
                {<br />
                    subKey = Registry.LocalMachine.OpenSubKey(_ceAppMgRegistryPath);<br />
                    exePath = (string) subKey.GetValue("");<br />
                }<br />
                finally<br />
                {<br />
                    if (subKey != null)<br />
                        subKey.Close();<br />
                }<br />
                return exePath;<br />
<br />
            }<br />
        }<br />
        string IniFilePath<br />
        {<br />
            get<br />
            {<br />
                <br />
                string installFolder = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase);<br />
                string iniFilePath = Path.Combine(installFolder, _iniFileName);<br />
                if (iniFilePath.StartsWith(_filePrefix))<br />
                {<br />
<br />
                    int index = _filePrefix.Length;<br />
                    iniFilePath = iniFilePath.Substring(index);<br />
<br />
                }<br />
                return iniFilePath;<br />
<br />
            }<br />
        }<br />
    }<br />
}

[CEAppManager]<br />
Version             = 1.0<br />
Componet            = DeviceApplication1<br />
<br />
[DeviceApplication1]<br />
Description         =  PDA RAM Data Collection Application<br />
CabFiles            = SmartDeviceCab1.CAB<br />

Dim a As New ColorDialog<br />
        If a.ShowDialog = Windows.Forms.DialogResult.OK Then<br />
            Dim STR As String = RGB2HTMLColor(a.Color.R, a.Color.G, a.Color.B)<br />
endif

Private Function RGB2HTMLColor(ByVal R As Byte, ByVal G As Byte, ByVal B As Byte) As String<br />
<br />
        Dim HexR, HexB, HexG As Object<br />
        Dim sTemp As String<br />
<br />
        'R<br />
        HexR = Hex(R)<br />
        If Len(HexR) < 2 Then HexR = "0" & HexR<br />
<br />
        'Get Green Hex<br />
        HexG = Hex(G)<br />
        If Len(HexG) < 2 Then HexG = "0" & HexG<br />
<br />
        HexB = Hex(B)<br />
        If Len(HexB) < 2 Then HexB = "0" & HexB<br />
<br />
        RGB2HTMLColor = "#" & HexR & HexG & HexB<br />
    End Function<br />

dim a as color<br />
Dim ArgbComp As String() = Microsoft.VisualBasic.Split(HEXCOL2RGB("#000000"), ",") '#000000 is sample<br />
       a.BackColor = Color.FromArgb(ArgbComp(0), ArgbComp(1), ArgbComp(2), ArgbComp(3))

<br />
 Private Function HEXCOL2RGB(ByVal HexColor As String) As String<br />
<br />
            Dim Red As String<br />
        Dim Green As String<br />
        Dim Blue As String<br />
<br />
        Red = Val("&H" & HexColor.Substring(1, 2))<br />
        'The red value is now the long version of "00"<br />
<br />
        Green = Val("&H" & HexColor.Substring(3, 2))<br />
        'The red value is now the long version of "FF"<br />
<br />
        Blue = Val("&H" & HexColor.Substring(5, 2))<br />
        'The red value is now the long version of "1F"<br />
<br />
<br />
        HEXCOL2RGB = "255," & CInt(Red) & "," & CInt(Green) & "," & CInt(Blue)<br />
<br />
        Return HEXCOL2RGB<br />
<br />
    End Function