Jump to content


Photo

Mudar Cor Da Barra - Vb


  • Faça o login para participar
9 replies to this topic

#1 Kurt

Kurt

    I'll posses your body and I'll make you burn!

  • Usuários
  • 85 posts
  • Sexo:Não informado
  • Localidade:Há alguns quilômetros de lugar algum
  • Interesses:Visual Basic, banco de dados e AutoCAD

Posted 29/05/2004, 19:10

Codigo para mudar cor da barra:

Em um modulo:
Global
Declare Function SetSysColors Lib "user32"_
(ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Public Const COLOR_SCROLLBAR = 0 'The Scrollbar colour
Public Const COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper
Public Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window
Public Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window
Public Const COLOR_MENU = 4 'Menu
Public Const COLOR_WINDOW = 5 'Windows background
Public Const COLOR_WINDOWFRAME = 6 'Window frame
Public Const COLOR_MENUTEXT = 7 'Window Text
Public Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Public Const COLOR_CAPTIONTEXT = 9 'Text in window caption
Public Const COLOR_ACTIVEBORDER = 10 'Border of active window
Public Const COLOR_INACTIVEBORDER = 11 'Border of inactive window
Public Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop
Public Const COLOR_HIGHLIGHT = 13 'Selected item background
Public Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item
Public Const COLOR_BTNFACE = 15 'Button
Public Const COLOR_BTNSHADOW = 16 '3D shading of button
Public Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Public Const COLOR_BTNTEXT = 18 'Button text
Public Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window
Public Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button

Eu Form_Load de algum formulario:
result = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(100, 0, 0))


OBS: Voce pode alterar outras cores no windows usando o codigo do Form_Load e substituindo COLOR_ACTIVECAPTION por outro citado acima. Teh +!

Edição feita por: Kurt, 29/05/2004, 19:22.

Private Sub (Mateus Dias Ribeiro)
If Você é novato Then
Leia as regras Else
Veja isto
End If

End Sub

#2 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 21/09/2017, 08:11

Viagra Homme cialis price Levitra Gegen Zu Fruhes Kommen
Propecia Covered By Insurance Hair Transplant Cialis And Ecuador Pharmacy
Articulo 23 <a href=http://cialtobuy.com>cialis buy online</a> Kidney Infection Can Amoxicillin Cause

#3 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 06/10/2017, 06:44

Drugs For Sale Without Prescription Cialis Soft Meilleur Prix viagra online prescription Amoxicillin Cyp2d6 Super Viagra Online Buy Dutasteride Uk
Amoxicillin Comprimes viagra Cialis Paypal France
Ou Acheter Cialis En Confiance viagra Comprar Cialis Espana Online Prescriptions For Propecia In Nj Doxycycline 100mg Canada

#4 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 07/10/2017, 13:42

Amoxicillin W Clavulinate Buy Lopressor Without Prescription Viagra Vente Suisse cialis online Propecia Patente Propecia Anticonceptivos

#5 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 12/10/2017, 05:32

No Doctor Viagra Propecia Finasteride Risks buy viagra online Accutane And Amoxicillin Cialis Fertilidad

#6 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 15/10/2017, 07:04

Synthroid For Cheap Cephalexin Anxiety buy viagra Buy Van Tin Without Prescription Acheter Kamagra En Ligne Commander Baclofen 25mg
Brand Viagra Cheap Acquistare Beni Kamagra On Propecia En Ligne France cialis Cialis 20mg Lilly Preisvergleich Indomethacin Comprar Online
Cose Clomid Propecia Contraindications Docusate Sodium viagra online pharmacy Online Pharmacy Bactrim Ds Cialis De Venta
Viagra Pfizer 100 Mg Beipackzettel Viagra No Prescription Online Sale Buy Stendra Online vivanza 20mg Fda Category Listing For Keflex Free Shipping Fluoxetine Tablet

#7 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 25/10/2017, 08:07

Best Prices For Usa..Viagra Where To Buy Lasix Buy Cheap Lasix Online Viagra Crea Dependencia buy vardenafil 40 mg online Quel Est Le Prix Du Cialis Buy Cheap Clomid Without Prescriptions
Pfizer Pharmaceutical Company Blood Pressure Pills Online online pharmacy Viagra Serve La Ricetta how to purchase accutane

#8 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 28/10/2017, 03:20

Priligy Mercury Drug Cephalexin Without A Prescription get online levitra prescription Comprar Cialis Generico En Madrid Legally Doxycycline Amex Accepted
Acheter Cialis Generique Canada Purchase Valtrex Canada cheap cialis Canada Pharmacy No Script Cialis Generika Potenzmittel Order Keflex Online No Perscription
Acheter Viagra Pas Cher Paris Fluoxetine Overseas Se Vende Viagra Madrid viagra online prescription What Are The Reactions To Amoxicillin

#9 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 01/11/2017, 07:01

Cialis Generic Vs Brand buy viagra Propecia Cost In Usa Alli Availability 2014 Loading Cephalexin
Amoxicillin 250mg In Pregnancy Jelly Viagra Canada Pharmacies Online Prescriptions generic cialis Cialis Traitement Quotidien
Kamagra Price Thailand viagra Amoxicillin For Bladder Infection In Dogs
Buy Cialis Without Prescription viagra cialis Donde Comprar Cialis Seguro En Espana

#10 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 22/11/2017, 08:40

Propecia Finasteride Online Elocon 5g Elocon Cream Hplc Methods For Amoxicillin Clavulanic Acid viagra Generic Viagra Usa Shipping Viagra Cialis Et Autres Cytotec Avant Pose De Sterilet
Donar Sangre Receta Propecia Amoxicillin And Iv Order Effexor Online viagra online prescription Amoxicillin Allergic Reaction Rash Photo How To Buy Cialis Online Safely Viagra Generico Andorra
Acquisto Levitra Gratis Medical Amoxicillin Propecia Dosage Mg online pharmacy Cost Of Propecia At Walmart
Cytotec Sterilet viagra Propecia Generic Medicine




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq