|
| Autor |
Nachricht |
phil94_
Newbie
Anmeldedatum: 27.02.2008
Beiträge: 17
|
cool xp wie benutzen?
Verfasst am: 05.04.2008, 14:26 |
|
|
hey eine frage ich hab was gecodet und will die cool xp buttons etc vrwenden nur ich verstehe es nicht wie das geht könnte es mir jemand bitte schnell erklären will es zb bei nem button einsetzen 
danke voraus |
|
| |
|
 |
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 05.04.2008, 14:47 |
|
|
Die CoolXP Steuerelemente einfach mal installieren. Also Setup nutzen.
In der VB6 IDE drückst du dann Strg+T und in der Liste hakst du dann die coolXP Dinger an, die du benutzen willst.
Und schon scheinen die Links bei den anderen Steuerelementen zum nutzen auf.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
phil94_
Newbie
Anmeldedatum: 27.02.2008
Beiträge: 17
|
Verfasst am: 05.04.2008, 15:28 |
|
|
ah danke ich hatte sie vorher als ocx hab mir die setup geladen und alles funzt perfekt nur noch ne frage wenn jetzt jemand mein programm bekommt hhatt er dann auch diese buttons etc oder muss er erst cool xp instalieren oder kann man die ocx dateien in den programm einbinden damit die es dann auch sofort haben wenn ja könnte jemand pls ein beispiel code geben danke voraus  |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 05.04.2008, 15:40 |
|
|
Du mußt die ocx files mitliefern.
Gibt ein videotut dazu und ein text tutorial.
Außerdem noch eine einfache Funktion zum entpacken der Resourcen. Findest du bei der Snippetssammlung unter Sources.
Zusätzlich gibt es sogar von einigen CoolXP Elementen den source falls es dir so lieber ist.
http://vb.subsidoo.net/de/coolxp.html
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
phil94_
Newbie
Anmeldedatum: 27.02.2008
Beiträge: 17
|
Verfasst am: 05.04.2008, 16:08 |
|
|
| ah danke ok verstehe nur ich verstehe das mit dem selbst entpacken von den ocx dateien ich will das sich beim programmstart automatisch die ocx dateien instalieren wenn sie nicht da sind würde mich über ein beispiel freuen |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 05.04.2008, 16:30 |
|
|
| Code: |
Option Explicit
Private sub main()
Dim Winpath As String
Winpath = Environ$("windir")
If Not FileExists(Winpath & "\system32\CoolXPText.ocx") Then
Call SaveRes(101, Winpath & "\system32\CoolXPText.ocx")
End If
End sub
Public Function SaveRes(ID As Integer, Filepath As String)
Dim xBuffer() As Byte
xBuffer = LoadResData(ID, "CUSTOM")
Dim ff As Integer
ff = FreeFile
Open Filepath For Binary As #ff
Put #ff, , xBuffer
Close
DoEvents
Call Shell("regsvr32.exe " & Filepath & " -s")
End Function
Public Function FileExists(ByVal FileName As String) As Boolean
On Local Error Resume Next
FileExists = (Dir$(FileName) <> "")
End Function
|
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Registrieren
Login
