Butoane Basic

#1
amy_e

Posted 25 October 2005 - 20:46

New Member

Grup: Members
Posts: 13
Înscris: 22.09.2005

Cum pot fi facute butoanele dintr-un program Visual Basic sa apara in modul WIN XP?

Back to top

#2
RAZ

Posted 26 October 2005 - 17:10

Member

Grup: Members
Posts: 1,227
Înscris: 15.10.2004

amy_e, on Oct 25 2005, 21:46, said:

Cum pot fi facute butoanele dintr-un program Visual Basic sa apara in modul WIN XP?

Mai intai trebuie sa te asiguri ca aplicatia e linkata de Comctl32.dll -v6.00 sau mai mare (folosind InitCommonControls API

) apoi iti trebuie un manifest in resursa executabilului sau un fisier cu numele executabilului si extensia .manifest in acelasi director (ex: project1.exe.manifest)
continutul fisierului project1.exe.manifest va fi:

Quote

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
    <assemblyIdentity
        version="1.0.0.0"
        processorArchitecture="X86"
        name="CompanyName.ProductName.YourAppName"
        type="win32" />
    <description>Your application description here</description>
    <dependency>
        <dependentAssembly>
            <assemblyIdentity
                type="win32"
                name="Microsoft.Windows.Common-Controls"
                version="6.0.0.0"
                processorArchitecture="X86"
                publicKeyToken="6595b64144ccf1df"
                language="*" />
        </dependentAssembly>
    </dependency>
</assembly>

ex:

Public Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type
Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As
 tagInitCommonControlsEx) As Boolean
Public Const ICC_USEREX_CLASSES = &H200

Public Sub Main()
   Dim iccex As tagInitCommonControlsEx
   With iccex
	   .lngSize = LenB(iccex)
	   .lngICC = ICC_USEREX_CLASSES
   End With
   InitCommonControlsEx iccex
   
   ' now start the application
   On Error GoTo 0
   frmTestControls.Show

tip: iti va merge doar la run time (adica daca rulezi exeutabilul direct, nu din vb6

)

Using Windows XP Visual Styles

:wave:

Back to top

#3
amy_e

Posted 30 October 2005 - 14:06

New Member

Grup: Members
Posts: 13
Înscris: 22.09.2005

Am incercat ce mi-ai zis si functioneaza(nimic nou pt tine).
Mersi :coolspeak:

Back to top

#4
MarianG

Posted 27 November 2005 - 00:19

be that as it may

Grup: Moderators
Posts: 31,437
Înscris: 10.08.2005

Eu nu am gasit "InitCommonControls API". Se mai poate si alt fel?

Back to top

#5
RAZ

Posted 27 November 2005 - 11:44

Member

Grup: Members
Posts: 1,227
Înscris: 15.10.2004

MarianG, on Nov 27 2005, 00:19, said:

Eu nu am gasit "InitCommonControls API". Se mai poate si alt fel?

Cum adica nu ai gasit ? e in Comctl32 :lol:

dar trebuie sa o definesti inainte (Declare Function InitCommonControlsEx Lib "comctl32.dll".... )... adauga un modul (*.bas) proiectului si copiaza codul de mai sus in el

(si nu uita de manifest ... trebuie sa aibe acelasi nume ca si exe-ul)
uite testul facut de mine:

XPControls.rar 52.67K 132 downloads

uite cum arata:

previewXPCtrl.jpg 26.24K 127 downloads

bafta!

Back to top

#6
MarianG

Posted 03 December 2005 - 00:54

be that as it may

Grup: Moderators
Posts: 31,437
Înscris: 10.08.2005

Multumesc frumos din ce ai zis prima data am inteles cu totul altceva.

Back to top

#7
mosu16

Posted 11 April 2006 - 08:25

Junior Member

Grup: Members
Posts: 76
Înscris: 10.04.2006

da-mi si mie programul sa ma uit putin la codul sursa te rog...ca vreau sa fac un prog si sunt la inceput...si imi trebuie sa bag nishte number-box si un buton care sa adune tot si sa-mi afiseze rezultatul
daca vrei...

Back to top

#8
RAZ

Posted 11 April 2006 - 09:37

Member

Grup: Members
Posts: 1,227
Înscris: 15.10.2004

mosu16, on Apr 11 2006, 08:25, said:

da-mi si mie programul sa ma uit putin la codul sursa te rog...ca vreau sa fac un prog si sunt la inceput...si imi trebuie sa bag nishte number-box si un buton care sa adune tot si sa-mi afiseze rezultatul
daca vrei...

Pai vezi link-ul de download in postul de mai sus, e o arhiva rar care contine codul sursa al proiectului + exe-ul compilat (aici:XPControls.rar) ...

Back to top

Anunturi

Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

Butoane Basic

#1 amy_e Posted 25 October 2005 - 20:46

#2 RAZ Posted 26 October 2005 - 17:10

#3 amy_e Posted 30 October 2005 - 14:06

#4 MarianG Posted 27 November 2005 - 00:19

#5 RAZ Posted 27 November 2005 - 11:44

#6 MarianG Posted 03 December 2005 - 00:54

#7 mosu16 Posted 11 April 2006 - 08:25

#8 RAZ Posted 11 April 2006 - 09:37

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
amy_e

Posted 25 October 2005 - 20:46

#2
RAZ

Posted 26 October 2005 - 17:10

#3
amy_e

Posted 30 October 2005 - 14:06

#4
MarianG

Posted 27 November 2005 - 00:19

#5
RAZ

Posted 27 November 2005 - 11:44

#6
MarianG

Posted 03 December 2005 - 00:54

#7
mosu16

Posted 11 April 2006 - 08:25

#8
RAZ

Posted 11 April 2006 - 09:37