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
Printable View
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
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.
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
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.
UsageCode: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
Code:'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
so how do i do that with the icon ay
Did you even go to the site I posted in the message above Megatron's?
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.
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 :).
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:
Anyhow, yes, that's great if you can get a job at $15/h at age 15.Quote:
Get a job you love, and you'll never have to work a day in your life