icon

[BoB]

if i make my own file lets say i had my own file end called .end and i made a icon for it how do i make it have that icon please some one help me

[Kaverin]

If you're talking about just in general, go into Window's Explorer, select the menu View, then Options. Hit the File Types tab, then select your file type (or add it if it's not in there). If it's already there, press Edit, and you'll see another button that says Change Icon.

If you're talking about sticking an icon into a VB project, you can stick something into the Icon property on a form to make that icon appear in the form's titlebar.

[BoB]

im talking about the frist thing you said but how do i do it to all the computers it is on like through vb or somthing thanks

[dsy5]

This thread should get you started. I think it should take care of the icon, too.

You must add it to the respective registry entry. Here is some registry code you can use.

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal HKEY As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal HKEY As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal HKEY As Long, ByVal lpSubKey As String) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal HKEY As Long, ByVal lpValueName As String) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal HKEY As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal HKEY As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal HKEY As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const REG_SZ = 1

Function RegQueryStringValue(ByVal HKEY As Long, ByVal strValueName As String)
    Dim lResult As Long
    Dim lValueType As Long
    Dim strBuf As String
    Dim lDataBufSize As Long
    
    On Error GoTo 0
    lResult = RegQueryValueEx(HKEY, strValueName, 0&, lValueType, ByVal 0&, lDataBufSize)
    If lResult = ERROR_SUCCESS Then
        If lValueType = REG_SZ Then
            strBuf = String(lDataBufSize, " ")
            lResult = RegQueryValueEx(HKEY, strValueName, 0&, 0&, ByVal strBuf, lDataBufSize)
            If lResult = ERROR_SUCCESS Then
                RegQueryStringValue = StripTerminator(strBuf)
            End If
        End If
    End If
End Function

Public Function GetSettingEx(HKEY As Long, sPath As String, sValue As String)
    Dim KeyHand&
    Dim datatype&
    Call RegOpenKey(HKEY, sPath, KeyHand&)
    GetSettingEx = RegQueryStringValue(KeyHand&, sValue)
    Call RegCloseKey(KeyHand&)
End Function

Function StripTerminator(ByVal strString As String) As String
    Dim intZeroPos As Integer

    intZeroPos = InStr(strString, Chr$(0))
    If intZeroPos > 0 Then
        StripTerminator = Left$(strString, intZeroPos - 1)
    Else
        StripTerminator = strString
    End If
End Function

Public Sub SaveSettingEx(HKEY As Long, sPath As String, sValue As String, sData As String)
    Dim KeyHand As Long
    Call RegCreateKey(HKEY, sPath, KeyHand)
    Call RegSetValueEx(KeyHand&, sValue, 0, REG_SZ, ByVal sData, Len(sData))
    Call RegCloseKey(KeyHand&)
End Sub

Usage

'Save a Value to the Registry
SaveSettingEx HKEY_CURRENT_USER, "Software\Myapp", "Testing", "Hello"


'Get a value from the Registry
Retval = GetSettingEx(HKEY_CURRENT_USER, "Software\Myapp", "Testing")
Print Retval

[BoB]

so how do i do that with the icon ay

[dsy5]

Did you even go to the site I posted in the message above Megatron's?

[BoB]

Yes i did and i wish taht place gave examples on how to use it , because i surwe dont know hwo to

That site does provide the method on how to do so.

[BoB]

thank you guys for puting up with me and that is alot of help now i will amek my own code , sorry man i dont like to use otehr peoles code

It's okay to use other people's code, just give credit where it's needed. I mean, everyone uses everyone elses code because it can be to hard to write or something. Or, for example, API functions are already there. And you have to use them to bring more life into VB. So it's fine. Just make sure you know how to use functions and all the basics of VB.

Just read the MSDN Libary, not all of it, find the basics, and you'll learn a lot .

[BoB]

im going to skool for programing , vb , c++ and some other stuff its great thanks man . and im in the 9th grade and i might gte a job getting 15 bucks an hour that prettys good fro a 15 year old , right?

Here's another quote:

Get a job you love, and you'll never have to work a day in your life

Anyhow, yes, that's great if you can get a job at $15/h at age 15.