Chirurgia spinală minim invazivă
Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical. Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale. www.neurohope.ro |
Butoane Basic
Last Updated: Apr 11 2006 09:37, Started by
amy_e
, Oct 25 2005 20:46
·
0
#1
Posted 25 October 2005 - 20:46
Cum pot fi facute butoanele dintr-un program Visual Basic sa apara in modul WIN XP?
|
#2
Posted 26 October 2005 - 17:10
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.Showtip: iti va merge doar la run time (adica daca rulezi exeutabilul direct, nu din vb6 ) Using Windows XP Visual Styles |
#3
Posted 30 October 2005 - 14:06
Am incercat ce mi-ai zis si functioneaza(nimic nou pt tine).
Mersi |
#4
Posted 27 November 2005 - 00:19
Eu nu am gasit "InitCommonControls API". Se mai poate si alt fel?
|
#5
Posted 27 November 2005 - 11:44
MarianG, on Nov 27 2005, 00:19, said: Eu nu am gasit "InitCommonControls API". Se mai poate si alt fel? uite testul facut de mine: XPControls.rar 52.67K 132 downloads uite cum arata: previewXPCtrl.jpg 26.24K 127 downloads bafta! |
#6
Posted 03 December 2005 - 00:54
Multumesc frumos din ce ai zis prima data am inteles cu totul altceva.
|
#7
Posted 11 April 2006 - 08:25
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... |
#8
Posted 11 April 2006 - 09:37
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... |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users